{VERSION 3 0 "IBM INTEL NT" "3.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 } {CSTYLE "" -1 256 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 258 "" 1 10 0 0 0 0 0 0 0 0 0 0 0 0 0 }{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 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Map le Plot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 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 }{PSTYLE "" 0 257 1 {CSTYLE "" -1 -1 "He lvetica" 0 1 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 {PARA 257 "" 0 "" {TEXT 256 45 "Graphische Programmierung mit \+ Maple\nGeometry\n" }{TEXT 258 166 "Fabian Hust - VHumorus@aol.com\nDie s ist nur ein Teil des Referates. Das komplette Referat gibt es unter: http://www.ikg.rt.bw.schule.de/virkla/names/schuels/maplegr/\n" }} {PARA 0 "" 0 "" {TEXT -1 59 "F\374r das Arbeiten mit geometrischen Fig uren mu\337 das Package " }{TEXT 256 9 "geometry " }{TEXT -1 15 "gelad en werden." }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "with(geometry) :" }}}{PARA 0 "" 0 "" {TEXT -1 97 "Mit ein wenig Aufwand sind alle erd enklichen geometrischen Konstruktionen mit Maple realisierbar." }} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 264 "testeq(distance(H,G) = 2*di stance(G,OO));\ndraw([C(color='COLOR'(RGB,1.00000000,1.00000000,.80000 00000),filled=true),\nT(color=blue),T1,A3M3,A2M2,A1M1,A2A22,A3A33,A1A1 1,\ndsg1(style=LINE,color=green,thickness=3),dsg2(thickness=3,color=gr een),OM1,\nOM2,OM3],axes=NONE);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%%t rueG" }}{PARA 13 "" 1 "" {TEXT -1 0 "" }}}{PARA 0 "" 0 "" {TEXT -1 44 "Beispiel f\374r das Entwickeln von Kreisfiguren" }}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 775 "angle := table():\nn := 8:\nfor i to n do ang le[i] := 2*Pi*i/n od:\ndsegment(dseg,point(A,0,0),point(B,4,0)): point (o,0,0):\ncircle(c,[o,1]):\nhomothety(c1,c,3/2,point(M,-1,0)):\nhomoth ety(c2,c,2,point(M,-1,0)):\nhomothety(c3,c,5/2,point(M,-1,0)):\ntransl ation(t,c,dseg):\ntranslation(tt,c1,dseg):\ntranslation(ttt,c2,dseg): \ntranslation(tttt,c3,dseg):\nfor i from 1 to 8 do\n rotation(t.i,t, angle[i],counterclockwise,o);\n rotation(tt.i,tt,angle[i],counterclo ckwise,o);\n rotation(ttt.i,ttt,angle[i],counterclockwise,o);\n ro tation(tttt.i,tttt,angle[i],counterclockwise,o);\nod:\ndraw([seq(op([t .i(color=red),tt.i(color=green),ttt.i(color=blue),\ntttt.i(color=plum) ]),i=1..n)],printtext=false,filled=true,axes=none,\ntitle=`An example \+ of translation, rotation, dilatation of a circle`);" }}{PARA 13 "" 1 " " {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 0 "" }}}}{MARK "1 2" 15 }{VIEWOPTS 1 1 0 1 1 1803 }