Help with Manipulate

• To: mathgroup at smc.vnet.net
• Subject: [mg131853] Help with Manipulate
• From: "Eduardo M. A. M. Mendes" <emammendes at gmail.com>
• Date: Fri, 18 Oct 2013 04:44:48 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• Delivered-to: l-mathgroup@wolfram.com
• Delivered-to: mathgroup-outx@smc.vnet.net
• Delivered-to: mathgroup-newsendx@smc.vnet.net

```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

```

• Prev by Date: Re: bug in Print
• Next by Date: A law of small sines?