Re: Interpolation
- To: mathgroup at yoda.physics.unc.edu
- Subject: Re: Interpolation
- From: "Bart M. ter Haar Romeny" <bart at cv.ruu.nl>
- Date: Sun, 31 Jan 1993 13:33:41 +0100 (MET)
> 2) Question: Does anyone have the code that Plot uses to build up its
> list of plot points? If not, would WRI be willing to make it available as
> a function which returns the list of plot points?
This is described in the very useful book "Mathematica, a practical
approach" of Nancy Blachman, on page 69-70. This is the example given:
In[9]:= test = Plot[Sin[x], {x,0,2Pi},
DisplayFunction -> Identity];
In[10]:= Show[Graphics[{
Thickness[0.001],
Map[
Line[{{#[[1]], 0}, #}]&,
Nest[First, test, 4]
]}], Axes -> Automatic];
This does the trick.
Bart
--
-------------------------------------------------------------------------
Bart M. ter Haar Romeny Ph.D. E-mail: bart at cv.ruu.nl
3D Computer Vision Research Group Tel: +31-30-506695/507772
University Hospital Utrecht, E02.222 Fax: +31-30-513399
Heidelberglaan 100, 3584 CX Utrecht, The Netherlands
-------------------------------------------------------------------------