{VERSION 2 3 "APPLE_PPC_MAC" "2.3" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 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 "Heading 1" 0 3 1 {CSTYLE "" -1 -1 "" 1 18 0 0 0 0 0 1 0 0 0 0 0 0 0 }1 0 0 0 6 6 0 0 0 0 0 0 -1 0 }{PSTYLE "Heading 2" 3 4 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 4 4 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 17 "Feder mit Reibung" }}{PARA 0 "" 0 "" {TEXT -1 199 "Im folgenden Beispiel wird die Federkraft durch eine zum Quadrat \+ der Geschwindigkeit proportionale Reibungskraft ergaenzt. Die Richtung der Reibungskraft wird muehsam durch eine if Abfrage ermittelt." }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 4 "" 0 "" {TEXT -1 23 "Eingabe der Startwerte:" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "v[0]:=0;" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 9 "x[0]:=-2;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "FH:=2;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "m: =1;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "dt:=0.1;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "k:=0.5;" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 8 "t[0]:=0;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "n:=100;" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 4 "" 0 "" {TEXT -1 54 "Schleife mit Reibung prop. zum Geschwindigkeitsquadrat" } }{PARA 0 "" 0 "" {TEXT -1 67 "Eine if-Schleife ermittelt das richtige \+ Vorzeichen fuer die Reibung" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "for i from 1 to n do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "if v[i- 1]>0 then F[i]:= -FH*x[i-1]-k*v[i-1]^2" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "else F[i]:=-FH*x[i-1]+k*v[i-1]^2" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "fi;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "a[i]:=F[i]/m :" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "t[i]:=t[i-1]+dt:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "v[i]:=v[i-1]+a[i]*dt:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "x[i]:=x[i-1]+v[i]*dt:P.i:=[t[i],x[i]]:" }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 3 "od:" }{TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 4 "" 0 "" {TEXT -1 41 "Loesungsmenge der Punkte und Grafi kbefehl" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "L:=['P.f'$f=1..n];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "plot(L);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 " " }}}}{MARK "15 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }