{VERSION 5 0 "IBM INTEL NT" "5.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 "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 "" 1 18 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 258 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 259 "" 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 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Out put" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Normal" -1 256 1 {CSTYLE "" -1 -1 "Times" 1 24 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Normal" -1 257 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Normal" -1 258 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 1 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 257 "" 0 "" {TEXT -1 0 "" }}{PARA 256 "" 0 "" {TEXT -1 21 "Sucess\343o de Fibonacci" }{TEXT 256 0 "" }}{PARA 257 "" 0 "" {TEXT -1 0 "" }}{PARA 257 "" 0 "" {TEXT 257 48 "Resolu\347\343o d a rela\347\343o de recorr\352ncia que a define" }}{PARA 257 "" 0 "" {TEXT -1 0 "" }}{PARA 257 "" 0 "" {TEXT -1 10 "17/10/2007" }}{PARA 0 " " 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 258 "" 0 "" {TEXT -1 0 "" }} {PARA 258 "" 0 "" {TEXT -1 80 "Procedimento que calcula, por recurs \343o, o n-\351simo termo da sucess\343o de Fibonacci" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "Fibonacc i := proc(n::posint) option remember;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 38 " if n=1 or n=2 then RETURN( 1 ); fi;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 35 " Fibonacci(n-1) + Fibonacci(n-2);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "seq(Fibonacci(i), i=1..20);" }}{PARA 11 "" 1 "" {XPPMATH 20 "66\" \"\"F#\"\"#\"\"$\"\"&\"\")\"#8\"#@\"#M\"#b\"#*)\"$W\"\"$L#\"$x$\"$5'\" $()*\"%(f\"\"%%e#\"%\"=%\"%ln" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 " " }}{PARA 0 "" 0 "" {TEXT 258 44 "C\341lculo das ra\355zes da equa\347 \343o caracter\355stica" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "evals := solve(x^2-x-1,x);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%&evalsG6$,&#\"\"\"\"\"#F(*&F)!\"\"\" \"&F'F(,&F'F(*&F)F+F,F'F+" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }} {PARA 258 "" 0 "" {TEXT -1 46 "Resolu\347\343o do sistema com as condi \347\365es iniciais" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "sol := solve(\{" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 38 " c1 * evals[1] + c2 * evals[2] = 1," }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 41 " c1 * evals[1]^2 + c2 * evals[2]^2 = 1" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 " \}," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 " \{c1,c2\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>% $solG<$/%#c2G,$*&\"\"&!\"\"F*#\"\"\"\"\"#F+/%#c1G,$*&F*F+F*F,F-" }}} {EXCHG {PARA 258 "" 0 "" {TEXT -1 0 "" }}{PARA 258 "" 0 "" {TEXT -1 45 "F\363rmula fechada do n-\351simo termo de Fibonacci" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "Fn := \+ c1 * evals[1]^n + c2 * evals[2]^n;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# >%#FnG,&*&%#c1G\"\"\"),&#F(\"\"#F(*&F,!\"\"\"\"&F+F(%\"nGF(F(*&%#c2GF( ),&F+F(*&F,F.F/F+F.F0F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "c1 := sqrt(5)/5; c2 := -sqrt(5)/5;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#c1G,$*&\"\"&!\"\"F'#\"\"\"\"\"#F*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#c2G,$*&\"\"&!\"\"F'#\"\"\"\"\"#F(" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT 259 68 "C\341lculo dos primeiros 20 n\372meros de Fibonacci pela f\363rmula fechada. " }} {PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "simplify(c1 * evals[1]^10 + c2 * evals[2]^10);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#b" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "s eq(simplify(c1 * evals[1]^i + c2 * evals[2]^i), i=1..20);" }}{PARA 11 "" 1 "" {XPPMATH 20 "66\"\"\"F#\"\"#\"\"$\"\"&\"\")\"#8\"#@\"#M\"#b\"# *)\"$W\"\"$L#\"$x$\"$5'\"$()*\"%(f\"\"%%e#\"%\"=%\"%ln" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "s olve(x^2-2*x-2,x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$,&\"\"\"F$*$\"\" $#F$\"\"#F$,&F$F$F%!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 " " }}}}{MARK "12 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 } {PAGENUMBERS 0 1 2 33 1 1 }