Re: Manipulate: Tracking symbols which are not stated explicitly
- To: mathgroup at smc.vnet.net
- Subject: [mg129401] Re: Manipulate: Tracking symbols which are not stated explicitly
- From: "Rolf.Mertig at gmail.com" <Rolf.Mertig at gmail.com>
- Date: Thu, 10 Jan 2013 21:42:17 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: l-mathgroup@wolfram.com
- Delivered-to: mathgroup-newout@smc.vnet.net
- Delivered-to: mathgroup-newsend@smc.vnet.net
- References: <kclq3q$9pj$1@smc.vnet.net>
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.... at 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}]