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.

398 Appendix B<br />

C NEGATIVE (LETHAL MUTATION), THE MUTATION IS NOT<br />

C COUNTED AS REGARDS THE NACHKO PARAMETER.<br />

C<br />

IF(.NOT.BLETAL(N,M,X,RESTRI)) GOTO 21<br />

IF(.NOT.BKOMMA) GOTO 25<br />

LMUTAT=LMUTAT-1<br />

L3=L3+1<br />

IF(L3.LT.NACHKO) GOTO 18<br />

L3=0<br />

C<br />

C TIME CHECK MADE NOT ONLY AFTER EACH GENERATION BUT<br />

C ALSO AFTER EVERY NACHKO LETHAL MUTATIONS FOR<br />

C CERTAINTY.<br />

C<br />

IF(TKONTR(D).LT.TMAXIM) GOTO 18<br />

IFALLK=3<br />

GOTO 26<br />

21 Z=ZIELFU(N,X)<br />

C<br />

C EVALUATION OF OBJECTIVE FUNCTION VALUE FOR THE<br />

C DESCENDANT.<br />

C<br />

22 IF(BKOMMA.AND.LMUTAT.LE.IELTER) GOTO 23<br />

IF(Z-ZSCHL)24,24,25<br />

23 LSCHL=L2+LMUTAT-1<br />

24 CALL SPEICH<br />

1(LSCHL*NZ,BKORRL,EPSILO,N,NS,NP,NY,Z,X,S,P,Y)<br />

C<br />

C TRANSFER OF DATA OF DESCENDANT TO PART OF ARRAY Y<br />

C HOLDING THE PARENTS FOR THE NEXT GENERATION.<br />

C<br />

IF(.NOT.BKOMMA.OR.LMUTAT.GE.IELTER) CALL MINMAX<br />

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

C<br />

C LOOK FOR THE CURRENTLY WORST INDIVIDUAL STORED IN<br />

C ARRAY Y WITHOUT CONSIDERING THE PARENTS THAT STILL<br />

C CAN PRODUCE DESCENDANTS IN THIS GENERATION.<br />

C<br />

25 IF(LMUTAT.LT.NACHKO) GOTO 18<br />

C<br />

C END OF GENERATION.<br />

C<br />

26 CALL MINMAX<br />

1(1.,L2,NZ,ZBEST,LBEST,IELTER,NY,Y)

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

Saved successfully!

Ooh no, something went wrong!