Re: Exporting ContourPlot data into text file to plot somewhere else..
- To: mathgroup at smc.vnet.net
- Subject: [mg91357] Re: Exporting ContourPlot data into text file to plot somewhere else..
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Sun, 17 Aug 2008 06:41:29 -0400 (EDT)
- References: <g86832$hq8$1@smc.vnet.net>
Hi,
cntrplt = ContourPlot[
x*Exp[-x^2 - y^2], {x, -3, 3}, {y, -2, 2}, ContourShading -> False,
Contours -> 64];
lst = Cases[cntrplt /. gc_GraphicsComplex :> Normal[gc], _Line,
Infinity] /. Line :> List;
and to see if it had worked
Graphics[Line @@@ lst]
Regards
Jens
malawk at gmail.com wrote:
> Hi
>
> How can I export ContourPlot data to a text file?
>
> I read some instructions in this forum to do this for normal plots:
>
> e.g.:
>
> plt = Plot[Sin[x], {x, 0, 5}]
> First[Cases[plt, _Line, Infinity] /. Line[pnts_] :> pnts]
>
> which return a neat list of pairs of numbers to plot somewhere else.
> With ContourPlot though, this command returns only one column of
> numbers in sequencial order... Not good...!
>
> Thanks for any tip you can offer..
>
> Angel
>
>