{VERSION 5 0 "IBM INTEL NT" "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 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Heading 1" 0 3 1 {CSTYLE "" -1 -1 "" 1 18 0 0 0 0 0 1 0 0 0 0 0 0 0 1 }1 0 0 0 8 4 0 0 0 0 0 0 -1 0 }} {SECT 0 {SECT 1 {PARA 3 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "" 0 " " {TEXT -1 476 "Dateiname: schatpar.mws\nDateigr\366\337e: 18 KB\nName : Daniel Weihing\nSchule: Isolde-Kurz-Gymnasium\nKlasse: 13\nDatum: 09 .01.99\nKategorie: Geometrie / Anwendungen\nThema: Schattenwurf bei pa ralleler Lichtquelle\nStichw\366rter: Schattenwurf, parallele Lichtque lle, Pyramide\nKurzbeschreibung: Es werden Geraden dargestellt durch \+ Eckpunkte der Pyramide und die Richtung des Lichtes. Der Schnittpunkt \+ der Geraden mit der Ebene, auf der der Schatten abgebildet wird, ergib t d\355e Schattenecken." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 43 "Update auf Maple8: 8.6.2004 Michael Klumpp" }}}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "\n" }}}{EXCHG {PARA 0 "" 0 " " {TEXT -1 144 "Gegeben ist eine Pyramide und paralleles Licht, das du rch den Vektor v bestimmt wird. Gesucht ist nun der Schatten der Pyram ide auf einer Ebene." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "res tart:with(plots):with(geom3d):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 65 "point(A,1,1,1);\npoint(B,1,4,2);\npoint(C,-2,1,3);\npoint(S,3, 1,6);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "v:=[1,-1,-5];\n " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 75 "line(Al,[A,v]);\nline(B l,[B,v]);\nline(Cl,[C,v]);\nline(Sl,[S,v]);detail(Al);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "plane(XY_Ebene,z=0,[x,y,z]);\n" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 120 "intersection(As,Al,XY_Ebene );\nintersection(Bs,Bl,XY_Ebene);\nintersection(Cs,Cl,XY_Ebene);\ninte rsection(Ss,Sl,XY_Ebene);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 67 "org:=display(draw(\{A,B,C,S\},style=point,symbol=circle),color=red ):\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 73 "sch:=display(draw( \{As,Bs,Cs,Ss\},style=point,symbol=circle),color=black):\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "display(org,sch);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 174 "segment(AB,[A,B]):\nsegment(AC,[A, C]):\nsegment(AS,[A,S]):\nsegment(BC,[B,C]):\nsegment(BS,[B,S]):\nsegm ent(CS,[C,S]):\ndraw(\{AB,AC,AS,BC,BS,CS\},style=line,thickness=2,colo r=red);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 132 "segment(ABs,[ As,Bs]);\nsegment(ACs,[As,Cs]);\nsegment(ASs,[As,Ss]);\nsegment(BCs,[B s,Cs]);\nsegment(BSs,[Bs,Ss]);\nsegment(CSs,[Cs,Ss]);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 149 "bild0:=display(draw(\{ABs,ACs,ASs, BCs,BSs,CSs\},style=line,thickness=2,color=black),draw(\{AB,AC,AS,BC,B S,CS\},style=line,thickness=2,color=red)):bild0;\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 604 "pyr1:=polygonplot3d([[xcoord(A),ycoord(A), zcoord(A)],[xcoord(B),ycoord(B),zcoord(B)],[xcoord(C),ycoord(C),zcoord (C)]],axes=boxed,color=red):\npyr2:=polygonplot3d([[xcoord(A),ycoord(A ),zcoord(A)],[xcoord(B),ycoord(B),zcoord(B)],[xcoord(S),ycoord(S),zcoo rd(S)]],axes=boxed,color=red):\npyr3:=polygonplot3d([[xcoord(C),ycoord (C),zcoord(C)],[xcoord(B),ycoord(B),zcoord(B)],[xcoord(S),ycoord(S),zc oord(S)]],axes=boxed,color=red):\npyr4:=polygonplot3d([[xcoord(A),ycoo rd(A),zcoord(A)],[xcoord(C),ycoord(C),zcoord(C)],[xcoord(S),ycoord(S), zcoord(S)]],axes=boxed,color=red):\npyramide:=display(pyr1,pyr2,pyr3,p yr4):\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 649 "sch1:=polygonpl ot3d([[xcoord(As),ycoord(As),zcoord(As)],[xcoord(Bs),ycoord(Bs),zcoord (Bs)],[xcoord(Cs),ycoord(Cs),zcoord(Cs)]],axes=boxed,color=black):\nsc h2:=polygonplot3d([[xcoord(As),ycoord(As),zcoord(As)],[xcoord(Bs),ycoo rd(Bs),zcoord(Bs)],[xcoord(Ss),ycoord(Ss),zcoord(Ss)]],axes=boxed,colo r=black):\nsch3:=polygonplot3d([[xcoord(Cs),ycoord(Cs),zcoord(Cs)],[xc oord(Bs),ycoord(Bs),zcoord(Bs)],[xcoord(Ss),ycoord(Ss),zcoord(Ss)]],ax es=boxed,color=black):\nsch4:=polygonplot3d([[xcoord(As),ycoord(As),zc oord(As)],[xcoord(Cs),ycoord(Cs),zcoord(Cs)],[xcoord(Ss),ycoord(Ss),zc oord(Ss)]],axes=boxed,color=black): \nschatten:=display(sch1,sch2,sch3 ,sch4):\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 108 "bild1:=display(pyramide,schatten): bild1;\nbild1a:=draw(XY_Ebene,style=patchnogrid,view=[-3..5,-1..7,-1.. 6]):\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 416 "l1s:=plottools[arrow](coordinates(S),coo rdinates(Ss),.1,.2,.1):\nl2s:=plottools[arrow]([xcoord(A),ycoord(A),zc oord(A)],[xcoord(As),ycoord(As),zcoord(As)],.1,.2,.1):\nl3s:=plottools [arrow]([xcoord(C),ycoord(C),zcoord(C)],[xcoord(Cs),ycoord(Cs),zcoord( Cs)],.1,.2,.1):\nl4s:=plottools[arrow]([xcoord(B),ycoord(B),zcoord(B)] ,[xcoord(Bs),ycoord(Bs),zcoord(Bs)],.1,.2,.1):\nlichtstrahlen:=display ([l1s,l3s,l4s],color=yellow):\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 92 "display(bild1,lichtstrahlen,orientation=[60,60],title=`Schatte nwurf bei parallelem Licht`);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 133 "display(seq(display(bild1,lichtstrahlen,title=`Schattenwurf b ei parallelem Licht`,orientation=[i*5,60]),i=-36..36),insequence=true) ;\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }