{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 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Text Output" -1 2 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 0 1 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 2 6 1 {CSTYLE "" -1 -1 "" 0 1 0 0 20 0 0 0 0 0 0 0 2 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE " Warning" 2 7 1 {CSTYLE "" -1 -1 "" 0 1 0 0 255 1 0 0 0 0 0 0 1 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 2 0 2 0 0 0 0 0 0 0 0 0 0 1 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 2 0 0 0 0 0 0 0 0 0 0 1 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "f:=x->1/x;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fGf*6#%\"xG6\"6$%)operatorG%&arrowGF(*&\"\"\"F-9$! \"\"F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "int(f(x),x=1. .2);evalf(\");" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 7 "" 1 " " {TEXT -1 53 "Warning, incomplete string; use \" to end the string\n " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 102 "n:=1;h:=1;\ns1:=f(1)+f (2);\ns2:=0;\nfor i from 1 to n-1 do\n s2:=s2+f(1+h);\n od;\nI_r:= h/2/n*(s1+2*s2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"nG\"\"\"" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"hG\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#s1G#\"\"$\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>% #s2G\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$I_rG#\"\"$\"\"%" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 171 "n:=1;h:=1;m:=1;\ns1:=f(1)+f (2);\ns2:=0;\nfor m from 1 to 10 do\n for i from 1 to n-1 by 2 do\n \+ s2:=s2+f(1+i*h);\n od;\n I_r:=h/2*(s1+2*s2);\n n:=n*2;h: =h/2;\n od;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"nG\"\"\"" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"hG\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"mG\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#s1G# \"\"$\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#s2G\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$I_rG#\"\"$\"\"%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"nG\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"hG# \"\"\"\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$I_rG#\"#<\"#C" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"nG\"\"%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"hG#\"\"\"\"\"%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#> %$I_rG#\"%r6\"%!o\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"nG\"\")" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"hG#\"\"\"\"\")" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%$I_rG#\"'2,?\"')G)G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"nG\"#;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"hG#\"\"\"\"#; " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$I_rG#\"/4avV!3'G\"/+'pz:e7%" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"nG\"#K" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"hG#\"\"\"\"#K" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>% $I_rG#\"=f%yjn%Rq*\\o@9\"R;\"=+KsA]`Wc?oP`kB" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"nG\"#k" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"hG#\" \"\"\"#k" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$I_rG#\"YPkV/`RN3Omgp*fA %R0(p2P(z0GWE^=\"Y+S9)4w`ux]3t/))3%)\\2)eJ#[*>=7vqE" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%\"nG\"$G\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"h G#\"\"\"\"$G\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$I_rG#\"fqF!p>/&y@ vFNH;U9" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%\"nG\"$c#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"hG #\"\"\"\"$c#" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$I_rG#\"[y(H3yRpzQ_< 5?Bw?7b&30ncMqnk(*[7'H\\QbC\"eqPf-nD&fF82J!H?v[(3p6F$H$yfP)HHlE:p!*z(4 +DTtE;&\\sthb&RX?Z0'zpS(R%3@y!)>1l^A(pk@yh?x*)>&\"[y+SMhR*zQlWQg0BCc3? lRa59i)e5\"*)Hn@\"HF\"*QJzJ)\\7#)\\]o\")eYve5!*)or)[pp3h\"Hi4n#HOX8#Qo J\\W5+_N]zIw&QM]S8&QfC#\\*p0PZf![u[&>=;=Q8$G0](" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"nG\"$7&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"hG# \"\"\"\"$7&" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$I_rG#\"iflp!oY&p!3$f lq0f%\\*o0\"[561#p\\u9*)elB)fXV`Zz@pwq1v4^!=3\\3&Q;3*e_x]7 +dCYh_OP)GCmD*G7#H2us*=R71;l'fE+t$HJ.(*yKX(4mja/!>**e7v!>Ug)R>PL*\\9EX #*z#yYILVkg#e/?fG\\Y5mTzIf&*eK;(RLSB,,Zv@Q%eg$y0%>r,3!e,\"RzIia!H!fQET E:m`eaD6*\\vs/NgT%pT@MyBaZ2LVOt=5#\"ifl++kOrbc/:#y*o&e4A(=dDGkDZOrrsNS a*ezu_g)p;O!on&Q^golU#*)3(eCT+8*Rw5OHpO209d#QJI%\\\\%)HNfZW/VF-[L_#))* *e4vG3r,5Hm,3Ti_NtZF%\"nG\"%C5" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"hG#\"\"\"\"%C5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 198 "n:=1:h:=1.:\ns1:=f(1)+f(2):\ns2:=0:\nfor m from 1 to 10 do\n for i from 1 to n-1 by 2 do\n s2:=s2+f(1+i*h );\n od;\n I_r:=h/2*(s1+2*s2);\np[0,m]:=I_r;\nprint(m,n,h,I_r); \n n:=n*2;h:=h/2;\n od:" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&\"\"\"F #$F#\"\"!$\"+++++v!#5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&\"\"#F#$\"+++ ++]!#5$\"+ILL$3(F&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&\"\"$\"\"%$\"+++ ++D!#5$\"+&4Q-(pF'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&\"\"%\"\")$\"+++ +]7!#5$\"++&=7%pF'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&\"\"&\"#;$\"++++ ]i!#6$\"+D?\"R$p!#5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&\"\"'\"#K$\"+++ +DJ!#6$\"+v?3Kp!#5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&\"\"(\"#k$\"+++] i:!#6$\"+&QC;$p!#5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&\"\")\"$G\"$\"++ +]7y!#7$\"+]*4:$p!#5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&\"\"*\"$c#$\"+ ++D1R!#7$\"+]8[Jp!#5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&\"#5\"$7&$\"++ ]7`>!#7$\"+0UZJp!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "for \+ j from 1 to 9 do\n p[1,j]:=p[0,j+1]+(p[0,j+1]-p[0,j])/(4-1);\n od; " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"pG6$\"\"\"F'$\"+SWWWp!#5" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"pG6$\"\"\"\"\"#$\"+$oRD$p!#5" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"pG6$\"\"\"\"\"$$\"+-`aJp!#5" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"pG6$\"\"\"\"\"%$\"+LlZJp!#5" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"pG6$\"\"\"\"\"&$\"+#4s9$p!#5" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"pG6$\"\"\"\"\"'$\"+@=ZJp!#5" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"pG6$\"\"\"\"\"($\"+/=ZJp!#5" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"pG6$\"\"\"\"\")$\"+;=ZJp!#5" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"pG6$\"\"\"\"\"*$\"+B=ZJp!#5" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 120 "for i from 1 to 9 do\n fo r j from 1 to 10-i do\n p[i,j]:=p[i-1,j+1]+(p[i-1,j+1]-p[i-1,j])/ (4^i-1);\n od;\n od;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 114 "for j from 1 to 10 do\n for i from 0 to 10-j do\n printf(` %12.10f`,p[i,j]);\n od;\n printf(`\\n`);\n od;" }}{PARA 6 "" 1 "" {TEXT -1 120 " .7500000000 .6944444440 .6931746033 .6931474772 .6 931471824 .6931471794 .6931471804 .6931471804 .6931471818 .6931471823 " }}{PARA 6 "" 1 "" {TEXT -1 108 " .7083333330 .6932539683 .6931479010 .6931471836 .6931471794 .6931471804 .6931471804 .6931471818 .69314718 23" }}{PARA 6 "" 1 "" {TEXT -1 96 " .6970238095 .6931545302 .693147194 8 .6931471794 .6931471804 .6931471804 .6931471818 .6931471823" }} {PARA 6 "" 1 "" {TEXT -1 84 " .6941218500 .6931476533 .6931471796 .693 1471804 .6931471804 .6931471818 .6931471823" }}{PARA 6 "" 1 "" {TEXT -1 72 " .6933912025 .6931472092 .6931471804 .6931471804 .6931471818 .6 931471823" }}{PARA 6 "" 1 "" {TEXT -1 60 " .6932082075 .6931471822 .69 31471804 .6931471818 .6931471823" }}{PARA 6 "" 1 "" {TEXT -1 48 " .693 1624385 .6931471805 .6931471818 .6931471823" }}{PARA 6 "" 1 "" {TEXT -1 36 " .6931509950 .6931471817 .6931471823" }}{PARA 6 "" 1 "" {TEXT -1 24 " .6931481350 .6931471823" }}{PARA 6 "" 1 "" {TEXT -1 12 " .6931 474205" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "9 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }