[Date Index]
[Thread Index]
[Author Index]
Re: Help with Manipulate
*To*: mathgroup at smc.vnet.net
*Subject*: [mg132010] Re: Help with Manipulate
*From*: Tomas Garza <tgarza10 at msn.com>
*Date*: Fri, 15 Nov 2013 06:42:17 -0500 (EST)
*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*: <20131114071144.3079F6A38@smc.vnet.net>
Try to debug your code with smaller values, so you can see the results before attempting to use thousands or millions of numbers. What I would do is define the z outside the Manipulate as a function of lambda and n, and then proceed small step by small step to look for mistakes. Leave aside the embellishments until you have the calculations running ok, and only then introduce titles and labels.
For example, I defined first
z[lambda_, n_]:=Flatten[{0,RandomVariate[Quiet@ExponentialDistribution[lambda],n-1]}]
and then tried
Manipulate[n/Total[z[lambda,n]],{{n,10},10,100,5},{{lambda,1},1,100}]
This works ok. From here on, you may (I didn't) introduce Style, Appearance, Delimiter, etc.
Good luck,
-Tomas
> From: emammendes at gmail.com
> Subject: Help with Manipulate
> To: mathgroup at smc.vnet.net
> Date: Thu, 14 Nov 2013 02:11:44 -0500
>
>
> Hello
>
> I need to create a simple demonstration based upon an exercise on poisson counting processes. Here is the code
>
> Manipulate[n/Total[z],Style["Poisson Arrival Times",18,Bold],"",Delimiter,{{z,Flatten[{0,RandomVariate[Quiet@ExponentialDistribution[\[Lambda]],n-1]}]},Button["random",z=Flatten[{0,RandomVariate[Quiet@ExponentialDistribution[\[Lambda]],n-1]}]]&,Appearance->"Labeled"},"",Delimiter,{{\[Lambda],2,"\[Lambda]"},1,100,1,Appearance->"Labeled"},"",Delimiter,{{n,10000,"n"},1,1000000,1000,Appearance->"Labeled"},SaveDefinitions->True]
>
> The idea is to generate a sequence of random numbers, then take the sum of it and keep the last value. Every time I hit "random"a new sequence is created.
>
> The above code returns the following error msg
>
> RandomVariate::array : "\"The array dimensions -1 + n given in position 2 \
> of RandomVariate[ExponentialDistribution[=CE=BB], -1 + n] should be a list of \
> non-negative machine-sized integers giving the dimensions for the result. \""
>
> and some weird output. After hitting "random", the output is what I expect but the whole Manipulate output is still red indicating that there are problems.
>
> Could you be so kind to point out what I did wrong and how to fix it? I feel that I did not quite get how Manipulate works.
>
> Many thanks
>
> Ed
Prev by Date:
**Plot InverseSurvivalFunction**
Next by Date:
**Re: Is Mathematica V.8.01 fully supported by Windows**
Previous by thread:
**Re: Help with Manipulate**
Next by thread:
**Re: Help with Manipulate**
| |