home *** CD-ROM | disk | FTP | other *** search
/ Best Objectech Shareware Selections / UNTITLED.iso / boss / educ / math / 011 / func1.for < prev    next >
Encoding:
Text File  |  1988-08-22  |  171 b   |  8 lines
  1.       SUBROUTINE ROSENB (X, Y, F)
  2.       IMPLICIT REAL*8 (A-H,O-Z)
  3. C == Rosenbrock's function ==
  4.       F = 100.0 * (Y - X*X)**2 + (1 - X)**2
  5.       RETURN
  6.       END
  7.  
  8.