Re: RE: A question about Plot

*To*: mathgroup at smc.vnet.net*Subject*: [mg31725] Re: [mg31717] RE: A question about Plot*From*: BobHanlon at aol.com*Date*: Thu, 29 Nov 2001 00:13:46 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

In a message dated 2001/11/28 2:02:04 AM, deniz.seker at arcelik.com.tr writes: >I have a result of NDSolve. The result is given as an Interpolating >Function. Te[t,x] is the function I had. Now, I had to graph this function >for a special t and chancing x values. Needs["Graphics`Colors`"]; solution = NDSolve[ {D[Te[t, x], x] == D[Te[t, x], t, t], Te[t, 0] == 6*t - 6*t^4 + t^2, Te[0, x] == 0, Te[1, x] == 1}, Te, {t, 0, 1}, {x, 0, 0.5}][[1]]; Plot[Evaluate[ {Te[1,x], Te[0.5, x], Te[0,x]} /. solution], {x,0, 0.5}, PlotStyle -> {Blue, Green, Red}, PlotRange -> All]; Plot[Evaluate[ {Te[t,0], Te[t, 0.25], Te[t,0.5]} /. solution], {t,0, 1}, PlotStyle -> {Blue, Green, Red}, PlotRange -> All]; Bob Hanlon Chantilly, VA USA