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