
Help with Manipulate
Posted:
Oct 18, 2013 4:41 AM


Hello
Although I have been using Mathematica for a while I still consider myself a rookie. Could someone explain what I am doing wrong with the following code, please?
Manipulate[ sum=RandomVariate[FRatioDistribution[2,2 \[CurlyPhi]],np]; Do[sum=sum+RandomVariate[FRatioDistribution[2,2 = \[CurlyPhi]],np],{i,2,nr}]; Histogram[sum,{Min[sum],Max[sum],1},"PDF",AspectRatio>1/3,PlotRange> {{Min[sum],Max[sum]},All},ImageSize>Large], {{\[CurlyPhi],5,"parameter"},1,1000, Appearance>"Labeled"}, {{np,1000,"number of data points"},1,1000000, Appearance>"Labeled"},{{nr,20,"number of replications"},5,10000, Appearance>"Labeled"}];
Nothing shows up.
Is there a faster way to implement the summation?
Many many thanks
Ed

