Re: Reading Coordinates from Plot
- To: mathgroup at smc.vnet.net
- Subject: [mg80132] Re: Reading Coordinates from Plot
- From: chuck009 <dmilioto at comcast.com>
- Date: Mon, 13 Aug 2007 04:36:24 -0400 (EDT)
This is a start. I'm new to 6 so hopefully others will post better solutions:
DynamicModule[{pts = {{0, 0}}},
Row[{LocatorPane[Dynamic[pts],
Show[Graphics[{}, PlotRange -> 5], Axes -> True]],
Show[{Graphics[Dynamic[Point@pts], PlotRange -> 5],
Plot[Sin[x], {x, -5, 5}]}, Axes -> True], Dynamic[pts]}]]