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

```

• Prev by Date: Re: right StoppingTest
• Next by Date: Symbolize