(*IS - interval spolahlivosti*)
(*testy hypoterz :*)
(*Studentovo rozdelenie :
jeden parameter... parameter volnosti (prirodzene cislo)*)


st=StudentTDistribution[n]

(*hustota PDF......  distribucna funkcia je CDF*)

PDF[st,x]

Manipulate[Plot3D[Beta[a,b],{a,-n,n},{b,-n,n}],{n,1,5}]

(*len sa nam rozsiruje def.obor*)

(*teraz gama funkica*)

densityST[n_,x_]:=PDF[StudentTDistribution[n],x] (*su tu dve premenne ST rozdedlenie a x... n_ je priradenie ..treba ked vytvarame funkciu*)

Do[gr[i]=Plot[densityST[i,t],{t,-5,5},PlotRange->All,PlotStyle->{Hue[0.3*i],Thickness[0.005]},Axes->{True,False}],{i,1,20}]

Show[Table[gr[i],{i,1,5}]]

Manipulate[gr[i]=Plot[densityST[i,t],{t,-5,5},PlotRange->All,PlotStyle->{Hue[0.3*i],Thickness[0.005]},Axes->{True,False}],{i,1,20}]

(*Chi kvadrat - rozdelenie kvadratickych foriem*)

chi=ChiSquareDistribution[n]

PDF[chi,x]

(*v chi rozdeleni vystupuje gamma funkica - co je vlastne integral  .... staci napsat ?gamma*)

Manipulate[Plot[Gamma[t],{t,-n,5}],{n,1,5}]

densityCHI[n_,x_]:=PDF[ChiSquareDistribution[n],x]

Do[grr[i]=Plot[densityCHI[i,t],{t,0,10},PlotStyle->{Hue[0.3*i],Thickness[0.0001]}],{i,1,20}]

Show[Table[grr[i],{i,1,20}]]

Manipulate[grr[i]=Plot[densityCHI[i,t],{t,0,10},PlotStyle->{Hue[0.3*i],Thickness[0.0001]}],{i,1,20}]