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)