{VERSION 2 3 "IBM INTEL NT" "2.3" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{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 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "with(plots); " }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "with(plottools):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "c:=curve([[0,0],[1,0]],colour=black
):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 104 "l:=seq(seq(plot([(2*
k-1)/2^n +cos(t)*2^(-n),sin(t)*2^(-n),t=0..Pi],colour=black),k=1..2^(n
-1)),n=1..6): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 114 "ll:=seq(seq(plot([(2*k-1)/(
2*3^n) +cos(t)*3^(-n)/2,sin(t)*3^(-n)/2,t=Pi..2*Pi],colour=black),k=1.
.3^(n)),n=0..4): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "displa
y(c,l,ll,scaling=constrained,axes=none,colour=black); " }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 102 "plotsetup(ps,plotoutput=`A.ps`,plo
toptions=`noborder, axisheight=10cm,axiswidth=10cm,portrait,color`);" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 103 "plotsetup(ps,plotoutput=
`A.gif`,plotoptions=`noborder, axisheight=10cm,axiswidth=10cm,portrait
,color`);" }}}}{MARK "8 0 0" 85 }{VIEWOPTS 1 1 0 1 1 1803 }