MathGroup Archive 2007

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


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?
> 
Murray,

You forgot to make Point objects in your Graphics!

DynamicModule[{pts = {{0, 0}}},
  Row[{LocatorPane[Dynamic[pts], Graphics[{}, PlotRange -> 5]],
    Graphics[Dynamic[Point /@ f /@ pts], PlotRange -> 5]}]]

David Bailey
http://www.dbaileyconsultancy.co.uk


  • Prev by Date: FindRoot can NOT handle mixed real and complex variables
  • Next by Date: Re: How show Locator point and its image under a function?
  • Previous by thread: Re: How show Locator point and its image under a function?
  • Next by thread: Re: Re: How show Locator point and its image under a function?