Drexel dragonThe Math ForumDonate to the Math Forum



Search All of the Math Forum:

Views expressed in these public forums are not endorsed by Drexel University or The Math Forum.


Math Forum » Discussions » Software » comp.soft-sys.math.mathematica

Topic: Help with Manipulate
Replies: 4   Last Post: Oct 19, 2013 3:49 AM

Advanced Search

Back to Topic List Back to Topic List Jump to Tree View Jump to Tree View   Messages: [ Previous | Next ]
Tomas Garza Hernandez

Posts: 264
Registered: 4/15/05
Re: Help with Manipulate
Posted: Oct 19, 2013 3:48 AM
  Click to see the message monospaced in plain text Plain Text   Click to reply to this topic Reply


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@gmail.com
> Subject: Help with Manipulate
> To: mathgroup@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
>
>
>





Point your RSS reader here for a feed of the latest messages in this topic.

[Privacy Policy] [Terms of Use]

© Drexel University 1994-2014. All Rights Reserved.
The Math Forum is a research and educational enterprise of the Drexel University School of Education.