Re: Questions
- To: mathgroup at smc.vnet.net
- Subject: [mg27288] [mg27288] Re: Questions
- From: "Allan Hayes" <hay at haystack.demon.co.uk>
- Date: Sun, 18 Feb 2001 02:52:20 -0500 (EST)
- References: <96iq59$d7v@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Tony,
Mathematica can do all of these things, with a little programming.
Here are some suggestions.
Trans, below transforms a function that maps from R2 into R2 into one that
goes inside objects and acts appropriately on Points, Lines and Polygons.
One issue whether, as here you regard polyagons as rigid or as bendable --
in the latter case we have to replace lines by fine segmets, replace
polygons by polygons with disected sides and circles by lines and disks by
polygons.
The following works also in 3D.
Please note that the function from R2 to R2 defined list to list :
f[{x,y}] = , not f[x,y] =.
Trans[f_][ a:(Polygon|Line)[_]] :=Map[f,a ,{2}];
Trans[f_][ a_Point] :=Map[f,a,{1}]
Trans[f_][x_]:=
x/.a:(Polygon|Line|Point)[_]:>Trans[f][a]
Check the composition rules:
Trans[g][Trans[f][Polygon[{{0,0},{1,0},{1,1}}]]]
Polygon[{g[f[{0,0}]],g[f[{1,0}]],g[f[{1,1}]]}]
Trans[Composition[g,f]][Polygon[{{0,0},{1,0},{1,1}}]]
Polygon[{g[f[{0,0}]],g[f[{1,0}]],g[f[{1,1}]]}]
Example
Make a picture
gr=Show[Graphics[{{Hue[.2],Polygon[{{0,0},{1,0},{1,1}}]},
{AbsolutePointSize[22],Hue[0],Point[{.25,.6}]},
AbsoluteThickness[10],Hue[.7], Line[{{0,.5},{1,0}}]}],
Frame->True]
Define a function
f[pnt_]:= {{1,2},{-2,1}}.pnt
Apply the function
Show[Trans[f][gr]]
Try,
g[{x_, y_}] := {Sin[x + y], x - y};
in place of f.
--
Allan
---------------------
Allan Hayes
Mathematica Training and Consulting
Leicester UK
www.haystack.demon.co.uk
hay at haystack.demon.co.uk
Voice: +44 (0)116 271 4198
Fax: +44 (0)870 164 0565
"Tony" <tony at magic101.freeserve.co.uk> wrote in message
news:96iq59$d7v at smc.vnet.net...
> Does mathematica do reflections rotations of a given shape.
> I mean if I plot a triangle if I had a fuction such as
>
> f: R2 --> R2
> (x,y) I--->(y,x)
>
> Would mathematica do this and would it carry out composite function such
as
> GoF and FoG etc
>
> Oh so many questions to ask and so little time to .........
>
> Tony
>
>
>