TimeValue around NDSolve

*To*: mathgroup at smc.vnet.net*Subject*: [mg127743] TimeValue around NDSolve*From*: Joe <design at rcn.com>*Date*: Sat, 18 Aug 2012 03:44:23 -0400 (EDT)*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

(* #1 This expression works. I am trying to get the Present Value using a variable discountRate for each value in this table. *) age = 65; eqn1 = y'[t] == 4.7/100 *y[t] - 5300; sol1 = y[t] /. NDSolve[{eqn1, y[age] == 100000}, y[t], {t, age, 110}]; Table[sol1, {t, age, 85}] (* #2 This attempt fails *) Manipulate[ age = 65; eqn1 = y'[t] == 4.7/100 *y[t] - 5300; sol2 = TimeValue[y[t] /. { NDSolve[{eqn1, y[age] == 100000}, y[t], {t, age, 110}]}, discountRate/100, 0]; Table[sol2, {t, age, 85}], {{discountRate, 1.6, "Discount Rate"}, .8, 3, .1,Appearance -> {"Labeled", Tiny}} ] (* #3 In the complete applet, this method calculates the PV correctly on opening but does not respond to the discountRate slider and eventually causes an error *) Manipulate[ age = 65; eqn1 = y'[t] == 4.7/100 *y[t] - 5300; sol2 = y[t] /. NDSolve[{eqn1, y[age] == 100000}, y[t], {t, age, 110}]; Table[TimeValue[sol2, discountRate/100, 0], {t, age, 85}], {{discountRate, 1.6, "Discount Rate"}, .8, 3, .1, Appearance -> {"Labeled", Tiny}} ] I hope this is a better description of the problem than I provided several days ago. Joe Rimback design at rcn.com Gaithersburg, MD

**Follow-Ups**:**Re: TimeValue around NDSolve***From:*Bob Hanlon <hanlonr357@gmail.com>