{VERSION 3 0 "IBM INTEL NT" "3.0" }
{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 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT 
-1 30 "    Universal Sierpinski curve" }}{PARA 0 "" 0 "" {TEXT -1 0 "
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 113 "ngon := (x,y,k) -> [seq([ x
+k+k*sqrt(2)*cos(2*Pi*ii/4+  \nPi/4), y+k+k*sqrt(2)*sin(2*Pi*ii/4+Pi/4
) ], ii = 0..3)]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 75 "p0:=di
splay([ polygonplot(ngon(0,0,1/2)) ], \ncolor=blue,style=PATCHNOGRID):
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 154 "pp:=seq(seq(seq(displa
y([polygonplot(ngon(((3*a+1)/3^n,(3*b+1)/3^n,1/(2*3^n))))], \ncolor=wh
ite,style=PATCHNOGRID),a=0..(3^n/3-1)),b=0..(3^n/3-1)),n=1..4):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "plots[display]([pp,p0],axes=
none);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 105 "plotsetup(gif,pl
otoutput=`E.gif`,plotoptions=`noborder, axisheight=10cm, axiswidth=10c
m,portrait,color`);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 103 "plo
tsetup(ps,plotoutput=`A.ps`,plotoptions=`noborder, axisheight=10cm, ax
iswidth=10cm,portrait,color`);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 0 "" }}}}{MARK "6 0 0" 73 }{VIEWOPTS 1 1 0 1 1 1803 }