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

*To*: mathgroup at smc.vnet.net*Subject*: [mg79921] Re: How show Locator point and its image under a function?*From*: chuck009 <dmilioto at comcast.com>*Date*: Thu, 9 Aug 2007 05:10:36 -0400 (EDT)

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)