Re: Questions about Graph output
- To: mathgroup at smc.vnet.net
- Subject: [mg49228] Re: [mg49200] Questions about Graph output
- From: Yasvir Tesiram <yat at omrf.ouhsc.edu>
- Date: Thu, 8 Jul 2004 02:51:04 -0400 (EDT)
- References: <200407070542.BAA25007@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
Here is a quick modification,
plt2 = ContourPlot[Sin[x y], {x, -1, 1}, {y, -1, 1}, Contours -> {-.5,
.5}]
plt3 = ListContourPlot[Table[x^2 + y^2 + Random[Real, {-0.2, 0.2}], {x,
-2, 2,
0.1}, {y, -2, 2, 0.1}]];
Cases[InputForm[plt2], ContourGraphics[x__] -> x][[1]]
Cases[InputForm[plt3], ContourGraphics[x__] -> x][[1]]
Cheers
Yas
On Jul 7, 2004, at 12:42 AM, Daohua Song wrote:
> Dear Friends,
> (1)I saw several lines about how to save a graph in the forum
> before,
> but i can not catch the point. how does it work?
> plt1 = Plot[Sin[x], {x, 0, 2Pi}];
> mydata = Flatten[Cases[plt1, Line[x__] -> x, Infinity], 1];
> Export["mydata.txt", mydata, "CSV"];
>
> (2) If i use implicit plot or contour plot, for example
> draw f[x,y]==Constant. My question is :
> how to save the curve to data points i can deal with(just like
> (1)),
> so i can work out the perimeter of this curve, area if it is closed
> etc.
>
> Thank you very much!
> Daohua
- References:
- Questions about Graph output
- From: Daohua Song <ds2081@columbia.edu>
- Questions about Graph output