Search All of the Math Forum:

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

Topic: Manipulate: Tracking symbols which are not stated explicitly
Replies: 1   Last Post: Jan 10, 2013 9:39 PM

 Messages: [ Previous | Next ]
 Rolf.Mertig@gmail.com Posts: 38 Registered: 11/23/05
Re: Manipulate: Tracking symbols which are not stated explicitly
Posted: Jan 10, 2013 9:39 PM

With[{reprule={end->endval}},
Manipulate[NDSolve[{y''[x]+Sin[y[x]] y[x]==0,y[0]==1,y'[0]==0},y,{x,0,end}/.reprule],{endval,10,20}]
]

will work.

Am Donnerstag, 10. Januar 2013 08:20:26 UTC+1 schrieb abed....@gmail.com:
> Hello,
>
> I am trying to use the Manipulate command to adjust symbols which are not stated explicitly within the command. Is this possible? I am using Mathematica 7.0.1.0. Consider these examples:
>
>
>
> The code below works:
>
>
>
> Manipulate[
>
> reprule = {end -> endval};
>
> NDSolve[{y''[x] + Sin[y[x]] y[x] == 0, y[0] == 1, y'[0] == 0},
>
> y, {x, 0, end} /. reprule], {endval, 10, 20}]
>
>
>
> However, this one tells me that "Endpoint endval is not a real number":
>
>
>
> reprule = {end -> endval};
>
> Manipulate[
>
> NDSolve[{y''[x] + Sin[y[x]] y[x] == 0, y[0] == 1, y'[0] == 0},
>
> y, {x, 0, end} /. reprule], {endval, 10, 20}]

Date Subject Author
1/10/13 Abed Alnaif
1/10/13 Rolf.Mertig@gmail.com