;;; 2.10b2.scm
;;; created on 2014-02-15
;;; $Id: 2.10b2.scm 1.1 2014/02/15 04:20:37 s Exp $
(define (main args)
  (define i 1)
  (define eps 1.0e-3)
  (define left 0)
  (define right 1)
  (define mid 0.5)
  (define (f x) (+  -1000000
                   (*  840000 x)
                   (*  707500 (expt x 2))
                   (*  387500 (expt x 3))
                   (*  177500 (expt x 4))
                   (*   50000 (expt x 5)) ))
  (while (> (abs (f mid)) eps) 
    (if (> (f mid) 0)
      (set! right mid) 
      (set! left  mid)
    )
    (set! mid (/ (+ left right) 2))
    (inc! i)
  )
  (print "2.10b2")
  (print "eps= " eps)
  (print "c= " mid)
  (print "f(c)= " (f mid))
  (print "i= " i)
  (print "irr= 1/c -1= " (- (/ 1 mid) 1))

  0)
;;; end