;;; 2.8.scm
;;; created on 2014-02-12
;;; $Id: 2.8.scm 1.1 2014/02/12 08:33:11 s Exp $
(define (main args)
  (define i 1)
  (define eps 1.0e-5)
  (define left 0)
  (define right 1)
  (define mid 0.5)
  (define (f x) (+  -24000
                   (*  6000 x)
                   (*  6000 (expt x 2))
                   (*  6000 (expt x 3))
                   (*  6000 (expt x 4))
                   (* 10000 (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.8")
  (print "eps= " eps)
  (print "c= " mid)
  (print "f(c)= " (f mid))
  (print "i= " i)

  0)
;;; end