{VERSION 6 0 "IBM INTEL NT" "6.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 } {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 Output" -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 "Maple Output" -1 12 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 3 0 0 0 0 1 0 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "?guess" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "with(gfun):" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 31 "R1:=guessgf([0,1,3,6,10,15],z);" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%#R1G7$,$*&%\"zG\"\"\",&F)!\"\"F(F)!\"$F+%$ogfG " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "f1:=R1[1];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#f1G,$*&%\"zG\"\"\",&F(!\"\"F'F(!\"$F*" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "taylor(f1,z=0,12);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#+;%\"zG\"\"\"F%\"\"$\"\"#\"\"'F&\"#5\"\"%\"# :\"\"&\"#@F(\"#G\"\"(\"#O\"\")\"#X\"\"*\"#bF)\"#m\"#6-%\"OG6#F%\"#7" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "(1+I)^3;" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#^$!\"#\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "E1:=NULL:for k from 0 to 10 do E1:=E1,[k,(1+I)^k] od:E1; " }} {PARA 12 "" 1 "" {XPPMATH 20 "6-7$\"\"!\"\"\"7$F%^$F%F%7$\"\"#^#F)7$\" \"$^$!\"#F)7$\"\"%!\"%7$\"\"&^$F1F17$\"\"'^#!\")7$\"\"(^$\"\")F87$F<\" #;7$\"\"*^$F>F>7$\"#5^#\"#K" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "E1:=NULL:for k from 0 to 20 do E1:=E1,[k,(1+I)^k] od:E1;" }}{PARA 12 "" 1 "" {XPPMATH 20 "677$\"\"!\"\"\"7$F%^$F%F%7$\"\"#^#F)7$\"\"$^$! \"#F)7$\"\"%!\"%7$\"\"&^$F1F17$\"\"'^#!\")7$\"\"(^$\"\")F87$F<\"#;7$\" \"*^$F>F>7$\"#5^#\"#K7$\"#6^$!#KFE7$\"#7!#k7$\"#8^$FLFL7$\"#9^#!$G\"7$ \"#:^$\"$G\"FS7$F>\"$c#7$\"#<^$FYFY7$\"#=^#\"$7&7$\"#>^$!$7&Fjn7$\"#?! %C5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "E2:=NULL:for k from \+ 0 to 12 do E2:=E2,[k,Im((1+I)^k)] od:E2;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6/7$\"\"!F$7$\"\"\"F&7$\"\"#F(7$\"\"$F(7$\"\"%F$7$\"\"&!\"%7$\"\"' !\")7$\"\"(F27$\"\")F$7$\"\"*\"#;7$\"#5\"#K7$\"#6F<7$\"#7F$" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "evalf(1/13,40);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"I#p2Bp2Bp2Bp2Bp2Bp2Bp(!#T" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 62 "E3:=NULL:for k from 0 to 12 do E3:=E3,Re( (1+I)^k) od:L3:=[E3];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#L3G7/\"\" \"F&\"\"!!\"#!\"%F)F'\"\")\"#;F+F'!#K!#k" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 62 "E4:=NULL:for k from 0 to 12 do E4:=E4,Im((1+I)^k) od: L4:=[E4];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#L4G7/\"\"!\"\"\"\"\"#F (F&!\"%!\")F*F&\"#;\"#KF,F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "nops(L4);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "M1:=matrix(2,2,[a11,a12,a21,a22]);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#M1GK%'matrixG6#7$7$%$a11G%$a12G7$%$ a21G%$a22GQ(pprint06\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "w ith(linalg):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "multiply(M1 ,M1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#K%'matrixG6#7$7$,&*$)%$a11G\" \"#\"\"\"F-*&%$a12GF-%$a21GF-F-,&*&F+F-F/F-F-*&F/F-%$a22GF-F-7$,&*&F0F -F+F-F-*&F4F-F0F-F-,&F.F-*$)F4F,F-F-Q(pprint06\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "Vn:=proc(k) matrix(2,1,[L3[k],L4[k]]) end;" } }{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#VnGf*6#%\"kG6\"F(F(-_%'linalgG%'ma trixG6%\"\"#\"\"\"7$&%#L3G6#9$&%#L4GF3F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "seq(Vn(k),k=1..8);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6*K%'matrixG6#7$7#\"\"\"7#\"\"!Q(pprint06\"KF$6#7$F'F'Q(pprint1F,K F$6#7$F)7#\"\"#Q(pprint2F,KF$6#7$7#!\"#F4Q(pprint3F,KF$6#7$7#!\"%F)Q(p print4F,KF$6#7$F@F@Q(pprint5F,KF$6#7$F)7#!\")Q(pprint6F,KF$6#7$7#\"\") FJQ(pprint7F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "multiply(M 1,Vn(1));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#K%'matrixG6#7$7#%$a11G7#% $a21GQ(pprint06\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "multip ly(M1,Vn(2));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#K%'matrixG6#7$7#,&%$a 11G\"\"\"%$a12GF*7#,&%$a21GF*%$a22GF*Q(pprint06\"" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 27 "M2:=matrix(2,2,[1,-1,1,1]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#M2GK%'matrixG6#7$7$\"\"\"!\"\"7$F*F*Q(pprint06 \"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "multiply(M2,Vn(2));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#K%'matrixG6#7$7#\"\"!7#\"\"#Q(pprint 06\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "multiply(M2,Vn(3)); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#K%'matrixG6#7$7#!\"#7#\"\"#Q(pprin t06\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "suite1:=proc(m) if m=0 then 0 else suite1(m-1)+m fi end;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'suite1Gf*6#%\"mG6\"F(F(@%/9$\"\"!F,,&-F$6#,&F+\"\"\"F1!\"\"F1 F+F1F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "seq(suite1(k) ,k=0..10);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6-\"\"!\"\"\"\"\"$\"\"'\"# 5\"#:\"#@\"#G\"#O\"#X\"#b" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "R2:=guessgf([0,1,3,6,10,15,21, 28, 36, 45, 55],z);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#R2G7$*&%\"zG\"\"\",*F(F(*&\"\"$F(F'F(!\"\"*&F+F ()F'\"\"#F(F(*$)F'F+F(F,F,%$ogfG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "T2:=x^2/(2*(1-x));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #>%#T2G*&%\"xG\"\"#,&F'\"\"\"*&F'F)F&F)!\"\"F+" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 22 "T:=diff(T2,x)-x/(1-x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"TG,(*(\"\"#\"\"\"%\"xGF(,&F'F(*&F'F(F)F(!\"\"F,F(*( F'F(F)F'F*!\"#F(*&F)F(,&F(F(F)F,F,F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "S:=diff(T,x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\" SG,,*&\"\"#\"\"\",&F'F(*&F'F(%\"xGF(!\"\"F,F(*(\"\")F(F+F(F)!\"#F(*(F. F(F+F'F)!\"$F(*&F(F(,&F(F(F+F,F,F,*&F+F(F3F/F," }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 15 "rationalize(S);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*&%\"xG\"\"\",*F&!\"\"*&\"\"$F&F%F&F&*&F*F&)F%\"\"#F&F(*$)F%F* F&F&F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "S:=x/((1-x)^3); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"SG*&%\"xG\"\"\",&F'F'F&!\"\"! \"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "taylor(S,x=0,12);" } }{PARA 12 "" 1 "" {XPPMATH 20 "6#+;%\"xG\"\"\"F%\"\"$\"\"#\"\"'F&\"#5 \"\"%\"#:\"\"&\"#@F(\"#G\"\"(\"#O\"\")\"#X\"\"*\"#bF)\"#m\"#6-%\"OG6#F %\"#7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "seq(suite1(k),k=0. .11);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6.\"\"!\"\"\"\"\"$\"\"'\"#5\"#: \"#@\"#G\"#O\"#X\"#b\"#m" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 125 "font1:=proc(n) option remember :local s,j;if n=1 then s:=1 else s :=0:for j from 1 to n-1 do s:=s+(n-j)*font1(j) od fi: s end;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%&fon t1Gf*6#%\"nG6$%\"sG%\"jG6#%)rememberG6\"C$@%/9$\"\"\">8$F2C$>F4\"\"!?( 8%F2F2,&F1F2F2!\"\"%%trueG>F4,&F4F2*&,&F1F2F9F;F2-F$6#F9F2F2F4F-F-F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "33 2 0" 0 } {VIEWOPTS 1 1 0 2 1 1805 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }