;;; 2.11a.scm
;;; 
;;; $Id: 2.11a.scm 1.1 2014/02/15 08:43:52 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) (+  -100
                   (*  30 x)
                   (*  30 (expt x 2))
                   (*  30 (expt x 3))
                   (*  30 (expt x 4))
                   (*  30 (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.11a")
  (print "eps= " eps)
  (print "c= " mid)
  (print "f(c)= " (f mid))
  (print "i= " i)
  (print "irr= 1/c -1= " (- (/ 1 mid) 1))

  0)
;;; end