{VERSION 5 0 "IBM INTEL LINUX" "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 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple P lot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 0 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 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 160 "with(plots):\nwith( plottools):\n#Tree Growth\nxsaddlebrown := COLOR(RGB, .54, .27, .07) :\nground:=polygon([ [0,0], [12,0], [12,2], [0,2], [0,0] ], color=sie nna):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "display(ground, sc aling=constrained):" }}{PARA 13 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "new seed := disk([6,1],0.1,color=black):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 71 "seed:= disk( [ [6,1], [2,1], [5.8,6], [6.2,6], [6,1] \+ ], color = black):" }}}{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "p1:=display([newseed,ground],scaling=constrained):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "p1:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "display(newseed):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "display(p1, insequence=true):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "tree1:= polygon( [ [6,.9], [6.1,2], [6,1.1] ], color=xsaddlebrown):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "p2:=display(tree1,p1, scaling=constrained):" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 3 "p2:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 67 "p3:= display([newseed, ground, tree1, tree2], scaling=constraine d):" }}}{EXCHG {PARA 13 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "tree2:=polygon([ [5.9,2], [5.9,2.5], [6.25,2.5], [6.25,2]], color=xsaddlebrown):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "display(tree2, scaling=constrained):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "display[p1,p2,p3]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 76 "tree3:=polygon([[5.9,2], [5.9,4], [ 6.25,4], [6.25,2]], color=xsaddlebrown): " }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 43 "p4:=display(tree3,p3, scaling=constrained):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "p4:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "treegrowing:=display([p1,p2,p3], insequence=true ):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "display(ground):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "display(p1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "display(p2):" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 12 "display(p3):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "display(p1,p2,p3):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "display(p1,p2,p3):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 38 "display(p1,p2,p3,p4, insequence=true):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 154 "#leaves:=disk(\{[ [6,6], [8 ,0]], [[6,4], [6,8]], [[6,6], [6,6], [4,6], [6,4], [8,6]] \}, color=gr een):\nleaves := disk([0,0],1,color=green,transparency=1.0):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "display(leaves):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "p5:=display([translate(leaves,6,4.930),p4]):" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "p5:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "display([p1,p2,p3,p4,p5], insequence=true, axes= none);" }}{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 0 "" }}}}{MARK "0 0 0" 0 } {VIEWOPTS 1 1 0 3 4 1802 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }