home *** CD-ROM | disk | FTP | other *** search
/ Best Objectech Shareware Selections / UNTITLED.iso / boss / educ / math / 011 / func2.for < prev    next >
Encoding:
Text File  |  1988-08-22  |  425 b   |  17 lines
  1.       SUBROUTINE FP (X, Y, Z, F)
  2. C == Fletcher and Powell, 1963 ==
  3.       IMPLICIT REAL*8 (A-H,O-Z)
  4.       PI = 3.14159
  5.       PI2 = 2 * PI
  6.       R = DSQRT(X*X + Y*Y)
  7.       IF (X .LT. 0) GO TO 10
  8.         THETA = DATAN(Y / X) / PI2
  9.         GO TO 20
  10.    10 CONTINUE
  11.         THETA = (PI + DATAN(Y / X)) / PI2
  12.    20 CONTINUE
  13.       F = 100. * ((Z - 10 * THETA)**2 + 
  14.      :    (R - 1)**2) + Z*Z
  15.       RETURN
  16.       END
  17.