Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2011

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

Search the Archive

Plot artifact of NDSolve result

  • To: mathgroup at smc.vnet.net
  • Subject: [mg116097] Plot artifact of NDSolve result
  • From: Bert RAM Aerts <bert.ram.aerts at gmail.com>
  • Date: Wed, 2 Feb 2011 06:07:13 -0500 (EST)

Both in Mathematica 8.0.0 and 7.0.1 the plot of NDSolve result is
wrong near x-axis point 60. But when zooming in, plot is correct.

Notebook and screenshot of result are available on http://users.skynet.be/fa991376/

eqn4 = y''[t] == -y[t]^2 + t

sol4 = NDSolve[{eqn4, y[0] == 0, y'[0] == 1}, y, {t, 0, 70},
  WorkingPrecision -> 20, MaxStepSize -> 0.01]

Below plot contains the artifact:

Plot[Evaluate[{y[t], y'[t], y''[t]} /. sol4], {t, 0, 70},
 PlotRange -> All]

Below plot is correct:

Plot[Evaluate[{y[t], y'[t], y''[t]} /. sol4], {t, 50, 70},
 PlotRange -> All]

Is there a way to avoid this?


  • Prev by Date: Mystifying Scoping of Piecewise Variable?
  • Next by Date: Counting Matching Patterns in a Large File
  • Previous by thread: Re: Mystifying Scoping of Piecewise Variable?
  • Next by thread: Re: Plot artifact of NDSolve result