MathGroup Archive 2010

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

Search the Archive

Re: Mimicking the TI calculator graph "trace" function

Don't know anything about the calculator but this may be close to what you want:

f[x_] := (x + 2) (x - 1) (x - 3)

 Module[{fp, pt, xdel = 0.1, xmin = -3, xmax = 4},
  Plot[f[x], {x, xmin, xmax},
   Frame -> True,
   Epilog -> {Text[
      {p, NumberForm[fp = f[p], 3]},
      pt = {p, fp},
      {If[p < (xmax + xmin)/2, -1.5, 1.5],
       If[fp < 0, -1, 1]}],
     If[fp == 0 ||
       Abs[f'[p]] < Abs[f'[p - xdel]] &&
        Abs[f'[p]] < Abs[f'[p + xdel]],
      Directive[AbsolutePointSize[6], Red],
      Directive[AbsolutePointSize[4], Blue]],
 {{p, -3, x}, -3, 4, 0.1,
  Appearance -> "Labeled"}]

Bob Hanlon

---- John Accardi <accardi at> wrote: 

Hello ....

I'm trying to find the easiest way to get Mathematica to do what a TI-84 
calculator does with the "trace" button on a graph.  (displays x,y 
coordinates at tracing cursor positions).  Alternately, I could live 
with having the intersection point(s) of two graphs dynamically display, 
with label(s), on a plot, along with the function graphs.  I know I can 
do this in a table of values, but I want to see point and label on the 
graph plot.

This document describes much of it, but you have to hard code the 
solution point to create the point label:

(The above document contains a link to the *.nb being described.)

I guess I am looking for any code that exists where the point label is 
created dynamically after a solution point is calculated and included in 
the plot.

This seems like a very common thing to want to do but I cannot seem to 
find anything in the archive/forum that does anything like this.

Thanks for any insights.



Bob Hanlon

  • Prev by Date: Re: evaluation of a non-visible dynamic[]
  • Next by Date: Re: Visualizing a geometric problem
  • Previous by thread: Mimicking the TI calculator graph "trace" function
  • Next by thread: simplifying an expression using non-commutative algebra