Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • Prev by Date: Getting rid of ProductLog
  • Next by Date: Re: how to convert a matrix to a graphy
  • Previous by thread: Questions about Graph output
  • Next by thread: Re: Questions about Graph output