Evolution and Optimum Seeking

( + ) Evolution Strategy KORR 409
KONVZ is the generation counter if KONVKR > 1.
---------------------------------------------------------
SUBROUTINE ABSCHA
1(IELTER,KONVKR,IFALLK,EPSILO,ZBEST,ZSCHL,Z1,Z2,
2KONVZ,BKONVG)
LOGICAL BKONVG
DIMENSION EPSILO(4)
IF(KONVKR.EQ.1) GOTO 1
KONVZ=KONVZ+1
IF(KONVZ.LT.KONVKR) GOTO 3
KONVZ=0
DELTAF=Z1-Z2
Z1=Z2
GOTO 2
1 DELTAF=(ZSCHL-ZBEST)*IELTER
2 IF(DELTAF.GT.EPSILO(3)*IELTER) GOTO 3
IF(DELTAF.GT.EPSILO(4)*ABS(Z2)) GOTO 3
IFALLK=ISIGN(2,IFALLK)
BKONVG=.TRUE.
RETURN
3 BKONVG=.FALSE.
RETURN
END
---------------------------------------------------------
Function GAUSSN
GAUSSN converts a uniform random number distribution to a normal one. The function
has been programmed for the trapezium algorithm (J. H. Ahrens and U. Dieter, Computer
Methods for Sampling from the Exponential and Normal Distributions, Communications
of the Association for Computing Machinery, vol. 15 (1972), pp. 873-882 and 1047). The
Box-Muller rules require in many cases (machine-dependent) a longer run time even if
both of the pair of numbers can be used.
SIGMA is the standard deviation, which ismultiplied by the random number derived
from a (0.0,1.0) normal distribution.
---------------------------------------------------------
FUNCTION GAUSSN
1(SIGMA,GLEICH)
1 U=GLEICH(D)
U0=GLEICH(D)
IF(U.GE..919544406) GOTO 2
X=2.40375766*(U0+U*.825339283)-2.11402808
GOTO 10