{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 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "restart: with(plots) : with(plottools):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "xhotp ink := COLOR(RGB, 1, .41, .7):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 84 "diamond:=polygon([[-2,0], [0,-2], [2,0], [0,2], [-2,0 ]], thickness=2, color=yellow):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "triangle1:=polygon([[-2,3], [0,2], [-2,0], [-2,3]], thickness= 4,color=xhotpink):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "trian gle2:=polygon([[0,2], [2,3], [2,0], [0,2]], thickness=4,color=xhotpink ):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 82 "triangle3:=polygon([[ -2,0], [-3,-2], [0,-2], [-2,0]], thickness=4,color=xhotpink):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "triangle4:=polygon([[2,0], [ 3,-2], [0,-2], [2,0]], thickness=4,color=xhotpink):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "line1:=plot ([[0,-2], [0,-4]], color=gree n, thickness=5):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 74 "flower: =display([diamond, triangle1,triangle2,triangle3,triangle4,line1]):" } }}{EXCHG }{EXCHG }{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "tr iangle5:=polygon([[-2,3], [0,2], [-2,0], [-2,3]], thickness=4,color=xh otpink):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "triangle6:=poly gon([[0,2], [2,3], [2,0], [0,2]], thickness=4,color=xhotpink):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 82 "triangle7:=polygon([[-2,0], \+ [-3,-2], [0,-2], [-2,0]], thickness=4,color=xhotpink):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "triangle8:=polygon([[2,0], [3,-2], \+ [0,-2], [2,0]], thickness=4,color=xhotpink):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "line2:=plot ([[0,-2], [0,-4]], color=green, thic kness=5):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 75 "flower1:=displ ay([diamond, triangle5,triangle6,triangle7,triangle8,line2]):" }}} {EXCHG }{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 84 "diamond:=pol ygon([[-2,0], [0,-2], [2,0], [0,2], [-2,0]], thickness=2, color=yellow ):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "triangle9:=polygon([[ -2,3], [0,2], [-2,0], [-2,3]], thickness=4,color=xhotpink):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 78 "triangle10:=polygon([[0,2], \+ [2,3], [2,0], [0,2]], thickness=4,color=xhotpink):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 83 "triangle11:=polygon([[-2,0], [-3,-2], [0,-2 ], [-2,0]], thickness=4,color=xhotpink):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 81 "triangle12:=polygon([[2,0], [3,-2], [0,-2], [2,0]], \+ thickness=4,color=xhotpink):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "line3:=plot ([[0,-2], [0,-4]], color=green, thickness=5):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 75 "flower2:=display([diamond, t riangle5,triangle6,triangle7,triangle8,line2]):" }}}{EXCHG }{EXCHG } {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 84 "diamond:=polygon([[-2,0], [0 ,-2], [2,0], [0,2], [-2,0]], thickness=2, color=yellow):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 81 "triangle13:=polygon([[-2,3], [0,2], [-2,0], [-2,3]], thickness=4,color=xhotpink):" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 78 "triangle14:=polygon([[0,2], [2,3], [2,0], [0,2 ]], thickness=4,color=xhotpink):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 83 "triangle15:=polygon([[-2,0], [-3,-2], [0,-2], [-2,0]] , thickness=4,color=xhotpink):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 81 "triangle16:=polygon([[2,0], [3,-2], [0,-2], [2,0]], thickness =4,color=xhotpink):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "line 3:=plot ([[0,-2], [0,-4]], color=green, thickness=5):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 79 "flower4:=display([diamond, triangle 13,triangle14,triangle15,triangle16,line2]):" }}}{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "flower:=display(translate(flower,15,4)): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "flower1:=display(transl ate(flower1,3,4)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "flowe r2:=display(translate(flower2,30,4)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "flower4:=display(translate(flower2,45,4)):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "sun:=disk([10,10], 10, color =yellow):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "ray1:=plot([[2 .5,2.5],[0,0]],thickness=3, color=yellow):" }}}{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "ray2:=plot([[3,3], \+ [25,5]],thickness=3, color=yellow):" }}}{EXCHG }{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "ray3:=plot([[20,10], [25,13]],thickness=3 , color=yellow):" }}}{EXCHG }{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "ray4:=plot ([[15,16], [21,25]],thickness=3, color=yel low):" }}}{EXCHG }{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "ra y5:=plot ([[10,20], [10,25]], thickness=3, color=yellow): " }}}{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "ray6:=plot ([[6,18], [0,24] ], thickness=3, color=yellow):" }}}{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "ray6:=plot ([[6,18], [0,24]], thickness=3, color=yell ow):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "ray7:=plot ([[0,10] , [-6,10]], thickness=3, color=yellow):" }}}{EXCHG }{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "ray8:=plot ([[2,16], [-5,17]], thic kness=3, color=yellow):" }}}{EXCHG }{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "ray9:=plot ([[16,2], [20,0]], thickness=3, color=yell ow):" }}}{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "brightsun:= display(ray1,ray2,ray3,ray4,ray5,ray6,ray7,ray8,ray9,sun):" }}}{EXCHG }{EXCHG }{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "grass:=poly gon([[0,0],[90,0],[90,-10],[0,-10],[0,0]],color=green):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "sunflower:=display(grass,flower,bri ghtsun):" }}}{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "p1:=dis play(grass,flower,flower1,flower2,translate(brightsun,10,10)):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "p2:=display(grass,flower,flo wer1,flower2,translate(brightsun,15,15)):" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 69 "p3:=display(grass,flower,flower1,flower2,translate( brightsun,20,20)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "p4:=d isplay(grass,flower,flower1,flower2,translate(brightsun,25,25)):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "p5:=display(grass,flower,flo wer1,flower2,translate(brightsun,30,30)):" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 69 "p6:=display(grass,flower,flower1,flower2,translate( brightsun,35,35)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "p7:=d isplay(grass,flower,flower1,flower2,translate(brightsun,40,40)):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "p8:=display(grass,flower,flo wer1,flower2,translate(brightsun,45,45)):" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 69 "p9:=display(grass,flower,flower1,flower2,translate( brightsun,50,50)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 70 "p10:= display(grass,flower,flower1,flower2,translate(brightsun,60,70)):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 101 "display([sunflower,p1,p2,p3 ,p4,p5,p6,p7,p8,p9,p10], insequence=true, scaling=constrained, axes=no ne);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG }{EXCHG }{EXCHG }}{MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 } {PAGENUMBERS 0 1 2 33 1 1 }