{VERSION 5 0 "IBM INTEL LINUX" "5.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 
0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "T:= x ->  [ x[1]+3,x
[2] ];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "S:= x ->  [ x[1]+
1.5 , x[2]+1.5*sqrt(3) ];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 
"P:=[0,0];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "T(P);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "S(P);" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 14 "evalf( S(P) );" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 9 "(T@S)(P);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 
"(S@T)(P);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "S(T(P));" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "rhombus:=[ P, S(P), (S@T)(P)
, T(P) ];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "polygonplot(rhombus,axes=
none,color=blue);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "rhombu
s2:=map(T,rhombus);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 133 "dis
play(\n   \{ polygonplot(rhombus,axes=none,color=blue) ,\n     polygon
plot(rhombus2,axes=none,color=red) \},\n   scaling=CONSTRAINED );" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "4" 0 }{VIEWOPTS 
1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }