Re: How to get data from solvin' numerically differential

*To*: mathgroup at smc.vnet.net*Subject*: [mg104145] Re: How to get data from solvin' numerically differential*From*: ÐÐÑÐÐÐ ÐÐÐÐÐÐÐÐÐ <shalm89 at gmail.com>*Date*: Wed, 21 Oct 2009 06:28:47 -0400 (EDT)*References*: <200910200852.EAA06203@smc.vnet.net> <20091020074951.EUPPU.620828.imail@eastrmwml47>

Bob, thank you for your answer. Should all the values(points of numerical solution of differential equation) appear after the command ListLinePlot? I can't see values of this points. Do you know, how can I integrate this interpolated function? Thank you again. Best regards, Mikhail Shalaginov 2009/10/20 Bob Hanlon <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. > >

**References**:**How to get data from solvin' numerically differential equation?***From:*ÐÐÑÐÐÐ ÐÐÐÐÐÐÐÐÐ <shalm89@gmail.com>