Re: Saving plotted data as ASCII text data ?
- To: mathgroup at smc.vnet.net
- Subject: [mg21985] Re: Saving plotted data as ASCII text data ?
- From: "Allan Hayes" <hay at haystack.demon.co.uk>
- Date: Thu, 10 Feb 2000 02:25:29 -0500 (EST)
- References: <87b0l3$o52@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Odo,
gr = Plot[Sin[x], {x, 0, 7}]
Cases[gr, Line[data_] :> data, Infinity][[1]]
Infinity tells Cases to look at all levels. [[1]] takes the first, and here
only, member from the list of results.
Allan
---------------------
Allan Hayes
Mathematica Training and Consulting
Leicester UK
www.haystack.demon.co.uk
hay at haystack.demon.co.uk
Voice: +44 (0)116 271 4198
Fax: +44 (0)870 164 0565
"Udo Huebner" <udo.huebner at ptb.de> wrote in message
news:87b0l3$o52 at smc.vnet.net...
> Hello,
>
> 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.
>
> Regards Udo
>