27.06.2013 Views

Evolution and Optimum Seeking

Evolution and Optimum Seeking

Evolution and Optimum Seeking

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

396 Appendix B<br />

ZSTERN=ZBEST<br />

K=LBEST*NZ<br />

DO 15 I=1,N<br />

15 XSTERN(I)=Y(K+I)<br />

16 L1=IELTER<br />

L2=0<br />

IF(KONVKR.GT.1) KONVZ=0<br />

C<br />

C ALL INITIALIZATION STEPS COMPLETED AT THIS POINT.<br />

C EACH FRESH GENERATION NOW STARTS AT LABEL 17.<br />

C<br />

17 L3=L2<br />

L2=L1<br />

L1=L3<br />

IF(M.GT.0) L3=0<br />

LMUTAT=0<br />

C<br />

C LMUTAT IS THE MUTATION COUNTER WITHIN A GENERATION,<br />

C WHILE L3 IS THE COUNTER FOR LETHAL MUTATIONS WHEN<br />

C THE PROBLEM INVOLVES CONSTRAINTS.<br />

C<br />

IF(BKOMMA) GOTO 18<br />

C<br />

C IF BKOMMA=.FALSE. HAS BEEN SELECTED, THE PARENTS<br />

C MUST BE INCORPORATED IN THE SELECTION. THE DATA FOR<br />

C THESE ARE TRANSFERRED FROM THE FIRST (OR SECOND)<br />

C PART OF THE ARRAY Y TO THE SECOND (OR FIRST) PART.<br />

C IN THIS CASE THE WORST INDIVIDUAL MUST ALSO BE<br />

C KNOWN, THIS IS REPLACED BY THE FIRST BETTER<br />

C DESCENDANT.<br />

C<br />

CALL UMSPEI<br />

1(L1*NZ,L2*NZ,IELTER*NZ,NY,Y)<br />

CALL MINMAX<br />

1(-1.,L2,NZ,ZSCHL,LSCHL,IELTER,NY,Y)<br />

C<br />

C THE GENERATION OF EACH DESCENDANT STARTS AT LABEL 18<br />

C<br />

18 K1=L1+IELTER*GLEICH(D)<br />

C<br />

C RANDOM CHOICE OF A PARENT OR OF A PAIR OF PARENTS<br />

C IN ACCORDANCE WITH THE VALUE CHOSEN FOR IREKOM. IF<br />

C IREKOM=3 OR IREKOM=5, THE CHOICE OF PARENTS IS MADE<br />

C WITHIN GNPOOL.

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!