{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 "_cstyle7" -1 203 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "_cstyle4" -1 204 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 } {CSTYLE "_cstyle5" -1 206 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 } {CSTYLE "_cstyle6" -1 210 "Courier" 1 12 255 0 0 1 2 1 2 2 1 2 0 0 0 1 }{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 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 0 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "_pstyle10" -1 203 1 {CSTYLE "" -1 -1 "Ti mes" 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 "_pstyle11" -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 "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 "_pstyle6" -1 211 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 211 "" 0 "" {TEXT 206 3 "01." }{TEXT 206 0 "" }}} {EXCHG {PARA 208 "> " 0 "" {MPLTEXT 1 210 13 "Fib3:=proc(n)" } {MPLTEXT 1 210 0 "" }{MPLTEXT 1 210 1 "\n" }{MPLTEXT 1 210 16 "option \+ remember;" }{MPLTEXT 1 210 0 "" }{MPLTEXT 1 210 1 "\n" }{MPLTEXT 1 210 10 "local fib;" }{MPLTEXT 1 210 0 "" }{MPLTEXT 1 210 1 "\n" } {MPLTEXT 1 210 7 "if n<2 " }{MPLTEXT 1 210 0 "" }{MPLTEXT 1 210 1 "\n " }{MPLTEXT 1 210 16 " then return(n)" }{MPLTEXT 1 210 0 "" } {MPLTEXT 1 210 1 "\n" }{MPLTEXT 1 210 21 " elif type(n,'even')" } {MPLTEXT 1 210 0 "" }{MPLTEXT 1 210 1 "\n" }{MPLTEXT 1 210 16 " t hen fib:=" }{MPLTEXT 1 210 10 "Fib3(n/2);" }{MPLTEXT 1 210 0 "" } {MPLTEXT 1 210 1 "\n" }{MPLTEXT 1 210 42 " return(fib*(fib+2 *Fib3(n/2-1)))" }{MPLTEXT 1 210 0 "" }{MPLTEXT 1 210 1 "\n" }{MPLTEXT 1 210 50 " else return(Fib3((n+1)/2)^2+Fib3((n-1)/2)^2)" } {MPLTEXT 1 210 0 "" }{MPLTEXT 1 210 1 "\n" }{MPLTEXT 1 210 7 "end if; " }{MPLTEXT 1 210 0 "" }{MPLTEXT 1 210 1 "\n" }{MPLTEXT 1 210 9 "end p roc:" }{MPLTEXT 1 210 0 "" }}}{EXCHG {PARA 211 "" 0 "" {TEXT 206 3 "02 ." }{TEXT 206 0 "" }}}{EXCHG {PARA 207 "> " 0 "" {MPLTEXT 1 0 14 "star t:=time():" }{MPLTEXT 1 0 0 "" }{MPLTEXT 1 0 1 "\n" }{MPLTEXT 1 0 20 " res1:=Fib3(1000000):" }{MPLTEXT 1 0 0 "" }{MPLTEXT 1 0 1 "\n" } {MPLTEXT 1 0 13 "time()-start;" }{MPLTEXT 1 0 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"%-8!\"$" }}}{EXCHG {PARA 211 "" 0 "" {TEXT 206 3 "03 ." }{TEXT 206 0 "" }}}{EXCHG {PARA 208 "> " 0 "" {MPLTEXT 1 210 14 "st art:=time():" }{MPLTEXT 1 210 0 "" }{MPLTEXT 1 210 1 "\n" }{MPLTEXT 1 210 35 "res2:=combinat[fibonacci](1000000):" }{MPLTEXT 1 210 0 "" } {MPLTEXT 1 210 1 "\n" }{MPLTEXT 1 210 13 "time()-start;" }{MPLTEXT 1 210 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"%`B!\"$" }}}{EXCHG {PARA 211 "" 0 "" {TEXT 206 3 "04." }{TEXT 206 0 "" }}}{EXCHG {PARA 208 "> " 0 "" {MPLTEXT 1 210 10 "res2-res1;" }{MPLTEXT 1 210 0 "" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{PARA 213 "" 0 "" {TEXT 204 0 "" }}{PARA 213 "" 0 "" {TEXT 204 0 "" }}{PARA 213 "" 0 "" {TEXT 204 0 "" }}{PARA 213 "" 0 "" {TEXT 204 0 "" }}{PARA 213 "" 0 "" {TEXT 204 0 "" }}{PARA 203 "" 0 "" {TEXT 203 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 }