F-Verteilung 
p-Quantil f(p,m,n)

Hermann.Singer@FernUni-Hagen.de

Manipulate[
a=10;
plp=25;
f=PDF[dist=FRatioDistribution[m,n],x];
xq=Quantile[dist,p];

Show[
Plot[{f},{x,0,Min[a,xq]},Filling->Axis,PlotRange->All,AxesOrigin->{0,0},ColorFunction->Hue,PlotPoints->plp],
Plot[{f},{x,0,a},Filling->None,PlotRange->All,AxesOrigin->{0,0},ColorFunction->(GrayLevel[0 #]&),PlotPoints->plp],

PlotLabel->"F-Verteilung: m, n = "<>ToString[{m,n}]<>", p-Quantil: p = "<>ToString[p]<>",  xp = "<>ToString[xq],
PlotRange->{{0,a},{0,1}},ImageSize->600]

,{{p,.95},{.01,.025,.05,.1,.5,.9,.95,.975,.99},ControlType->RadioButton},
    {{m,10},1,50,1},{{n,10},1,50,1}]