{VERSION 3 0 "SUN SPARC SOLARIS" "3.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 } {CSTYLE "" -1 23 "Courier" 1 10 0 0 0 0 0 0 0 0 0 0 3 0 0 }{PSTYLE "No rmal" -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 }{PSTYLE "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Plot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {PARA 0 "" 0 "" {TEXT 23 1 " " }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "\nwith(plots):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 167 "line:=proc(a,b)\nlocal plotoptions ,n;\nif nargs >2 then\n plotoptions:=seq(args[n], n=3 .. nargs) \nels e plotoptions := [];\nfi;\nplot([a,b], style=line, plotoptions);\nend; " }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%%lineGR6$%\"aG%\"bG6$%,plotoptio nsG%\"nG6\"F,C$@%2\"\"#9#>8$-%$seqG6$&9\"6#8%/F:;\"\"$F1>F37\"-%%plotG 6%7$9$9%/%&styleGF$F3F,F,F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "createsegment := (a,b,h) -> line([a,h],[b,h],color=red):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "f1:=x->x/3: f2:=x->(x+2)/3: " }}{PARA 0 "" 0 "" {TEXT 23 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "f := s -> s union map(f1, s) union map(f2, s):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 185 "sequence_of_segments := pro c(l,h)\n local accumulate, i;\naccumulate:=op([]);\nfor i to nops(l) \+ by 2 do\n accumulate:=accumulate,createsegment(l[i],l[i+1],h)\nod;\nR ETURN(accumulate);\nend; " }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%5sequen ce_of_segmentsGR6$%\"lG%\"hG6$%+accumulateG%\"iG6\"F,C%>8$-%#opG6#7\"? (8%\"\"\"\"\"#-%%nopsG6#9$%%trueG>F/6$F/-%.createsegmentG6%&F;6#F5&F;6 #,&F5F6F6F69%-%'RETURNG6#F/F,F,F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 298 "Cantor := proc(n) \nlocal s , i;\noption remember;\ns := sequence_of_segments([0,1], 0);\nfor i fr om 1 to n do\ns := s, sequence_of_segments(sort([op((f@@i)(\{0,1\}))]) , i/n);\nod;\ndisplay(\{s\}union\{seq(textplot([[0,i/n, `0`], [1, i/n, `1`]],\nalign=ABOVE), i=0..n)\}, color=blue,axes=NONE, thickness=0); \nend;\n" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%'CantorGR6#%\"nG6$%\"sG% \"iG6#%)rememberG6\"C%>8$-%5sequence_of_segmentsG6$7$\"\"!\"\"\"F5?(8% F6F69$%%trueG>F06$F0-F26$-%%sortG6#7#-%#opG6#--%#@@G6$%\"fGF86#<$F5F6* &F8\"\"\"F9!\"\"-%(displayG6&-%&unionG6$<#F0<#-%$seqG6$-%)textplotG6$7 $7%F5FM%\"0G7%F6FM%\"1G/%&alignG%&ABOVEG/F8;F5F9/%&colorG%%blueG/%%axe sG%%NONEG/%*thicknessGF5F-F-F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "Cantor(6);" }} {PARA 13 "" 1 "" {INLPLOT "6^t-%'CURVESG6%7$7$$\"1-e8pC!e8*!#;$\"1mmmm mmmmF*7$$\"1f#f#f#f#f#*F*F+-%'COLOURG6&%$RGBG$\"*++++\"!\")\"\"!F7-%&S TYLEG6#%%LINEG-F$6%7$7$$\"12uS2uS2uF*F+7$$\"1k3`(>k3`(F*F+F0F8-F$6%7$7 $$\"1@Vl()4KawF*$\"1MLLLLLL$)F*7$$\"12)G5Dtap(F*FKF0F8-F$6%7$7$$\"1JW8 Q=aX#*F*$\"\"\"F77$F.FVF0F8-F$6%7$7$$\"1QcT$>r*[nF*FK7$$\"1C,zcM7!z'F* FKF0F8-F$6%7$7$$\"10&3A\"fh>LF*FV7$$\"1LLLLLLLLF*FVF0F8-F$6%7$7$$\"1)) ))))))))))))))F*Fco7$FVFcoF0F8-F$6%7$7$F+Fco7$$\"1yxxxxxxxF*FcoF0F8-F$ 6%7$7$F(FV7$$\"1J1E!*)>&\\\"*F*FVF0F8-F$6%7$7$$\"1$G')**o$R(4\"F*FV7$$ \"166666666F*FVF0F8-F$6%7$7$$\"1Vl()4Kaw)*F*F+7$FVF+F0F8-F$6%7$7$$\"1E mtZ)e*p5F*FV7$$\"1a9')oin$3\"F*FVF0F8-F$6%7$7$F7$\"1+++++++]F*7$$\"1.P q.Pq.P!#k3`(*F*F+F0F8-F $6%7$7$$\"1=aX#\\Hlc$F\\sFV7$FjrFVF0F8-F$6%7$7$FasFV7$$\"1eWv]qMV'*F*F VF0F8-F$6%7$7$F+FV7$$\"1'\\\"z(3%Q!o'F*FVF0F8-F$6%7$7$$\"1%Hlc.1kx'F*F V7$FjnFVF0F8-F$6%7$7$$\"1#H.W^Dmt(F*FK7$FapFKF0F8-F$6%7$7$FioFK7$$\"1v LE_6/I*)F*FKF0F8-F$6%7$7$$FAF\\sFV7$$\"1#pb'=;eWvF\\sFVF0F8-F$6%7$7$$ \"1AAAAAAAAF*Fgr7$$\"1#f#f#f#f#f#F*FgrF0F8-F$6%7$7$$\"1kql\\A%[V(F*FV7 $$\"1%*=yq'f&[uF*FVF0F8-F$6%7$7$F7FK7$$\"1g&[uLE_6%!#=FKF0F8-F$6%7$7$F dvFgr7$FaqFgrF0F8-F$6%7$7$$\"1jH'H'H'H'HF*Fgr7$FcoFgrF0F8-F$6%7$7$$\"1 !e8pC!e8pF*FK7$$\"1m!)G5DtapF*FKF0F8-F$6%7$7$$\"1?r*[n_/B)FaxFK7$$\"1o XB,zcM7F\\sFKF0F8-F$6%7$7$$\"1\"fh>L-F2$F*FV7$$\"1?k3`(>k3$F*FVF0F8-F$ 6%7$7$$\"1M&faQ6tB$F*FV7$$\"1iVe1)G5D$F*FVF0F8-F$6%7$7$$\"1gyj:M>r*)F* FK7$$\"1YB,zcM7!*F*FKF0F8-F$6%7$7$F\\wFV7$$\"1^qMV'RfB#F*FVF0F8-F$6%7$ 7$$\"11d'\\A%[VFF\\sFV7$$\"1#*R@O%e1)GF\\sFVF0F8-F$6%7$7$$\"1'Gz=Zkql* F*FV7$$\"1;T+$*=yq'*F*FVF0F8-F$6%7$7$$\"1Cj\"*3:5%p'F*FV7$$\"1`6/I*=yq 'F*FVF0F8-F$6%7$7$FgnFV7$$\"1m/a9')oinF*FVF0F8-F$6%7$7$F+FK7$F[^lFKF0F 8-F$6%7$7$$\"1,'yj:M>r*F*FV7$$\"1HM]x:lD(*F*FVF0F8-F$6%7$7$FIF+7$FapF+ F0F8-F$6%7$7$FbyF+7$$\"1Pq.Pq.PqF*F+F0F8-F$6%7$7$$\"1O\"pC!e8pCF\\sFK7 $Fi\\lFKF0F8-F$6%7$7$$\"1faQ6tBj\"*F*FV7$$\"1)G5Dtap<*F*FVF0F8-F$6%7$7 $F+Fgr7$F\\`lFgrF0F8-F$6%7$7$$\"1zR!*Hev\"o(F\\sFV7$$\"1kA:T+$*=yF\\sF VF0F8-F$6%7$7$F7F77$FVF7F0F8-F$6%7$7$F@Fgr7$FapFgrF0F8-F$6%7$7$F@FV7$$ \"1OA`G[7@uF*FVF0F8-F$6%7$7$F7$\"1nmmmmmm;F*7$FcoFaclF0F8-F$6%7$7$F(FK 7$F\\alFKF0F8-F$6%7$7$$\"1[)e*p5=#H$F\\sFK7$FjrFKF0F8-F$6%7$7$FioFgr7$ F.FgrF0F8-F$6%7$7$$\"1>r*[n_/B)F\\sFV7$$\"10a9')oin$)F\\sFVF0F8-F$6%7$ 7$$\"1e#G')**o$R(*F*FV7$FdsFVF0F8-F$6%7$7$$\"1=v)yDG')**)F*FV7$Fi[lFVF 0F8-F$6%7$7$$\"1_DmtZ)e*pF*FK7$F\\`lFKF0F8-F$6%7$7$F+Facl7$FVFaclF0F8- F$6%7$7$Fb`lFV7$$\"1@ur8+J1EF\\sFVF0F8-F$6%7$7$$\"1uZ)e*p5=#*F*FK7$F.F KF0F8-F$6%7$7$$F^dlF*FK7$FcoFKF0F8-F$6%7$7$FdvFK7$FjalFKF0F8-F$6%7$7$F \\wFco7$FcoFcoF0F8-F$6%7$7$FasFgr7$FVFgrF0F8-F$6%7$7$F7Fco7$FaqFcoF0F8 -F$6%7$7$$\"1zj:M>r*[(F*FV7$$\"127Gb$HM](F*FVF0F8-F$6%7$7$$\"1z=Zkql\\ AF*FV7$$\"13nf&[uLE#F*FVF0F8-F$6%7$7$FioF+7$Fi[lF+F0F8-F$6%7$7$F7F+7$F ^zF+F0F8-F$6%7$7$FasFK7$Fb]lFKF0F8-F$6%7$7$FidlFK7$$\"1v>k3`(>k)F\\sFK F0F8-F$6%7$7$FbyFV7$$\"14%Q!owHFpF*FVF0F8-F$6%7$7$$\"1$>r*[n_/BF*FV7$$ \"1Ag4qTC=BF*FVF0F8-F$6%7$7$F@FK7$FhwFKF0F8-F$6%7$7$$\"1!p$R(4,[])F\\s FV7$Ff[mFVF0F8-F$6%7$7$FgqFV7$$\"1s8+J1E!*)*F*FVF0F8-F$6%7$7$Fb`lF+7$F jrF+F0F8-F$6%7$7$F^rFK7$FaqFKF0F8-F$6%7$7$$\"1PK;*3:5%pF*FV7$FeyFVF0F8 -F$6%7$7$$FhqF\\sFV7$$\"1$[7@ur8+\"F*FVF0F8-F$6%7$7$F]_lFK7$FdsFKF0F8- F$6%7$7$F`_mFK7$$\"1S@O%e1)G5F*FKF0F8-F$6%7$7$F]dlFV7$$\"1Lr?\"Gb$HMF \\sFVF0F8-F$6%7$7$FdvF+7$Ff[mF+F0F8-F$6%7$7$FjglFV7$$\"1wO3\"\\)*eI$F* FVF0F8-F$6%7$7$$\"1+i7_!yR!**F*FV7$$\"1H5Dtap<**F*FVF0F8-F$6%7$7$$\"1N gSwn9L#F*FV7$$\"1zcM7!zcM#F*FVF0F 8-F$6%7$7$F`_mF+7$FaqF+F0F8-F$6%7$7$F\\wFK7$F`jlFKF0F8-F$6%7$7$FIFV7$$ \"1]\"z(3%Q!owF*FVF0F8-F$6%7$7$FgqFK7$FjamFKF0F8-F$6%7$7$$Fc`lF*FV7$$ \"1kRfBK&G[#F*FVF0F8-F$6%7$7$FcglFV7$$\"1-'4qTC=B*F*FVF0F8-F$6%7$7$F\\ wF+7$FjbmF+F0F8-F$6%7$7$$\"1yR!*Hev\"o(F*FV7$FNFVF0F8-F$6%7$7$Fc\\mFK7 $FjbmFKF0F8-F$6%7$7$FfdmF+7$F_wF+F0F8-F$6%7$7$FdilFK7$FCFKF0F8-F$6%7$7 $$\"1:biOx%)e**F*FK7$FVFKF0F8-F$6%7$7$$\"1$z=Zkql\\#F*FV7$$\"1AO%e1)G5 DF*FVF0F8-F$6%7$7$F`gmFV7$$\"1V.vd^cs**F*FVF0F8-F$6%7$7$F[yF+7$FgzF+F0 F8-F$6%7$7$$\"12\"=#H.W^DF*FK7$F_wFKF0F8-F$6%7$7$$\"16tBj\"*3:5F*FV7$F ^`mFVF0F8-F$6%7$7$$\"1w)4Kaw)4KF*FV7$$\"10ZLkRfBKF*FVF0F8-F$6%7$7$F`fl FV7$$\"1!Q(y%>-'4qF*FVF0F8-F$6%7$7$FjimF+7$FcoF+F0F8-F$6%7$7$FfdmFK7$F jgmFKF0F8-F$6%7$7$F+F+7$FjnF+F0F8-F$6%7$7$FfuFV7$$\"1@\"Gb$HM]xF*FVF0F 8-F$6%7$7$F\\imFV7$$\"1OHM]x:lDF*FVF0F8-F$6%7$7$$\"1s^()yDG')**F*FV7$F VFVF0F8-F$6%7$7$F7FV7$$\"1`G[7@ur8FaxFVF0F8-F$6%7$7$F[yFK7$$\"1\\uLE_6 /IF*FKF0F8-%%TEXTG6%7$F7$\"+++++]!#5%\"0G%+ALIGNABOVEG-Fi]n6%7$FVF\\^n %\"1GF`^n-F$6%7$7$$\"1\\Hlc.1kxF*FV7$FapFVF0F8-F$6%7$7$F[zFV7$$\"1t*zt y%>-'*FaxFVF0F8-F$6%7$7$$\"13A\"fh>L-(F*FV7$F\\`lFVF0F8-Fi]n6%7$F7$\"+ LLLLLF^^nF_^nF`^n-Fi]n6%7$FVF]`nFd^nF`^n-F$6%7$7$$\"1M>r*[n_/$F*FK7$Fg zFKF0F8-Fi]n6%7$F7$\"+nmmm;F^^nF_^nF`^n-Fi]n6%7$FVF\\anFd^nF`^n-F$6%7$ 7$$\"1kxYr^()yDF*FV7$F_wFVF0F8-Fi]n6%F_blF_^nF`^n-Fi]n6%F`blFd^nF`^n-F $6%7$7$$Fg\\lFaxFV7$F_xFVF0F8-F$6%7$7$$\"1?E@0yR!*HF*FV7$Ff]nFVF0F8-Fi ]n6%7$F7$\"+LLLL$)F^^nF_^nF`^n-Fi]n6%7$FVF\\cnFd^nF`^n-F$6%7$7$FjimFK7 $F`[lFKF0F8-F$6%7$7$FioFV7$$\"1=P,5jg-*)F*FVF0F8-Fi]n6%7$F7$\"+nmmmmF^ ^nF_^nF`^n-Fi]n6%7$FVF`dnFd^nF`^n-F$6%7$7$$\"1#G')**o$R(4\"F\\sFV7$F^z FVF0F8-F$6%7$7$F[yFV7$$\"1\"z(3%Q!owHF*FVF0F8-F$6%7$7$$\"1Y&Q6tBj\"*)F *FV7$F^vFVF0F8-F$6%7$7$Ff`nFV7$$\"1jn$3\"\\)*eIF*FVF0F8-Fi]n6%F]]nF_^n F`^n-Fi]n6%Fi\\nFd^nF`^n-F$6%7$7$Ff[lFV7$$\"1)oin$3\"\\)*)F*FVF0F8-%+A XESLABELSG6$%!GF_gn-%*AXESSTYLEG6#%%NONEG-F16&F3F7F7F4-%*THICKNESSG6#F 7-%%VIEWG6$%(DEFAULTGF\\hn" 2 312 312 312 2 0 1 0 2 6 0 1 2 1.000000 45.000000 45.000000 0 0 0 0 0 0 0 0 0 0 0 254 0 0 254 0 0 1 0 0 0 0 27876 75 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {PARA 0 "" 0 "" {TEXT 23 1 " " }}}{MARK "4 0 0" 45 }{VIEWOPTS 1 1 0 1 1 1803 }