{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 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "with(plots): with(pl ottools):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 749 "q1 := display (\nrectangle([0,0], [5,5], color=red),\nrectangle([0,5], [5,6], color= blue),\ntextplot([-0.3, 2.5, \"x\"], font=[HELVETICA, 18], color=red), \ntextplot([-0.45, 5.5, \"a/2\"], font=[HELVETICA, 18], color=blue),\n textplot([2.5, -0.3, \"x\"], font=[HELVETICA, 18], color=red)):\nq2 := display(\nrectangle([0,6],[5,7], color=blue),\ntextplot([-0.45, 6.5, \+ \"a/2\"], font=[HELVETICA, 18], color=blue)):\nq3 := display(\nrectang le([2.5,6],[7.5,7], color=blue),\ntextplot([2.05, 6.5, \"a/2\"], font= [HELVETICA, 18], color=blue)):\nq3a := display(\nrectangle([2.5,6],[7. 5,7], color=blue),\ntextplot([7.95, 6.5, \"a/2\"], font=[HELVETICA, 18 ], color=blue)):\nq4 := display(\nrectangle([5,0],[6,5], color=blue), \ntextplot([5.5, -0.3, \"a/2\"], font=[HELVETICA, 18], color=blue)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 603 "display(\ndisplay(\nrect angle([0,0], [5,5], color=red),\nrectangle([0,5], [5,7], color=blue), \ntextplot([-0.3, 2.5, \"x\"], font=[HELVETICA, 18], color=red),\ntext plot([-0.3, 6, \"a\"], font=[HELVETICA, 18], color=blue),\ntextplot([2 .5, -0.3, \"x\"], font=[HELVETICA, 18], color=red)),\nseq(\ndisplay(q1 , translate(q2, 0.25*i, 0)), i=0..10),\nseq(\ndisplay(q1, rotate(q3, - i*Pi/18, [5,6])), i=1..4),\nseq(\ndisplay(q1, rotate(q3a, -i*Pi/18, [5 ,6])), i=5..9),\nseq(\ndisplay(q1, translate(q4, 0, 2.5-0.25*i)), i=0. .10),\ndisplay(q1, q4, rectangle([5,5], [6,6], color=green)),\nscaling =constrained, axes=none, insequence=true);" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 604 "display(\ndisplay(cuboid([0,0,0], [5,5,5], color=r ed),\ncuboid([5,0,0], [8,5,5], color=blue)),\ndisplay(cuboid([0,0,0], \+ [5,5,5], color=red),\ncuboid([5,0,0], [6,5,5], color=blue),\ncuboid([0 ,5,0], [5,6,5], color=blue),\ncuboid([0,0,5], [5,5,6], color=blue)),\n display(cuboid([0,0,0], [5,5,5], color=red),\ncuboid([5,0,0], [6,5,5], color=blue),\ncuboid([0,5,0], [5,6,5], color=blue),\ncuboid([0,0,5], \+ [5,5,6], color=blue),\ncuboid([0,5,5], [5,6,6], color=cyan),\ncuboid([ 5,0,5], [6,5,6], color=cyan),\ncuboid([5,5,0], [6,6,5], color=cyan),\n cuboid([5,5,5], [6,6,6], color=green)),\ninsequence=true, scaling=cons trained);" }}}{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 209 "setoptions(resolution=600, axesfont=[HELVETICA,7], labelfont=[HELVETICA,7], font=[HELVETICA,7]);\nplotsetup(ps,plotoutpu t=\"/home/seiler/Calg/Abb1.ps\",plotoptions=\"color,portrait,noborder, height=250,width=600\");" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 731 "display(\ndisplay(\nrectangle([0,0], [5,5], color=red),\nrectangl e([0,5], [5,7], color=blue),\ntextplot([-0.3, 2.5, \"x\"], font=[HELVE TICA, 15], color=red),\ntextplot([-0.3, 6, \"a\"], font=[HELVETICA, 15 ], color=blue),\ntextplot([2.5, -0.3, \"x\"], font=[HELVETICA, 15], co lor=red)),\ntranslate(\ndisplay(rectangle([0,0], [5,5], color=red),\nr ectangle([0,5], [5,6], color=blue),\ntextplot([-0.3, 2.5, \"x\"], font =[HELVETICA, 15], color=red),\ntextplot([-0.55, 5.5, \"a/2\"], font=[H ELVETICA, 15], color=blue),\ntextplot([2.5, -0.3, \"x\"], font=[HELVET ICA, 15], color=red),\nrectangle([5,0],[6,5], color=blue),\ntextplot([ 5.5, -0.3, \"a/2\"], font=[HELVETICA, 15], color=blue),\nrectangle([5, 5], [6,6], color=green)), 9, 0),\nscaling=constrained, axes=none);" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 112 "plotsetup(ps,plotoutput=\" /home/seiler/Calg/Abb2.ps\",plotoptions=\"color,portrait,noborder,heig ht=500,width=500\");" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 180 "di splay(cuboid([0,0,0], [5,5,5], color=red),\ncuboid([5,0,0], [6,5,5], c olor=blue),\ncuboid([0,5,0], [5,6,5], color=blue),\ncuboid([0,0,5], [5 ,5,6], color=blue), scaling=constrained);" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0" 29 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }