{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 4 " " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "with(plottools):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 26 "aa:=curve([[-1,0],[2,0]]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 149 "ppp:=seq(seq(display([curve([[(3*a+1)/3^n+1/(2* 3^n),0],[(3*a+1)/3^n+1/(2*3^n),2/(2*3^n)]])], \ncolor=black,style=PATC HNOGRID),a=0..(3^n/3-1)),n=1..5):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 197 "Fan:=s eq(seq(seq(seq(seq(seq(curve( [ [((2*a/3+2*b/3^2 +2*c/3^3+2*d/3^4+2*e/ 3^5+2*f/3^6)),0],[ 1/2,-1/2] ] , color=green , linestyle=1, thickness= 1),a=0..1),b=0..1),c=0..1),d=0..1),e=0..1),f=0..1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "plots[display]([Fan,ppp,aa],axes=none,sca ling=constrained);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 105 "plot setup(gif,plotoutput=`a.gif`,plotoptions=`noborder, axisheight=10cm, a xiswidth=10cm,portrait,color`);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 103 "plotsetup(ps,plotoutput=`A.ps`,plotoptions=`noborder, axishei ght=10cm, axiswidth=10cm,portrait,color`);" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}}{MARK "9 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }