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}]