<div dir="ltr">I just wanted to point this error out. Although the proper block of code is presented on page 329, that block of code is not incorporated in Fig 75. Additionally, the call to &quot;find-root&quot; is missing &quot;f&quot;<br>
<div><br>;; find-root : (number -&gt; number) number number -&gt; number<br>;; to determine a number R such that f has a<br>;; root between R and (+ R TOLERANCE)<br>;;<br>;; ASSUMPTION: f is continuous and monotonic<br>(define (find-root f left right)<br>
   (cond<br>      [(&lt;= (- right left) TOLERANCE) left]<br>      [else<br>         (local ((define mid (/ (+ left right) 2)))<br>            (cond<br>               [(<b>or</b> (&lt;= (f mid) 0 (f right)) <b>(&lt;= (f right) 0 (f mid)))</b><br>
                  (find-root<b> f </b>mid right)]<br>               [else<br>                  (find-root <b>f </b>left mid)]))]))<br><br><br></div><div>Thanks,<br></div><div>Mike<br></div></div>