MathGroup Archive 1995

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

Search the Archive

Re: Extracting data points from Plot[]

  • To: mathgroup at
  • Subject: [mg789] Re: Extracting data points from Plot[]
  • From: ianc (Ian Collier)
  • Date: Wed, 19 Apr 1995 00:33:53 -0400
  • Organization: Wolfram Research, Inc

In article <newsclip4413mkue3$rrh at>, j-guyer at
(Jon Guyer) wrote:

> What I'm wondering, though, is if there isn't something a bit more
> straightforward than "InputForm[%1][[1]][[1]][[2]][[1]][[1]][[1]]" to get
> at the data points?  Is there a way to generate these data series the way
> Plot[] does, without using Plot (which necessitates stripping off the
> "Graphics" and "Line" structures which make up the bulk of the
> sub-sub-sub-arrays that I'm referencing).
> Am I being obtuse?
> -- 
> Jonathan E. Guyer                        j-guyer at

Here is a method (taken from "The Mathematica Graphics 
Guidebook"). (Note that I only use Short so that the resulting 
list of numbers does not take up too much bandwidth. 

    gr1 = Plot[ Sin[x], {x,0,2 Pi}]

    p1 = Nest[ First, gr1, 4]//Short
{{0., 0.}, <<78>>, {6.28319, 1.0842 10   }}

"The Mathematica Graphics Guidebook" by Cameron Smith and
Nancy Blachman is published by Addison-Wesley.

I hope this helps.


Ian Collier
Technical Sales Support
Wolfram Research, Inc.
Tel (217) 398-0700        Fax (217) 398-0747        ianc at
Wolfram Research Home Page         

  • Prev by Date: Mathlink Question
  • Next by Date: Factorization package
  • Previous by thread: Re: Extracting data points from Plot[]
  • Next by thread: Re: Extracting data points from Plot[]