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

MathGroup Archive 2009

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

Search the Archive

Re: How to get data from solvin' numerically

  • To: mathgroup at smc.vnet.net
  • Subject: [mg104169] Re: [mg104129] How to get data from solvin' numerically
  • From: Bob Hanlon <hanlonr at cox.net>
  • Date: Wed, 21 Oct 2009 06:33:11 -0400 (EDT)
  • Reply-to: hanlonr at cox.net

s = y /. NDSolve[
     {y'[x] == y[x] Cos[x + y[x]], y[0] == 1},
     y, {x, 0, 30}][[1]];

p = Plot[s[x], {x, 0, 30}, PlotRange -> All,
  Frame -> True, Axes -> False]

Extracting the points from the plot

pts = Cases[p, {_?NumericQ, _?NumericQ}, {6}];

Length[pts]

1281

ListLinePlot[pts, PlotRange -> All,
 Frame -> True, Axes -> False]


Bob Hanlon

---- "=D0=9C=D0=B8=D1=85=D0=B0=D0=B8=D0=BB =D0=A8=D0=B0=D0=BB=D0=B0=D0=B3=
=D0=B8=D0=BD=D0=BE=D0=B2" <shalm89 at gmail.com> wrote:

=============
Hi,
Mathematica solves numerically differential equation and makes
interpolation. I can plot this interpolating function. Can I save all
the points in a file or somehow get this data?
Best regards, Mikhail Shalaginov.



  • Prev by Date: FindMinimum on Nehalem
  • Next by Date: Filling problem in ListLine Plot -- depends on the order of list ?
  • Previous by thread: FindMinimum on Nehalem
  • Next by thread: Re: How to get data from solvin' numerically