{VERSION 6 0 "IBM INTEL NT" "6.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 "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "Hyperlink" -1 17 "" 0 1 0 128 128 1 2 0 1 0 0 0 0 0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 256 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 257 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 0 0 0 0 0 0 1 }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 1 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Plot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 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 "R3 Font 0" -1 256 1 {CSTYLE "" -1 -1 "Helveti ca" 1 10 0 0 255 1 2 1 2 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "R3 Font 2" -1 257 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 0 1 2 1 2 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Norma l" -1 258 1 {CSTYLE "" -1 -1 "Helvetica" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 258 "" 0 "" {TEXT 256 25 "Moderne Physik mit Mapl e " }}{PARA 258 "" 0 "" {TEXT 257 9 "PDF-Buch " }{URLLINK 17 "Moderne \+ Physik mit Maple" 4 "http://mikomma.de/fh/modphys.pdf" "" }}{PARA 258 "" 0 "" {TEXT -1 19 "Update auf Maple 10" }}{PARA 258 "" 0 "" {TEXT -1 0 "" }}{PARA 258 "" 0 "" {TEXT -1 13 "Kapitel 4.1.3" }}{PARA 258 " " 0 "" {TEXT -1 22 "Worksheet wirf5_10.mws" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 90 "c International Thomson Publishing Bonn 1995 filename: wirf5.ms" } }{PARA 0 "" 0 "" {TEXT -1 103 "Autor: Komma \+ Datum: 28.3.94" }} {PARA 0 "" 0 "" {TEXT -1 70 "Thema: Approximation durch st\374ckw. gle ichf. Bewegung, Wirkungsprinzip." }}{PARA 0 "" 0 "" {TEXT -1 54 " \+ Weiterentwicklung von wirf4.ms mit procs()" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "restart; with(plots):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 105 "Lq:=Tq-Vq(); # Vq() wird als proc formuliert, dam it die \304nderungen aller Parameter weitergereicht werden" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#LqG,&%#TqG\"\"\"-%#VqG6\"!\"\"" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "clear:= proc(x) local p;" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "for p to n do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "x[p]:=evaln(x[p]); od; end;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&clearGf*6#%\"xG6#%\"pG6\"F*?(8$\"\"\"F-%\"nG%%trueG> &9$6#F,-%&evalnG6#F1F*F*F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "n:='n': dt:='dt':x[0 ]:='x[0]':" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "Tq:=m/(2*dt)* sum((x[j]-x[j+1])^2,j=0..n-1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#T qG,$*&#\"\"\"\"\"#F(*(%\"mGF(%#dtG!\"\"-%$sumG6$*$),&&%\"xG6#%\"jGF(&F 56#,&F7F(F(F(F-F)F(/F7;\"\"!,&%\"nGF(F(F-F(F(F(" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 34 "m:='m':g:='g':k:='k':x[0]:='x[0]':" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "V:=proc(x)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "1/2*k*x^2;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "#m*g* x;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"VGf*6#%\"xG6\"F(F(,$*&#\"\"\"\"\"#F,*&%\"kGF,)9$F-F ,F,F,F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "if assigned( n) then clear(x) fi;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "n:= 'n': dt:='dt':" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "Vq:=proc() dt*sum(V(x[j]),j= 0..n-1); " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end;" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%#VqGf*6\"F&F&F&*&%#dtG\"\"\"-%$sumG6$-%\"VG6#&%\"xG 6#%\"jG/F3;\"\"!,&%\"nGF)F)!\"\"F)F&F&F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "#n:=20:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "# bahn();" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "Lq;" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#,&*&#\"\"\"\"\"#F&*(%\"mGF&%#dtG!\"\"-%$sumG6$*$ ),&&%\"xG6#%\"jGF&&F36#,&F5F&F&F&F+F'F&/F5;\"\"!,&%\"nGF&F&F+F&F&F&*&F *F&-F-6$,$*&F%F&*&%\"kGF&)F2F'F&F&F&F9F&F+" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 47 "bahn:=proc() local kk,j,i; global sys,sol,pkte;" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "if assigned(n) then clear(x) fi;" } }{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "sys:=seq(diff(Lq,x[kk])=0,kk=1..n-1);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "sol:=solve(\{sys\},\{seq(x[j],j=1..n-1)\}):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "assign(sol);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "pkte:=array(1..n):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "for i to n do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "pkte[i]:=x[i] \+ :" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%%bahnGf*6\"6 %%#kkG%\"jG%\"iGF&F&C(@$-%)assignedG6#%\"nG-%&clearG6#%\"xG>%$sysG-%$s eqG6$/-%%diffG6$%#LqG&F46#8$\"\"!/FA;\"\"\",&F0FEFE!\"\">%$solG-%&solv eG6$<#F6<#-F86$&F46#8%/FSFD-%'assignG6#FI>%%pkteG-%&arrayG6#;FEF0?(8&F EFEF0%%trueG>&FY6#Fin&F4F]oF&6%F6FIFYF&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 5 "Tests" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "n:=10;bahn();" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%\"nG\"#5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#&% \"xG6#\"#5" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 21 "Etwas Computeralgeb ra" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "x[3];" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#*(%\"mG\"\"$,6*,\"#b\"\"\")F$\"\"#F))%#dtG\"\")F)) %\"kG\"\"%F)&%\"xG6#\"\"!F)F)*,\"$?\"F))F$F%F))F-\"\"'F))F0F%F)F2F)!\" \"*,\"#7F)F$F))F-\"#5F))F0\"\"&F)F2F)F<*()F-F>F))F0F:F)F2F)F)*,F1F))F$ FBF))F-F+F)F0F)&F36#F@F)F<**)F$F1F))F-F1F))F0F+F)FIF)F)*,\"#cF)FGF)FHF )F0F)F2F)F<*,\"$E\"F)FMF)FNF)FLF)F2F)F)*(\"\"(F))F$F:F)F2F)F)*(F%F)FUF )FIF)F)F),6*&)F-\"#=F))F0\"\"*F)F<**\"$#zF))F$FTF)FMF)FNF)F)**\"%; \+ " 0 "" {MPLTEXT 1 0 19 "collect(x[3],x[0]);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#,&**%\"mG\"\"$,0**\"#c\"\"\")F%\"\"&F*)%#dtG\"\"#F*%\"k GF*!\"\"**\"$E\"F*)F%\"\"%F*)F.F5F*)F0F/F*F***\"$?\"F*)F%F&F*)F.\"\"'F *)F0F&F*F1**\"#bF*)F%F/F*)F.\"\")F*)F0F5F*F***\"#7F*F%F*)F.\"#5F*)F0F, F*F1*&)F.FEF*)F0F " 0 " " {MPLTEXT 1 0 13 "factor(x[3]);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#*. %\"mG\"\"$,6*,\"#b\"\"\")F$\"\"#F))%#dtG\"\")F))%\"kG\"\"%F)&%\"xG6#\" \"!F)F)*,\"$?\"F))F$F%F))F-\"\"'F))F0F%F)F2F)!\"\"*,\"#7F)F$F))F-\"#5F ))F0\"\"&F)F2F)F<*()F-F>F))F0F:F)F2F)F)*,F1F))F$FBF))F-F+F)F0F)&F36#F@ F)F<**)F$F1F))F-F1F))F0F+F)FIF)F)*,\"#cF)FGF)FHF)F0F)F2F)F<*,\"$E\"F)F MF)FNF)FLF)F2F)F)*(\"\"(F))F$F:F)F2F)F)*(F%F)FUF)FIF)F)F),&*&F+F)F$F)F )*&F0F)FHF)FF)FHF)F0F)F8F)F<**\"#>F)FM F)FNF)F*F)F)**F.F)F9F)F;F)F$F)F<*&F,F)F/F)F)F<" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }} {PARA 0 "" 0 "" {TEXT -1 10 "Parameter " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 124 "Die Anzahl der St\374tzstellen kann noch mit t1 abgestimmt werden, insbes. f\374r die Schwingung (z.B. n= 20*t1). (Rundungsfehler?)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "n:=40: " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "m:=1: " }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "k:=6:" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 8 "#g:=50: " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "t1:=3: # untersuchen Sie auch gr\366\337ere Zeiten" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "dt:=t1/n:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "x[0]:=1: # nicht 0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "bahn();" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#&%\"xG6#\"# S" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "x[n]:=0: " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "x[5];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6##\"`q+++++KG. V^N'3&o;rv7\"4TA#Q2xA!zYBW`\"*3=`gTohKxjsCxL*QD\"z\"aqdx0FNG%RY\"zCaUN 'yF^D$f>?wmFQ]u/;)*G+6ayWwx/(3QlYEP7'z'[%" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 65 "plota :=plot([[0,x[0]],seq([i*dt,pkte[i]],i=1..n-1),[n*dt,x[n]]]):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "plota;" }}{PARA 13 "" 1 "" {GLPLOT2D 681 681 681 {PLOTDATA 2 "6%-%'CURVESG6$7K7$$\"\"!F)$\"\"\"F) 7$$\"3s*************\\(!#>$\"3=erq2nQV))!#=7$$\"3%**************\\\"F2 $\"35+#HS64$)Q(F27$$\"31++++++]AF2$\"35cFv(3wQo&F27$$\"3))************ **HF2$\"3ScY^VAh(y$F27$$\"3+++++++]PF2$\"3[Pz0'[;Nw\"F27$$\"35+++++++X F2$!3$4PK!G&z4?$F/7$$\"3A++++++]_F2$!3Q-tv&34HR#F27$$\"3w************* *fF2$!35fq1P&f\\Q%F27$$\"3W++++++]nF2$!3i,3+/w,HiF27$$\"3++++++++vF2$! 3Y<&*zEj%G'yF27$$\"3c************\\#)F2$!3p](og)RIJ#*F27$$\"3A+++++++! *F2$!3<;3e80#)G5!#<7$$\"3y************\\(*F2$!3!\\S@i$zy*4\"Fdo7$$\"3/ ++++++]5Fdo$!37@X,;vjL6Fdo7$$\"3+++++++D6Fdo$!30Z@kHoAH6Fdo7$$\"3%**** **********>\"Fdo$!3%3Npxt/n3\"Fdo7$$\"3#************\\F\"Fdo$!35Ro*4O1 v+\"Fdo7$$\"33++++++]8Fdo$!38QoSXk/V*)F27$$\"3/++++++D9Fdo$!3e/GJj9?4v F27$$\"3++++++++:Fdo$!3Ck>$=$4#>#eF27$$\"3'************\\d\"Fdo$!3$fz, *o0:QRF27$$\"3#*************\\;Fdo$!3*3>rUin9#>F27$$\"34++++++DOAF27$$\"3+++++++v=Fdo$\"3 $fd=I%Q&oB%F27$$\"3'*************\\>Fdo$\"3E_[)zs=X4'F27$$\"3\"******* *****\\-#Fdo$\"3QT;)eg$\\YxF27$$\"33+++++++@Fdo$\"3?B*zXKCq8*F27$$\"3# )***********\\<#Fdo$\"3YjBBZ!=>-\"Fdo7$$\"3+++++++]AFdo$\"3?UE\"z#Rk&4 \"Fdo7$$\"3=++++++DBFdo$\"3Tpe-E=RK6Fdo7$$\"3!**************R#Fdo$\"3M B2,+:#48\"Fdo7$$\"35++++++vCFdo$\"3Q:-PtDG\"4\"Fdo7$$\"3#)************ \\DFdo$\"3qi%y)fG\"[,\"Fdo7$$\"3+++++++DEFdo$\"3s>\"eO7K4/*F27$$\"3;++ +++++FFdo$\"35\\\"e$*=/'GwF27$$\"3#************\\x#Fdo$\"39Vtmj3\")efF 27$$\"33++++++]GFdo$\"3YjxKrw!z3%F27$$\"3#)***********\\#HFdo$\"3?r33& fP!z?F27$$\"\"$F)F(-%'COLOURG6&%$RGBG$\"#5!\"\"F(F(-%+AXESLABELSG6$Q!6 \"Fix-%%VIEWG6$%(DEFAULTGF^y" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "ITq:=ev alf(Tq); IVq:=evalf(Vq()); Sq:=evalf(Lq);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$ITqG$\"+_pKWh!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #>%$IVqG$\"+C9D)f&!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#SqG$\"+#G b2Y&!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "soly:=proc() local F;\nF:=-diff(V(y ),y):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 78 "rhs(dsolve(\{diff(y(t),t$2 )=subs(y=y(t),F)/m,y(0)=x[0],y(t1)=x[n]\},y(t)));\nend;" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%%solyGf*6\"6#%\"FGF&F&C$>8$,$-%%diffG6$-%\"VG6 #%\"yGF3!\"\"-%$rhsG6#-%'dsolveG6$<%/-F36#\"\"!&%\"xGF>/-F36#%#t1G&FA6 #%\"nG/-F.6$-F36#%\"tG-%\"$G6$FN\"\"#*&-%%subsG6$/F3FLF+\"\"\"%\"mGF4F LF&F&F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "soly();" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&*(-%$cosG6#,$*&\"\"$\"\"\"\"\"'#F+\"\"#F+F +-%$sinGF'!\"\"-F06#*&F,F-%\"tGF+F+F1-F&F3F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "pl ote:=plot(soly(),t=0..t1,color=black):#plote;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "display(\{plota,plote\});" }}{PARA 13 "" 1 "" {GLPLOT2D 681 681 681 {PLOTDATA 2 "6&-%'CURVESG6$7K7$$\"\"!F)$\"\"\"F) 7$$\"3s*************\\(!#>$\"3=erq2nQV))!#=7$$\"3%**************\\\"F2 $\"35+#HS64$)Q(F27$$\"31++++++]AF2$\"35cFv(3wQo&F27$$\"3))************ **HF2$\"3ScY^VAh(y$F27$$\"3+++++++]PF2$\"3[Pz0'[;Nw\"F27$$\"35+++++++X F2$!3$4PK!G&z4?$F/7$$\"3A++++++]_F2$!3Q-tv&34HR#F27$$\"3w************* *fF2$!35fq1P&f\\Q%F27$$\"3W++++++]nF2$!3i,3+/w,HiF27$$\"3++++++++vF2$! 3Y<&*zEj%G'yF27$$\"3c************\\#)F2$!3p](og)RIJ#*F27$$\"3A+++++++! *F2$!3<;3e80#)G5!#<7$$\"3y************\\(*F2$!3!\\S@i$zy*4\"Fdo7$$\"3/ ++++++]5Fdo$!37@X,;vjL6Fdo7$$\"3+++++++D6Fdo$!30Z@kHoAH6Fdo7$$\"3%**** **********>\"Fdo$!3%3Npxt/n3\"Fdo7$$\"3#************\\F\"Fdo$!35Ro*4O1 v+\"Fdo7$$\"33++++++]8Fdo$!38QoSXk/V*)F27$$\"3/++++++D9Fdo$!3e/GJj9?4v F27$$\"3++++++++:Fdo$!3Ck>$=$4#>#eF27$$\"3'************\\d\"Fdo$!3$fz, *o0:QRF27$$\"3#*************\\;Fdo$!3*3>rUin9#>F27$$\"34++++++DOAF27$$\"3+++++++v=Fdo$\"3 $fd=I%Q&oB%F27$$\"3'*************\\>Fdo$\"3E_[)zs=X4'F27$$\"3\"******* *****\\-#Fdo$\"3QT;)eg$\\YxF27$$\"33+++++++@Fdo$\"3?B*zXKCq8*F27$$\"3# )***********\\<#Fdo$\"3YjBBZ!=>-\"Fdo7$$\"3+++++++]AFdo$\"3?UE\"z#Rk&4 \"Fdo7$$\"3=++++++DBFdo$\"3Tpe-E=RK6Fdo7$$\"3!**************R#Fdo$\"3M B2,+:#48\"Fdo7$$\"35++++++vCFdo$\"3Q:-PtDG\"4\"Fdo7$$\"3#)************ \\DFdo$\"3qi%y)fG\"[,\"Fdo7$$\"3+++++++DEFdo$\"3s>\"eO7K4/*F27$$\"3;++ +++++FFdo$\"35\\\"e$*=/'GwF27$$\"3#************\\x#Fdo$\"39Vtmj3\")efF 27$$\"33++++++]GFdo$\"3YjxKrw!z3%F27$$\"3#)***********\\#HFdo$\"3?r33& fP!z?F27$$\"\"$F)F(-%'COLOURG6&%$RGBG$\"#5!\"\"F(F(-F$6$7enF'7$$\"3s** ****\\i9RlF/$\"3%=`VwTN#*)*)F27$$\"3/++vVA)GA\"F2$\"3,)zp?Wu9#zF27$$\" 3+++]Peui=F2$\"3s@E``SHQlF27$$\"3A++]i3&o]#F2$\"3ufS*\\F2$!3c(=sm!oU)z\"F2 7$$\"3$)***\\(=$f%GcF2$!3oG*o>s!oBNF27$$\"3Q+++Dy,\"G'F2$!3WK(zKx<$4_F 27$$\"33++]7\\/kN&e'F27$$\"3`+++v4&G](F2$!3yL)\\8N[s(zF27$ $\"3!)*****\\7nD:)F2$!3qzZ-62gt\"*F27$$\"3[+++D!*oy()F2$!3HS4!>[U2,\"F do7$$\"3))***\\PpnsM*F2$!3MNKGjK.v5Fdo7$$\"3e+]P4_J&o*F2$!3fpV#42_M5\" Fdo7$$\"3,++]siL-5Fdo$!3l`%>rI4V7\"Fdo7$$\"3,++DJL(4.\"Fdo$!3Q7j(=Zaf8 \"Fdo7$$\"3-+++!R5'f5Fdo$!3bI.9\"Fdo7$$\"3)***\\P/QBE6Fdo$!3NEnaM&=)yWo[)F27$$\"34+](=WU[V\"Fdo$!3cdk`y54&H(F27$$\"3)****\\7B>&) \\\"Fdo$!3#=!)Gu5=(ReF27$$\"3)***\\P>:mk:Fdo$!3K(>b!H5RyTF27$$\"3'*** \\iv&QAi\"Fdo$!3VW%yt#[\\TEF27$$\"31++vtLU%o\"Fdo$!3i(p%Q&yriB*F/7$$\" 3!******\\Nm'[Fdo$\"3 \\F!y1>cG#fF27$$\"3z*****\\@80+#Fdo$\"3(y!=C.'**[I(F27$$\"31++]7,Hl?Fd o$\"3A2%ya]\"3-')F27$$\"3()**\\P4w)R7#Fdo$\"3s-SrKfl\"f*F27$$\"3;++]x% f\")=#Fdo$\"3rx6lA8kW5Fdo7$$\"3!)**\\P/-a[AFdo$\"3I\\hc;ld,6Fdo7$$\"3q **\\7Ly4!G#Fdo$\"3&)*oulg?=7\"Fdo7$$\"3/+](=Yb;J#Fdo$\"3Ho,.:[ON6Fdo7$ $\"3&**\\(=7)3DM#Fdo$\"3\\@6Fdo7$$\"3E+vouE2pCFdo$\"3!>5\\/(\\X,6Fdo7$$\"3>+++!*>=+DFdo$ \"3e+\"e#e_-v5Fdo7$$\"3-++DE&4Qc#Fdo$\"3GfME+Tu,5Fdo7$$\"3=+]P%>5pi#Fd o$\"3M,)[GX030*F27$$\"39+++bJ*[o#Fdo$\"39o'4PYu;(zF27$$\"33++Dr\"[8v#F do$\"3C$z&>cF*)QlF27$$\"3++++Ijy5GFdo$\"3(HApgQ(p4^F27$$\"31+]P/)fT(GF do$\"3gT?ud9cnMF27$$\"31+]i0j\"[$HFdo$\"3f*zjdnsr\"=F27$F]x$!3s#yDJ7:6 b&!#M-F`x6&FbxF)F)F)-%+AXESLABELSG6%Q!6\"Ffjl-%%FONTG6#%(DEFAULTG-%%VI EWG6$;F(F]xF[[m" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 " " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "IT:=evalf(int(m/2*diff( soly(),t)^2,t=0..t1));" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "IV:=evalf (int(V(soly()),t=0..t1));" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "S:=IT-I V;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#ITG$\"+[hZ%#IVG$\"+?AgRb!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"SG$\"*GR(yn!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 103 "Zur\374ck zu \"Parameter\" ... Sie k\366nnen alle \344ndern! Unter welchen Bedingu ngen wird die N\344herung schlecht?" }}{PARA 0 "" 0 "" {TEXT -1 38 "Wi e l\344\337t sich die N\344herung verfeinern?" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 25 "komma@oe .uni-tuebingen.de" }}}}{MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }