{VERSION 6 0 "IBM INTEL NT" "6.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 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "with(plots);with(plottools);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 131 "leav es:= polygon([[1.5,2], [.5,3], [.5,4], [1.5,5], [2.5,5], [3.5,4], [3.5 ,3], [2.5,2], [1.5,2]], color=aquamarine, thickness=1) : " }}{PARA 0 " > " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "leaves;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 67 "trunk:=polygon([[1.5,0], [1.5,2], [2.5,2], [2. 5,0]], color=sienna):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "di splay(\{trunk\});" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "tree:=display([leaves, trunk ]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "tree;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 142 "drop s:= plot(\{ [[6,2.25], [6,2.5]], [[6,0.25], [6,0.5]], [[7,1.25], [7,1. 5]], [[8.5,2.25], [8.5,2.5]], [[8.5,0.25], [8.5,0.5]] \}, color=blue): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "drops;" }}{PARA 0 "" 0 " " {TEXT -1 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "arc1:=a rc([6.25,4.5], 1, 0..Pi, thickness=3, color=grey):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "display([arc1]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "arc2:=arc([7.75,4.5], 0.5, 0..Pi, thickness=3, col or=grey):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "display([arc2] );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "arc3:=arc([8.25,4], . 5, 0..Pi/2, thickness=3, color=grey):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "display([arc3]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "arc4:=arc([8.25,4], 0.5, Pi..2*Pi, thickness=3, color =grey):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "display([arc4]); " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "arc5:=arc([6.75,4], 1, \+ Pi..2*Pi, thickness=3, color=grey):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "display([arc5]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 62 "arc6:=arc([5.25,4], 0.5, Pi/ 2..2*Pi, thickness=3, color=grey):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "display([arc6]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 79 "roundcloud:=display([arc1, arc2, arc3, arc4, arc5, \+ arc6], scaling=constrained):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "roundcloud;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "backgr ound:=display([roundcloud, tree]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "background;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 64 "drop1:=plot([[5,1.75], [5,2]], color=blue, scaling=constrained): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "drop1;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "dr op2:=plot([[5,.75], [5,1]], color=blue, scaling=constrained):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "drop2;" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 66 "drop3:=plot([[6,1.25], [6,1.5]], color=blue, s caling=constrained):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "drop 3;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 64 "drop4:=plot([[7,.25], [7,.5]], color=blue, scaling=constrained):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "drop4;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "drop5:=plot([[7,2.25], [7,2.5]], color=blue, scaling=constrained): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "drop5;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "drop6:=plot([[8,.75], [8,1]], color=blue, scaling=constrained):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "dr op6;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 64 "drop7:=plot([[8,1.7 5], [8,2]], color=blue, scaling=constrained):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "drop7;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 86 "hardrain:=display([drop1, drop2, drop3, drop4, drop5, drop6, drop7 ], insequence=true):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "hard rain;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "lightning2:=transl ate:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 166 "lightning:=plot([[6.5,3], [ 6,2], [6.5,2], [6,1.5], [6.5,1], [7.25,1.25], [6.75,.5], [7.25,1.25], \+ [7.75,1.25], [7,3]], color=yellow, thickness=3, scaling=constrained): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 90 "flashing:=display(light ning,lightning, lightning, lightning, lightning, insequence=true):" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "display([roundcloud, lightning]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 101 "backgroundwdrops:=display([background, flashing, har drain, hardrain, hardrain, hardrain], axes=none):" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 17 "backgroundwdrops;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} }{MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }