Evolution and Optimum Seeking

( + ) Evolution Strategy KORR 405
---------------------------------------------------------
SUBROUTINE UMSPEI
1(K1,K2,KK,NY,Y)
DIMENSION Y(NY)
DO 1 K=1,KK
1 Y(K2+K)=Y(K1+K)
RETURN
END
---------------------------------------------------------
Subroutine GNPOOL
GNPOOL supplies a set of variables for a descendant by drawing on the pool of parents
taken together in accordance with the type of recombination selected. This subroutine is
called once each for the object variables X, the strategy variables S, and possibly also P.
To minimize storage demand, the changes in the object variables by mutation are added
immediately (J = 3). In intermediary recombination for the positional angle (J = 2), a
check must be made on the di erence between the parental angles to establish suitable
mean values. J = 1 denotes the case where step sizes are involved.
L1 denotes the part of the gene pool from which the parent data are to be drawn if IREKO
= 3 or IREKO = 5. K1 denotes the parent selected by KORR whose data are to be used
when IREKO = 1 (no recombination). K1 and K2 denote the two parents whose data are
to be recombined if IREKO =2orIREKO = 4 has been selected.
NZ and NN are auxiliary quantities for deriving the addresses in array Y.
NX representsNorNSorNP, XX representsXorSorP,IREKO represents one of the
digits of IREKOM, i.e., IREKOX or IREKOS or IREKOP.
---------------------------------------------------------
SUBROUTINE GNPOOL
1(J,L1,K1,K2,NZ,NN,IELTER,IREKO,NX,NY,XX,Y,GLEICH)
DIMENSION XX(NX),Y(NY)
COMMON/PIDATA/PIHALB,PIEINS,PIZWEI
EXTERNAL GLEICH
IF(J.EQ.3) GOTO 11
GOTO(1,1,1,7,9),IREKO
1 KI1=K1*NZ+NN
IF(IREKO.GT.1) GOTO 3
DO 2 I=1,NX
2 XX(I)=Y(KI1+I)
RETURN
3 KI2=K2*NZ+NN
IF(IREKO.EQ.3) GOTO 5