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

*To*: mathgroup at smc.vnet.net*Subject*: [mg79941] Re: [mg79880] Re: How show Locator point and its image under a function?*From*: DrMajorBob <drmajorbob at bigfoot.com>*Date*: Thu, 9 Aug 2007 05:21:02 -0400 (EDT)*Organization*: Deep Space Corps of Engineers*References*: <f990t4$c2d$1@smc.vnet.net> <19482328.1186576411439.JavaMail.root@m35>*Reply-to*: drmajorbob at bigfoot.com

But it doesn't. Bobby On Wed, 08 Aug 2007 03:43:15 -0500, Jens-Peer Kuska = <kuska at informatik.uni-leipzig.de> wrote: > Hi Murray, > > Manipulate[ > Row[{Framed@Graphics[Point[pt], PlotRange -> 5], > Framed@Dynamic[Graphics[Point[f[pt]], PlotRange -> 5]]}], > {{pt, {-1, 1/2}}, Locator} > ] > > may do it > Regards > Jens > > Murray Eisenberg wrote: >> The following code displays a fixed point and its image under a >> specified function f: >> >> f[{x_,y_}]:={2x+1,y+2} >> Module[{pt = {-1, 0.5}}, >> Row[{ >> Framed@Graphics[Point[pt], PlotRange -> 5], >> Framed@Graphics[Point[f[pt]], PlotRange -> 5] >> }] >> ] >> >> Now I want to have the point in the left-hand graphic to be dynamic, >> controlled by a Locator, and to have its changed image under the >> function to be shown in the right-hand graphic. >> >> The idea is something like the following (WRONG!) code: >> >> DynamicModule[{pts={{0,0}}}, >> Row[{ >> LocatorPane[Dynamic[pts],Graphics[{},PlotRange->5]], >> Graphics[Dynamic[f/@pts],PlotRange->5] >> }] >> ] >> >> That code produces error messages, "1 is not a Graphics primitive or >> directive", "2 is not a Graphics primitive or directive". >> >> How can it actually be done? >> > > -- = DrMajorBob at bigfoot.com