MathGroup Archive 2007

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

Search the Archive

Re: How show Locator point and its image under a function?


Here's a nice extension showing a dynamic point on a 3-D surface:

g[{x_, y_}] := {x, y, Sin[x + y]}
DynamicModule[{pts = {{0, 0}}}, 
 Row[{LocatorPane[Dynamic[pts], 
    Show[Graphics[{}, PlotRange -> 5], Axes -> True]], 
   Show[{Graphics3D[
      Dynamic[{Red, PointSize[0.02], Point /@ g /@ pts}], 
      PlotRange -> 5], Plot3D[Sin[x + y], {x, -5, 5}, {y, -5, 5}]}, 
    Axes -> True]}]]

(nice work guys)


  • Prev by Date: Fourier transform : failure with hyperbolic secant and log argument
  • Next by Date: Re: Progess bar in Mathematica
  • Previous by thread: Re: How show Locator point and its image under a function?
  • Next by thread: Re: Re: How show Locator point and its image under a function?