Re: Saving plotted data as ASCII text data ?
- To: mathgroup at smc.vnet.net
- Subject: [mg21923] Re: [mg21890] Saving plotted data as ASCII text data ?
- From: "Tomas Garza" <tgarza at mail.internet.com.mx>
- Date: Fri, 4 Feb 2000 02:54:50 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Udo Huebner [udo.huebner at ptb.de] wrote:
> I need to manipulate plotted data in other programs, i.e. the curve data
> as
> numerical data. OpenWrite["file"] and Write[...] could make the output,
> I think, but how to get the data of the curves itself which I could
> "Write"?
>
> Sorry, if my question is naive but I am not very skilled in Mathematica
> and I hope for help.
If I understand correctly, you want the curve data from a plot in a
Mathematica notebook. Ask for FullForm of the plot and it will give you,
among other things, the points or lines used to construct the curve. Check
then if it is Lines or Points what you want, and obtain them using Cases.
For example, suppose you have
In[1]:=
c = Plot[Sin[x],{x,0,Pi/2}]
Then, try
In[2]:=
FullForm[c]
I omit the output which is rather lengthy, but you will see there the
graphics primitives and options used by Mathematica to draw the curve. What
it actually says is "draw a series of line segments through the given
points". If now you write
In[3]:=
Cases[c,List[x_,y_],Infinity]
you will get the points presumably you need.
Tomas Garza
Mexico City