{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 }{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 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "Digits:=5;" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "s:=0:for n from 1 to 100 do \+
s:=s+1.0/n od:s;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "s:=0:fo
r n from 1 to 1000 do s:=s+1.0/n od:s;" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 46 "s:=0:for n from 1 to 10000 do s:=s+1.0/n od:s;" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "s:=0:for n from 1 to 15000 d
o s:=s+1.0/n od:s;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "s:=0:
for n from 1 to 20000 do s:=s+1.0/n od:s;" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 46 "s:=0:for n from 1 to 34000 do s:=s+1.0/n od:s;" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "s:=0:for n from 34000 to 1 b
y -1 do s:=s+1.0/n od:s;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 
"s:=0:for n from 1 to 34000 do s:=s+1/n od:evalf(s,10);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "evalf(numer(s));" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 16 "evalf(denom(s));" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 2 "s;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "
a:=499990.0;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "b:=4.9999;
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "c:=0.0001;" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "b+c:a+%;" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 8 "a+b:%+c;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
0 "" }}}}{MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 3 2 1804 1 1 1 1 }
{PAGENUMBERS 0 1 2 33 1 1 }