{VERSION 5 0 "IBM INTEL NT" "5.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 1 12 255 0 0 1 2 1 2 2 1 2 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 "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "Text" -1 200 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 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 }} {SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "01." }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 366 "newtonliste:=proc(f,x,x0)\nlocal G,z,y,list; \nif type(x0,rational)\n then return 'procname(args)'; \nend if;\nG:= z->eval(z-subs(x=z,f/diff(f,x)));\ny:=x0;\nlist:=[x0];\nwhile y<>G(y) \+ do\n list:=[op(list),G(y)];\n y:=G(y);\nend do;\nlist;\nend proc:\n \nnewtonverfahren:=proc(f,x,x0)\nif type(x0,rational)\n then return ' procname(args)'; \nend if;\nnewtonliste(f,x,x0)[-1];\nend proc:" }}} {EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "02." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "newtonverfahren(sin(x),x,3.);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+aEfTJ!\"*" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "0 3." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "f:=sin(x);\nnewtonlis te(f,x,3.);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fG-%$sinG6#%\"xG" } }{PARA 11 "" 1 "" {XPPMATH 20 "6#7&$\"\"$\"\"!$\"+VlaUJ!\"*$\"+`EfTJF) $\"+aEfTJF)" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "04." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "newtonverfahren(f,x,3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%0newtonverfahrenG6%-%$sinG6#%\"xGF)\"\"$" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "05." }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 283 "fixedpointliste:=proc(f,x,x0,n)\nlocal G,z,y,list; \nG:=z->eval(z-subs(x=z,f/diff(f,x)));\ny:=x0;\nlist:=[x0];\nwhile y<> G(y) and nops(list) " 0 "" {MPLTEXT 1 0 32 "newtonverfahren(x-exp(-x),x,0.);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+/HVrc!#5" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "07." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "sol:=so lve(x-exp(-x),x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$solG-%)Lambert WG6#\"\"\"" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "08." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "evalf(sol);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+/HVrc!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "1 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 } {PAGENUMBERS 0 1 2 33 1 1 }