{VERSION 5 0 "SUN SPARC SOLARIS" "5.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 256 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 257 "" 1 14 0 0 0 0 0 1 0 0 0 0 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Text Output" -1 2 1 {CSTYLE "" -1 -1 "Courier " 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Warning" 2 7 1 {CSTYLE "" -1 -1 "" 0 1 0 0 255 1 0 0 0 0 0 0 1 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 1 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 256 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 0 1 0 0 0 0 0 0 0 1 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 257 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 258 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE " " 0 259 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 257 "" 0 "" {TEXT -1 0 "" }}{PARA 258 "" 0 "" {TEXT -1 6 "ACCESS" }}{PARA 259 "" 0 "" {TEXT -1 9 "July 2001" }} {PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 256 0 "" }{TEXT 257 0 "" }}{PARA 256 "" 0 "" {TEXT -1 46 "another fractal - dragon with 3-fold symmetry " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 313 "The dragon with 3-fold symmetry, from \"Fractals for the Classroom\". Be cause iterating function systems makes many points very quickly, I tho ught it best to make a separate file for each fractal. You may also w ant to follow this practice, and also to only have one file open when \+ you're drawing fractal pictures." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "Digits:=4:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots): " }}{PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name changecoords has be en redefined\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 97 "AFFINE1:=proc(X,a,b,c,d,e,f)\nRETURN(evalf([a*X[1]+ b*X[2]+e,\n c*X[1]+d*X[2]+f]));\nend:" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 106 "f1:=P->AFFINE1(P,0,.6,-.6,0,.4,.8);\nf2:=P- >AFFINE1(P,0,.6,-.6,0,.1,1);\nf3:=P->AFFINE1(P,0,.6,-.6,0,.1,.6);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#f1Gf*6#%\"PG6\"6$%)operatorG%&arrow GF(-%(AFFINE1G6)9$\"\"!$\"\"'!\"\"$!\"'F3F0$\"\"%F3$\"\")F3F(F(F(" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#f2Gf*6#%\"PG6\"6$%)operatorG%&arrow GF(-%(AFFINE1G6)9$\"\"!$\"\"'!\"\"$!\"'F3F0$\"\"\"F3F7F(F(F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#f3Gf*6#%\"PG6\"6$%)operatorG%&arrowGF(-%( AFFINE1G6)9$\"\"!$\"\"'!\"\"$!\"'F3F0$\"\"\"F3F1F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "S:=\{[0,0]\}:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "3^10;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"&\\ !f" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 92 "for i from 1 to 10 do \nS1:=map(f1,S):\nS2:=map(f2,S):\nS3:=map(f3,S):\nS:=`union`(S1,S2,S3) :\nod:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 83 "pointplot(S,symbo l=point,scaling=constrained,\ntitle=`Dragon with 3-fold symmetry`);" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "11 0 0" 83 } {VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }