{VERSION 5 0 "IBM INTEL NT" "5.0" } {USTYLETAB {CSTYLE "_cstyle9" -1 200 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "_cstyle7" -1 204 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "_cstyle8" -1 207 "Courier" 1 12 255 0 0 1 2 1 2 2 1 2 0 0 0 1 }{CSTYLE "_cstyle6" -1 211 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{PSTYLE "_pstyle10" -1 203 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "_pstyl e11" -1 204 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "_pstyle8" -1 207 1 {CSTYLE " " -1 -1 "Courier" 1 12 255 0 0 1 2 1 2 2 1 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "_pstyle7" -1 208 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "_pstyle9" -1 213 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }} {SECT 0 {EXCHG {PARA 208 "" 0 "" {TEXT 204 3 "01." }{TEXT 204 0 "" }}} {EXCHG {PARA 207 "> " 0 "" {MPLTEXT 1 207 13 "fak1:=proc(n)" } {MPLTEXT 1 207 0 "" }{MPLTEXT 1 207 1 "\n" }{MPLTEXT 1 207 10 "local x ,k;" }{MPLTEXT 1 207 0 "" }{MPLTEXT 1 207 1 "\n" }{MPLTEXT 1 207 5 "x: =1;" }{MPLTEXT 1 207 0 "" }{MPLTEXT 1 207 1 "\n" }{MPLTEXT 1 207 20 "f or k from 1 to n do" }{MPLTEXT 1 207 0 "" }{MPLTEXT 1 207 1 "\n" } {MPLTEXT 1 207 9 " x:=k*x;" }{MPLTEXT 1 207 0 "" }{MPLTEXT 1 207 1 " \n" }{MPLTEXT 1 207 7 "end do;" }{MPLTEXT 1 207 0 "" }{MPLTEXT 1 207 1 "\n" }{MPLTEXT 1 207 10 "return(x);" }{MPLTEXT 1 207 0 "" }{MPLTEXT 1 207 1 "\n" }{MPLTEXT 1 207 9 "end proc:" }{MPLTEXT 1 207 0 "" }}} {EXCHG {PARA 208 "" 0 "" {TEXT 204 3 "02." }{TEXT 204 0 "" }}}{EXCHG {PARA 207 "> " 0 "" {MPLTEXT 1 207 38 "fak2:=n->convert([seq(k,k=1..n) ],`*`):" }{MPLTEXT 1 207 0 "" }}}{EXCHG {PARA 208 "" 0 "" {TEXT 204 3 "03." }{TEXT 204 0 "" }}}{EXCHG {PARA 207 "> " 0 "" {MPLTEXT 1 207 31 "fak3:=n->product('k','k'=1..n):" }{MPLTEXT 1 207 0 "" }}}{EXCHG {PARA 208 "" 0 "" {TEXT 204 3 "04." }{TEXT 204 0 "" }}}{EXCHG {PARA 207 "> " 0 "" {MPLTEXT 1 207 16 "fak4:=n->if n=0 " }{MPLTEXT 1 207 0 " " }{MPLTEXT 1 207 1 "\n" }{MPLTEXT 1 207 25 " then return(1) " }{MPLTEXT 1 207 0 "" }{MPLTEXT 1 207 1 "\n" }{MPLTEXT 1 207 35 " \+ else return(n*fak4(n-1))" }{MPLTEXT 1 207 0 "" }{MPLTEXT 1 207 1 "\n" }{MPLTEXT 1 207 16 " end if:" }{MPLTEXT 1 207 0 "" }}} {EXCHG {PARA 208 "" 0 "" {TEXT 204 3 "05." }{TEXT 204 0 "" }}}{EXCHG {PARA 207 "> " 0 "" {MPLTEXT 1 207 16 "fak4:=n->if n=0 " }{MPLTEXT 1 207 0 "" }{MPLTEXT 1 207 1 "\n" }{MPLTEXT 1 207 25 " then re turn(1)" }{MPLTEXT 1 207 0 "" }{MPLTEXT 1 207 1 "\n" }{MPLTEXT 1 207 66 " elif n>0 and type(n,'integer') then return(n*fak4(n-1)) " }{MPLTEXT 1 207 0 "" }{MPLTEXT 1 207 1 "\n" }{MPLTEXT 1 207 16 " \+ end if:" }{MPLTEXT 1 207 0 "" }{MPLTEXT 1 207 1 "\n" }{MPLTEXT 1 207 1 "\n" }{MPLTEXT 1 207 24 "fak4:=proc(n::nonnegint)" }{MPLTEXT 1 207 0 "" }{MPLTEXT 1 207 1 "\n" }{MPLTEXT 1 207 6 "if n=0" }{MPLTEXT 1 207 16 " then return(1) " }{MPLTEXT 1 207 7 "end if;" }{MPLTEXT 1 207 0 "" }{MPLTEXT 1 207 1 "\n" }{MPLTEXT 1 207 11 "n*fak4(n-1)" } {MPLTEXT 1 207 0 "" }{MPLTEXT 1 207 1 "\n" }{MPLTEXT 1 207 9 "end proc :" }{MPLTEXT 1 207 0 "" }}}{EXCHG {PARA 208 "" 0 "" {TEXT 204 3 "06." }{TEXT 204 0 "" }}}{EXCHG {PARA 207 "> " 0 "" {MPLTEXT 1 207 12 "trace (fak1):" }{MPLTEXT 1 207 0 "" }{MPLTEXT 1 207 1 "\n" }{MPLTEXT 1 207 8 "fak1(5);" }{MPLTEXT 1 207 0 "" }}}{EXCHG {PARA 208 "" 0 "" {TEXT 204 3 "07." }{TEXT 204 0 "" }}}{EXCHG {PARA 207 "> " 0 "" {MPLTEXT 1 207 12 "trace(fak4):" }{MPLTEXT 1 207 0 "" }{MPLTEXT 1 207 1 "\n" } {MPLTEXT 1 207 8 "fak4(5);" }{MPLTEXT 1 207 0 "" }}}{EXCHG {PARA 208 " " 0 "" {TEXT 204 3 "08." }{TEXT 204 0 "" }}}{EXCHG {PARA 207 "> " 0 " " {MPLTEXT 1 207 17 "nest:=proc(f,x,n)" }{MPLTEXT 1 207 0 "" } {MPLTEXT 1 207 1 "\n" }{MPLTEXT 1 207 7 "if n=0 " }{MPLTEXT 1 207 0 " " }{MPLTEXT 1 207 1 "\n" }{MPLTEXT 1 207 16 " then return(x)" } {MPLTEXT 1 207 0 "" }{MPLTEXT 1 207 1 "\n" }{MPLTEXT 1 207 23 " elif \+ type(n,'posint')" }{MPLTEXT 1 207 0 "" }{MPLTEXT 1 207 1 "\n" } {MPLTEXT 1 207 35 " then return(nest(f,f(x),n-1))" }{MPLTEXT 1 207 0 "" }{MPLTEXT 1 207 1 "\n" }{MPLTEXT 1 207 8 "end if; " } {MPLTEXT 1 207 0 "" }{MPLTEXT 1 207 1 "\n" }{MPLTEXT 1 207 9 "end proc :" }{MPLTEXT 1 207 0 "" }}}{EXCHG {PARA 207 "> " 0 "" {MPLTEXT 1 207 14 "nest(sin,x,5);" }{MPLTEXT 1 207 0 "" }{MPLTEXT 1 207 1 "\n" } {MPLTEXT 1 207 12 "(sin@@5)(x);" }{MPLTEXT 1 207 0 "" }}}{EXCHG {PARA 208 "" 0 "" {TEXT 204 3 "09." }{TEXT 204 0 "" }}}{EXCHG {PARA 207 "> \+ " 0 "" {MPLTEXT 1 207 20 "fold:=proc(f,x,list)" }{MPLTEXT 1 207 0 "" } {MPLTEXT 1 207 1 "\n" }{MPLTEXT 1 207 38 "if nops(list)=0 then return( x) end if;" }{MPLTEXT 1 207 0 "" }{MPLTEXT 1 207 1 "\n" }{MPLTEXT 1 207 15 "if nops(list)=1" }{MPLTEXT 1 207 0 "" }{MPLTEXT 1 207 1 "\n" } {MPLTEXT 1 207 28 " then return(f(x,op(list)))" }{MPLTEXT 1 207 0 "" }{MPLTEXT 1 207 1 "\n" }{MPLTEXT 1 207 58 " else return(fold(f,f(x,op (1,list)),subsop(1=NULL,list)))" }{MPLTEXT 1 207 0 "" }{MPLTEXT 1 207 1 "\n" }{MPLTEXT 1 207 7 "end if;" }{MPLTEXT 1 207 0 "" }{MPLTEXT 1 207 1 "\n" }{MPLTEXT 1 207 9 "end proc:" }{MPLTEXT 1 207 0 "" }}} {EXCHG {PARA 207 "> " 0 "" {MPLTEXT 1 207 44 "fak5:=n->fold((x,y)->x*y ,1,[seq(k,k=1..n)]):" }{MPLTEXT 1 207 0 "" }}}{EXCHG {PARA 208 "" 0 " " {TEXT 204 3 "10." }{TEXT 204 0 "" }}}{EXCHG {PARA 207 "> " 0 "" {MPLTEXT 1 207 29 "fak6:=n->fold(`*`,1,[$1..n]):" }{MPLTEXT 1 207 0 " " }}}{EXCHG {PARA 208 "" 0 "" {TEXT 204 3 "11." }{TEXT 204 0 "" }}} {EXCHG {PARA 207 "> " 0 "" {MPLTEXT 1 207 48 "fak7:=n->nest(x->[x[1]+1 ,x[2]*x[1]],[1,1],n)[2]:" }{MPLTEXT 1 207 0 "" }}}{EXCHG {PARA 208 "" 0 "" {TEXT 204 3 "12." }{TEXT 204 0 "" }}}{EXCHG {PARA 207 "> " 0 "" {MPLTEXT 1 207 21 "fixedpoint:=proc(f,x)" }{MPLTEXT 1 207 0 "" } {MPLTEXT 1 207 1 "\n" }{MPLTEXT 1 207 10 "if x=f(x) " }{MPLTEXT 1 207 1 "\n" }{MPLTEXT 1 207 16 " then return(x)" }{MPLTEXT 1 207 0 "" } {MPLTEXT 1 207 1 "\n" }{MPLTEXT 1 207 33 " else return(fixedpoint(f,f (x)))" }{MPLTEXT 1 207 0 "" }{MPLTEXT 1 207 1 "\n" }{MPLTEXT 1 207 7 " end if;" }{MPLTEXT 1 207 0 "" }{MPLTEXT 1 207 1 "\n" }{MPLTEXT 1 207 9 "end proc:" }{MPLTEXT 1 207 0 "" }}}{EXCHG {PARA 207 "> " 0 "" {MPLTEXT 1 207 19 "fixedpoint(cos,1.);" }{MPLTEXT 1 207 0 "" }}} {EXCHG {PARA 208 "" 0 "" {TEXT 204 3 "13." }{TEXT 204 0 "" }}}{EXCHG {PARA 207 "> " 0 "" {MPLTEXT 1 207 24 "plot([x,cos(x)],x=0..1);" } {MPLTEXT 1 207 0 "" }}}{EXCHG {PARA 208 "" 0 "" {TEXT 204 3 "14." } {TEXT 204 0 "" }}}{EXCHG {PARA 207 "> " 0 "" {MPLTEXT 1 207 84 "newton verfahren:=(f,init)->fixedpoint(x->evalf(x-f(x)/subs(y=x,diff(f(y),y)) ),init):" }{MPLTEXT 1 207 0 "" }}}{EXCHG {PARA 208 "" 0 "" {TEXT 204 3 "15." }{TEXT 204 0 "" }}}{EXCHG {PARA 207 "> " 0 "" {MPLTEXT 1 207 24 "newtonverfahren(sin,3.);" }{MPLTEXT 1 207 0 "" }}}{PARA 213 "" 0 " " {TEXT 211 0 "" }}{PARA 203 "" 0 "" {TEXT 200 0 "" }}{PARA 204 "" 0 " " {TEXT -1 0 "" }}}{MARK "1 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 } {PAGENUMBERS 0 1 2 33 1 1 }