{VERSION 2 3 "IBM INTEL NT" "2.3" } {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 "" 0 1 0 0 0 0 0 1 1 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 "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 } 1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 256 1 {CSTYLE "" -1 -1 " " 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }2 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 256 "" 0 "" {TEXT -1 12 "November \26497" }} {PARA 0 "" 0 "" {TEXT -1 14 "Martin Rempfer" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 256 "" 0 "" {TEXT 256 19 "Intervallhalbierung" }} {PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 100 " Mit dem folgenden Worksheet soll die Quadratwurzel von 2 durch Interva llhalbierung angen\344hert werden" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 84 "Nun w ird zuerst die Genauigkeit definiert, mit der die Wurzel berechnet wer den soll." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "Genauigkeit:=1 00;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%,GenauigkeitG\"$+\"" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "evalf(sqrt(2));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+iN@99!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 68 "Hier wird nun Maple der Vorgang der Intervallhalbierung beigebracht." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "m:=(l+r)/2;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"mG,&%\"lG#\"\"\"\"\"#%\"rGF'" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 36 "Wir w\344hlen sinnvolle Startschranken:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "l:=1:r:=2:" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 15 "Und los geht\264s:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 106 "for i from 1 to Genauigkeit \n do \n if m^2>2 \+ then r:=m fi; \n if m^2<2 then l:=m fi;\n od; \nm; " }}{PARA 11 "" 0 "" {TEXT -1 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6##\"K$oY\"HS a3:Hd5\"*4$=S@w`>B\"\"JOF8iE`-&**QiYmCg<$fG7r)" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 21 "evalf(m,Genauigkeit);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#$\"_qt1pT%)pvmE " 0 "" {MPLTEXT 1 0 55 " evalb(evalf(m,Genauigkeit)=evalf(sqrt(2),Genauigkeit));" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#%%trueG" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 15 " OK. Alles klar?" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}} {MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }