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