MathGroup Archive 2002

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

Search the Archive

Re: RE: Trace a function

  • To: mathgroup at smc.vnet.net
  • Subject: [mg34999] Re: [mg34990] RE: [mg34978] Trace a function
  • From: Murray Eisenberg <murraye at attbi.com>
  • Date: Wed, 19 Jun 2002 05:52:32 -0400 (EDT)
  • Organization: Mathematics & Statistics, Univ. of Mass./Amherst
  • References: <200206180648.CAA23362@smc.vnet.net>
  • Reply-to: murray at math.umass.edu
  • Sender: owner-wri-mathgroup at wolfram.com

This is very useful!  

Note the typo in the Animate cell: "gpoints" should be "pts" to be
consitent with the example GeneratePlotPoints cell.

David Park wrote:
> 
> Declan,
> 
> With a little work you can duplicate the graphical calculator trace plot
> function.
> 
> Here are are a couple of routines and an example.
> 
> Needs["Graphics`Animation`"]
> Needs["Graphics`Colors`"]
> 
> This routine extracts the plot points from a plot statement. You use it just
> like you use a Plot statement.
> 
> GeneratePlotPoints[f_, iter_, opts___?OptionQ] :=
>   Block[{g, pts, $DisplayFunction = Identity},
>     g = First[Plot[f, iter, opts]];
>     First[Cases[g, Line[pts_] -> pts, Infinity]]
>     ]
> 
> This generates the points for a sample curve. The points are the ones that
> Mathematica's adaptive plotting routine generated.
> 
> pts = GeneratePlotPoints[x^2, {x, 0, 1}];
> 
> We are going to generate an animation that will plot the line in black, a
> selected point in Red, and label the coordinates of the point at a user
> specified text position in the plot.
> 
> trace[npoint_, pts_, textposition_] :=
>     Module[{x, y},
>       {x, y} = pts[[npoint]];
>       Show[Graphics[
>           {Line[pts],
>             AbsolutePointSize[5], Red,
>             Point[{x, y}],
>             Black,
>             Text[SequenceForm["x = ", NumberForm[x, 3], "\ny = ",
>                 NumberForm[y, 3]], textposition, {-1, 0}]}],
>         Frame -> True,
>         FrameLabel -> {"x", "y"},
>         ImageSize -> 500]];
> 
> You could look a a specific point by evaluating trace with the point index,
> or better yet produce an animation.
> 
> Animate[trace[n, pts, Scaled[{0.1, 0.9}]], {n, 1, Length[gpoints], 1}]
> SelectionMove[EvaluationNotebook[], All, GeneratedCell]
> FrontEndTokenExecute["OpenCloseGroup"]
> FrontEndTokenExecute["SelectionAnimate"]
> 
> Use the up and down arrow keys to trace the point along the curve and see
> the coordinate values. (Using the up and down arrow keys are often the best
> method for viewing an animation.)
> 
> David Park
> djmp at earthlink.net
> http://home.earthlink.net/~djmp/
> 
> > From: Declan O'Reilly [mailto:declan at mcs.com]
> >
> >
> > Hi
> >     Is there a way to trace along the plot of a function similar to the
> > 'Trace' functionality on a graphing calculator.
> >
> > Thanks
> > Declan O'Reilly
> >
> >

-- 
Murray Eisenberg                     murray at math.umass.edu
Mathematics & Statistics Dept.       
Lederle Graduate Research Tower      phone 413 549-1020 (H)
University of Massachusetts                413 545-2859 (W)
710 North Pleasant Street
Amherst, MA 01375


  • Prev by Date: RE: Colors
  • Next by Date: Re: Re: Functionality and Reliability
  • Previous by thread: RE: Trace a function
  • Next by thread: Mathlink for Excel troubles with XP