{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 14 " Cantor Snake" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{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 239 "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],[((2*a/3+2*b/3^2 +2*c/3^3+2*d/3^4+2*e/3^5+2*f/3^6)),1 ] ] , 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 233 "Fana:=seq(seq(seq(seq(seq(seq(curve( [ [((a/3+2*b/3^2 +2*c/3^3+2*d/3^ 4+2*e/3^5+2*f/3^6)),0],[((a/3+2*b/3^2 +2*c/3^3+2*d/3^4+2*e/3^5+2*f/3^6 )),1] ] , color=green, linestyle=1, thickness=1),a=1),b=0..0),c=0..0), d=0..0),e=0..0),f=0..0):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 236 "Fanb:=seq(seq(seq(seq(seq(seq(curve( [ [((2*a/3+b/3^2 +2*c/3^3+2* d/3^4+2*e/3^5+2*f/3^6)),0],[((2*a/3+b/3^2 +2*c/3^3+2*d/3^4+2*e/3^5+2*f /3^6)),1] ] , color=green, linestyle=1, thickness=1),a=0..1),b=0..3),c =0..0),d=0..0),e=0..0),f=0..0):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 236 "Fanc:=seq(seq(seq(seq(seq(seq(curve( [ [((2*a/3+2*b/3^2 +c/3^ 3+2*d/3^4+2*e/3^5+2*f/3^6)),0],[((2*a/3+2*b/3^2 +c/3^3+2*d/3^4+2*e/3^5 +2*f/3^6)),1] ] , color=green, linestyle=1, thickness=1),a=0..1),b=0.. 1),c=0..3),d=0..0),e=0..0),f=0..0):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 236 "Fand:=seq(seq(seq(seq(seq(seq(curve( [ [((2*a/3+2*b/ 3^2 +2*c/3^3+d/3^4+2*e/3^5+2*f/3^6)),0],[((2*a/3+2*b/3^2 +2*c/3^3+d/3^ 4+2*e/3^5+2*f/3^6)),1] ] , color=green, linestyle=1, thickness=1),a=0. .1),b=0..1),c=0..1),d=0..3),e=0..0),f=0..0):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 236 "Fane:=seq(seq(seq(seq(seq(seq(curve( [ [((2*a/3 +2*b/3^2 +2*c/3^3+2*d/3^4+e/3^5+2*f/3^6)),0],[((2*a/3+2*b/3^2 +2*c/3^3 +2*d/3^4+e/3^5+2*f/3^6)),1] ] , color=green, linestyle=1, thickness=1) ,a=0..1),b=0..1),c=0..1),d=0..1),e=0..3),f=0..0):" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 236 "Fanf:=seq(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+f/3^6)),0],[((2*a/3+2*b/3^2 +2*c /3^3+2*d/3^4+2*e/3^5+f/3^6)),1] ] , color=green, linestyle=1, thicknes s=1),a=0..1),b=0..1),c=0..1),d=0..1),e=0..1),f=0..3):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "s:=x->( 1+cos(14/(x+.2)/(x-1.2)))/2;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "S:=plot(s(3*(x-1/3)),x=.03+1/3 ..2/3-0.03, axes=none,numpoints=1 0, thickness=1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 81 "S1:=plo t(s(9*(x-1/9)),x=.01+1/9 ..2/9-0.01, axes=none,numpoints=10, thickness =1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 81 "S2:=plot(s(9*(x-7/9 )),x=.01+7/9 ..8/9-0.01, axes=none,numpoints=10, thickness=1):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "S3:=plot(s(27*(x-1/27)),x=.0 1+1/27 ..2/27-0.01, axes=none,numpoints=10, thickness=1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "S4:=plot(s(27*(x-7/27)),x=.01+7/27 \+ ..8/27-0.01, axes=none,numpoints=10, thickness=1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 97 "S5:=plot(s(27*(x-2/3-1/27)),x=.01+2/3+1/27 \+ ..2/3+2/27-0.01, axes=none,numpoints=10, thickness=1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 97 "S6:=plot(s(27*(x-2/3-7/27)),x=.01+2 /3+7/27 ..2/3+8/27-0.01, axes=none,numpoints=10, thickness=1):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 129 "plots[display](S,S1,S2,S3,S 4,S5,S6,Fan,Fana,Fanb,Fanc,Fand,Fane,Fanf,Fan,scaling=unconstrained, t hickness=1,axes=none,view=0..1);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 102 "plotsetup(ps,plotoutput=`A.ps`,plotoptions=`noborder , axisheight=5cm, axiswidth=10cm,portrait,color`);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 104 "plotsetup(gif,plotoutput=`A.gif`,plotoptio ns=`noborder, axisheight=5cm, axiswidth=10cm,portrait,color`);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "23 0 0" 0 } {VIEWOPTS 1 1 0 1 1 1803 }