Chi-Quadrat-Verteilung 
p-Quantil chi^2(p,nue)

Hermann.Singer@FernUni-Hagen.de

Manipulate[
a=60;
f=PDF[dist=ChiSquareDistribution[n],x];
xq=Quantile[dist,p];

Show[
Plot[{f},{x,0,xq},Filling->0,PlotRange->All,AxesOrigin->{0,0},ColorFunction->Hue],
Plot[{f},{x,0,a},Filling->None,PlotRange->All,AxesOrigin->{0,0},ColorFunction->(GrayLevel[0 #]&)],
PlotLabel->"chi^2-Verteilung: n = "<>ToString[n]<>", p-Quantil: p = "<>ToString[p]<>",  xp = "<>ToString[xq],
PlotRange->{{0,a},{0,.15}},ImageSize->600
]

,{{p,.95},{.01,.025,.05,.1,.5,.75,.9,.95,.975,.99,.995,.999},ControlType->RadioButton},
    {{n,20},1,30,1}]