Normalverteilung p-Quantil z(p)

Hermann.Singer@FernUni-Hagen.de

Manipulate[
a=5;
f=PDF[dist=NormalDistribution[mu,sigma],x];
xq=Quantile[dist,p];

Show[
Plot[{f},{x,-a,xq},Filling->0,PlotRange->All,AxesOrigin->{0,0},ColorFunction->Hue],
Plot[{f},{x,-a,a},Filling->None,PlotRange->All,AxesOrigin->{0,0},ColorFunction->(GrayLevel[0 #]&)],
PlotLabel->"Normalverteilung  N("<>ToString@mu<>","<>ToString@sigma<>")"<>": p-Quantil: p = "<>ToString[p]<>",  xp = "<>ToString[xq],PlotRange->{{-a,a},All}
,ImageSize->600]

,{{p,.95},{.01,.025,.05,.1,.5,.9,.95,.975,.99,.995},ControlType->RadioButton},{{mu,0},-1,1},{{sigma,1},0.001,3}]