{VERSION 4 0 "HP RISC UNIX" "4.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{CSTYLE "" -1 256 "" 0 1 0 0 0 0 2 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 257 "" 1 13 0 0 0 0 2 0 0 0 0 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 "Helvet ica" 1 24 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 257 1 {CSTYLE "" -1 -1 "" 1 14 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 256 "" 0 "" {TEXT -1 6 "W\374rfel" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 257 "" 0 "" {TEXT -1 122 "Zeichnet einen W\374rfe l als dreidimensionalen K\366rper, mit dem man die eingebauten Projekt ionen von Maple ausprobieren kann.\n" }{TEXT 256 0 "" }{TEXT 257 39 "D raws a solid cube to play around with." }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 98 "oben := [[1,1,1],[1,1,-1],[1,-1,-1],[1,-1,1]]:\nunten := [[-1,1,1],[-1,1,-1],[-1,-1,-1],[-1,-1,1]]:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 257 "PLOT3D(POLYGONS([oben[1], oben[2], oben[3], oben[4]] ,\n[unten[1], unten[2], unten[3], unten[4]],\n[oben[1], unten[1], unte n[2], oben[2]],\n[oben[2], unten[2], unten[3], oben[3]],\n[oben[3], un ten[3], unten[4], oben[4]],\n[oben[4], unten[4], unten[1], oben[1]])); " }}}}{MARK "2 0 0" 8 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }