{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 }