{VERSION 5 0 "HP RISC UNIX" "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 }{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 "" 0 256 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "zuf := rand(1..3):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 73 "affin := (a,b,c,d,e,f) -> ( \nP -> [a*P[1] + b*P[2] + e, c*P[1]+d*P[2]+f]);" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 33 "trafo1 := affin(0.5,0,0,0.5,1,1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "trafo2 := affin(0.5,0,0,0.5,50,1): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "trafo3 := affin(0.5,0,0 ,0.5,50,50):" }}}{EXCHG {PARA 256 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 24 "P := [0,0]; L := op([]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 125 "for j to 2000 do\nk := zuf():\nif k =1 then \+ P := trafo1(P)\nelif k = 2 then P := trafo2(P)\nelse P := trafo3(P) fi ;\nL := L, P od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 83 "plot([L ], style=point, symbol=diamond, color=blue, scaling=constrained, axes= none);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0 " 12 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }