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