Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2001
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2001

[Date Index] [Thread Index] [Author Index]

Search the Archive

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
  • Previous by thread: Re: A question about Plot
  • Next by thread: symbolic and perturbative recursivity