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