home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l292 / 1.ddi / ROOTSDEM.FOR < prev    next >
Encoding:
Text File  |  1989-10-10  |  867 b   |  29 lines
  1.  
  2.       !! PROGRAM  ROOTSDEMO
  3.       REAL a, b
  4.       INTEGER  i
  5.  
  6.  
  7.       b = BisectionRoots(.1, 4.0, .00001, 100, a, i)
  8.       write (*,10) 'Bisection Root = ', b
  9.       write (*,10) 'Value =          ', a
  10.       write (*,20) 'Error =          ', i
  11.  
  12.  
  13.       b = BrentRoots(2.5, 10.0, 1.0E-05, 150, a, i)
  14.       write (*,10) 'Brent Root =     ', b
  15.       write (*,10) 'Value =          ', a
  16.       write (*,20) 'Error =          ', i
  17.  
  18.       b = BrentRoots(0.1, 4.0, 0.000001, 150, a, i)
  19.       write (*,10) 'Brent Root =     ', b
  20.       write (*,10) 'Value =          ', a
  21.       write (*,20) 'Error =          ', i
  22.  
  23.       b = NewtonRoots(4.3, 1E-08, 150, a, i)
  24.       write (*,10) 'Newton Root=     ', b
  25.       write (*,10) 'Value =          ', a
  26.       write (*,20) 'Error =          ', i
  27. 10    FORMAT (1X, A15, F7.3)
  28. 20    FORMAT (1X, A15,I2)
  29.       end