{VERSION 2 3 "DEC ALPHA UNIX" "2.3" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 } {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 -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 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Plot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "series(arcsin(x),x,1 0);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#+/%\"xG\"\"\"\"\"\"#F%\"\"'\"\" $#\"\"$\"#S\"\"&#\"\"&\"$7\"\"\"(#\"#N\"%_6\"\"*-%\"OG6#F%\"#5" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "xx:=1/2:" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 69 "term:=6*product(2*k-1,k=1..n)/product(2*k,k= 1..n)*xx^(2*n+1)/(2*n+1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%termG, $*&*&-%&GAMMAG6#,&%\"nG\"\"\"#F-\"\"#F-F-)F.,&F,F/F-F-F-\"\"\"*(-%%sqr tG6#%#PiGF2-F)6#,&F,F-F-F-\"\"\"F1\"\"\"!\"\"\"\"'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "asympt(term,n,3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&,(*&*(-%$expG6#!\"\"\"\"\"-F(6#F+F+)*&\"\"\"F0%\"nG! \"\"#\"\"$\"\"#F0F0*(-F(6##F*F5\"\"\"-F(6##F+F5\"\"\"-%%sqrtG6#%#PiGF0 F2F3*&*(F'F+F,F+)F/#\"\"&F5F0F0*(F7\"\"\"F;\"\"\"-F@6#FBF0F2#!#:\"#;-% \"OG6#*$)F/#\"\"(F5F0F+F0*$))F5F1\"\"#F0F2" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 24 "combine(\",exp,symbolic);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&,(*&*$)*&\"\"\"F)%\"nG!\"\"#\"\"$\"\"#F)F)*$-%%sqrtG6 #%#PiGF)F+F,*&*$)F(#\"\"&F.F)F)*$-F16#F3F)F+#!#:\"#;-%\"OG6#*$)F(#\"\" (F.F)\"\"\"F)*$))F.F*\"\"#F)F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "combine(\",power,symbolic);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #*&,(*&*$)*&\"\"\"F)%\"nG!\"\"#\"\"$\"\"#F)F)*$-%%sqrtG6#%#PiGF)F+F,*& *$)F(#\"\"&F.F)F)*$-F16#F3F)F+#!#:\"#;-%\"OG6#*$)F(#\"\"(F.F)\"\"\"FF) F.,$F*!\"#FF" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "d:=solve(1/ 4*(1/n)^(3/2)/(sqrt(Pi))*2^(-2*n)=10^(-digits),digits);" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%\"dG,$*&,*-%#lnG6#\"\"%\"\"#-F)6#%#PiG\"\"\"-F )6#%\"nG\"\"$*&-F)6#F,F0F3F0F+\"\"\"-F)6#\"#5!\"\"#F0F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 104 "for nn to 10 do \n Digits:=floor( 1.1*subs(n=nn,d)+5);\n evalf(Pi-add(evalf(subs(n=k,term)),k=0..nn))\n od;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'DigitsG\"\"'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"%f;!\"&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'D igitsG\"\"(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"%ID!\"'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'DigitsG\"\")" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"%wV!\"(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'DigitsG\"\"*" } }{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"%[\")!\")" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'DigitsG\"#5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"&R f\"!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'DigitsG\"#6" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"&%GK!#5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#> %'DigitsG\"#6" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"%9n!#5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'DigitsG\"#7" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"&WU\"!#6" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'DigitsG\"#8" } }{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"&?2$!#7" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'DigitsG\"#9" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"&T r'!#8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 140 "for nn to 100 do \+ \n Digits:=floor(1.1*subs(n=nn,d)+5);\n correct[nn]:=floor(-log[10]( abs(evalf(Pi-add(evalf(subs(n=k,term)),k=0..nn)))))\nod:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "Digits;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#v" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "xx:=1 /2:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "term:=6*product(2*k- 1,k=1..n)/product(2*k,k=1..n)*xx^(2*n+1)/(2*n+1):" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 12 "Digits:=75:\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 140 "S:=subs(n=0,term):\nfor nn to 100 do \n S:=evalf(S+ subs(n=nn,term));\n delta:=abs(evalf(Pi-S)); \n correct[nn]:=floo r(-log[10](delta))\nod:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 83 " plot([seq([k,correct[k]],k=0..100)],style=point,symbol=circle,scaling= constrained);" }}{PARA 13 "" 1 "" {INLPLOT "6(-%'CURVESG6$7`q7$$\"\"\" \"\"!F(7$$\"\"#F*F,7$$\"\"$F*F/7$$\"\"%F*F27$$\"\"&F*F27$$\"\"'F*F57$$ \"\"(F*F87$$\"\")F*F87$$\"\"*F*F;7$$\"#5F*F>7$$\"#6F*F>7$$\"#7F*FA7$$ \"#8F*FD7$$\"#9F*FD7$$\"#:F*FG7$$\"#;F*FJ7$$\"# F*FM7$$\"#?F*FP7$$\"#@F*FS7$$\"#AF*FS7$$\"#BF*FV7$$\"#CF*FY7$$\"#DF*FY 7$$\"#EF*Ffn7$$\"#FF*Ffn7$$\"#GF*Fin7$$\"#HF*F\\o7$$\"#IF*F\\o7$$\"#JF *F_o7$$\"#KF*Fbo7$$\"#LF*Fbo7$$\"#MF*Feo7$$\"#NF*Feo7$$\"#OF*Fho7$$\"# PF*F[p7$$\"#QF*F[p7$$\"#RF*F^p7$$\"#SF*Fap7$$\"#TF*Fap7$$\"#UF*Fdp7$$ \"#VF*Fdp7$$\"#WF*Fgp7$$\"#XF*Fjp7$$\"#YF*Fjp7$$\"#ZF*F]q7$$\"#[F*F]q7 $$\"#\\F*F`q7$$\"#]F*Fcq7$$\"#^F*Fcq7$$\"#_F*Ffq7$$\"#`F*Fiq7$$\"#aF*F iq7$$\"#bF*F\\r7$$\"#cF*F\\r7$$\"#dF*F_r7$$\"#eF*Fbr7$$\"#fF*Fbr7$$\"# gF*Fer7$$\"#hF*Fer7$$\"#iF*Fhr7$$\"#jF*F[s7$$\"#kF*F[s7$$\"#lF*F^s7$$ \"#mF*Fas7$$\"#nF*Fas7$$\"#oF*Fds7$$\"#pF*Fds7$$\"#qF*Fgs7$$\"#rF*Fjs7 $$\"#sF*Fjs7$$\"#tF*F]t7$$\"#uF*F]t7$$\"#vF*F`t7$$\"#wF*Fct7$$\"#xF*Fc t7$$\"#yF*Fft7$$\"#zF*Fft7$$\"#!)F*Fit7$$\"#\")F*F\\u7$$\"##)F*F\\u7$$ \"#$)F*F_u7$$\"#%)F*Fbu7$$\"#&)F*Fbu7$$\"#')F*Feu7$$\"#()F*Feu7$$\"#)) F*Fhu7$$\"#*)F*F[v7$$\"#!*F*F[v7$$\"#\"*F*F^v7$$\"##*F*F^v7$$\"#$*F*Fa v7$$\"#%*F*Fdv7$$\"#&*F*Fdv7$$\"#'*F*Fgv7$$\"#(*F*Fgv7$$\"#)*F*Fjv7$$ \"#**F*F]w7$$\"$+\"F*F]w-%'COLOURG6&%$RGBG$FE!\"\"F*F*-%&STYLEG6#%&POI NTG-%(SCALINGG6#%,CONSTRAINEDG-%+AXESLABELSG6$%!GF__l-%'SYMBOLG6#%'CIR CLEG-%%VIEWG6$%(DEFAULTGFg_l" 2 332 332 332 5 4 1 0 2 9 0 4 1 1.000000 45.000000 45.000000 10020 10061 10054 10074 0 0 0 20030 0 12010 0 0 0 0 0 0 0 1 1 0 0 0 0 -21779 0 0 0 0 0 0 }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 13 "correct[100];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#j" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "1 6 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }