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