{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 "Times" 1 14 0 
0 0 0 2 2 2 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "M
aple Plot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
}3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "R3 Font 0" -1 256 1 
{CSTYLE "" -1 -1 "Helvetica" 1 14 0 0 0 0 2 1 2 0 0 0 0 0 0 1 }0 0 0 
-1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "R3 Font 2" -1 257 1 {CSTYLE "" -1 
-1 "Courier" 1 14 0 0 0 0 2 2 2 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 
0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "Pt:=z->[Re(z),Im(z),0];" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 173 "colorsquare:=\n    plot3d(
\{ Pt(x+I*y)  \},\n    x=0.5..1.5,y=-0.5..0.5,\n    scaling=CONSTRAINE
D,color=x,style=patchnogrid,                    grid=[50,50],orientati
on=[-90,0]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "display([co
lorsquare]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "a:=1+.4*I;
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 166 "colorsquare:=n->\n    \+
plot3d(\{ Pt(a^n*(x+I*y))  \},\n    x=0.5..1.5,y=-0.5..0.5,\n    scali
ng=CONSTRAINED,color=x,style=patchnogrid,                        grid=
[50,50]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 113 "display([seq(
 colorsquare(n), n=0..20)],\n      insequence=true, scaling=CONSTRAINE
D,\n      orientation=[-90,0] );" }}{PARA 13 "" 1 "" {TEXT -1 0 "" }}}
}{MARK "2 0 0" 169 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 
1 2 33 1 1 }