Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2013

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Help with Manipulate

  • To: mathgroup at smc.vnet.net
  • Subject: [mg131861] Re: Help with Manipulate
  • From: Tomas Garza <tgarza10 at msn.com>
  • Date: Sat, 19 Oct 2013 04:11:16 -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
  • References: <20131018084448.7272A6A0D@smc.vnet.net>

First, remove the semicolon at the end of your code. This may be interfering with the displaying process.Second, bear in mind that the calculation takes a very long time if the values of your parameters get too large.Third, try to fix the PlotRange so that the plot doesn't jump all over the place as you move the controls.Lastly, I suggest a smoother way to compute the sum.
I tried the following code and it works fine:
Clear[flist];flist[par1_,par2_]:=RandomVariate[FRatioDistribution[2,2 par1],par2];Manipulate[sum=Fold[Plus,0,Table[flist[\[CurlyPhi],np],{nr}]];Histogram[sum,{Min[sum],Max[sum],1},"PDF",AspectRatio->1/3,PlotRange->{{Min[sum],Max[sum]},All},ImageSize->Large],{{\[CurlyPhi],5,"parameter"},1,50,Appearance->"Labeled"},{{np,1000,"number of data points"},1,10000,Appearance->"Labeled"},{{nr,20,"number of replications"},5,200,Appearance->"Labeled"}]
-Tomas


> From: emammendes at gmail.com
> Subject: Help with Manipulate
> To: mathgroup at smc.vnet.net
> Date: Fri, 18 Oct 2013 04:44:48 -0400
>
> 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: Help with Manipulate
  • Next by Date: Re: Extract columns based on their the title in
  • Previous by thread: Re: Help with Manipulate
  • Next by thread: Re: Help with Manipulate