{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 "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 
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 12 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 400 "bisect:=proc(f,a,b,M,delta,epsilon)\n  local c,
u,v,e,k,w,aa,bb;\n  aa:=a;\n  bb:=b;\n  u:=f(aa);\n  v:=f(bb);\n  e:=b
b-aa;\n  if signum(u)=signum(v) then return fi;\n  for k from 1 to M d
o\n   e:=e/2;\n   c:=aa+e;\n   w:=f(c);\n   printf(\"\\n %15.8g %15.8g
 %15.8g %15.8g  \",k,c,w,e);\n   if abs(e)<delta or abs(w)<epsilon the
n return fi;\n   if signum(u)<>signum(w) then bb:=c;v:=w;else aa:=c;u:
=w; fi;\n   od;\nend;\n" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%'bisectGf
*6(%\"fG%\"aG%\"bG%\"MG%&deltaG%(epsilonG6*%\"cG%\"uG%\"vG%\"eG%\"kG%
\"wG%#aaG%#bbG6\"F6C)>8*9%>8+9&>8%-9$6#F9>8&-FA6#F<>8',&F<\"\"\"F9!\"
\"@$/-%'signumG6#F?-FO6#FDOF6?(8(FJFJ9'%%trueGC(>FH,$*&#FJ\"\"#FJFHFJF
J>8$,&F9FJFHFJ>8)-FA6#Fin-%'printfG6'Q@|+~%15.8g~%15.8g~%15.8g~%15.8g~
~F6FUFinF\\oFH@$52-%$absG6#FH9(2-Fgo6#F\\o9)OF6@%0FN-FOF\\pC$>F<Fin>FD
F\\oC$>F9Fin>F?F\\oF6F6F6" }}}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
{MARK "2 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 
33 1 1 }