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.

394 Appendix B<br />

1<br />

NL=1+N-NS<br />

NM=N-1<br />

NZ=NY/(IELTER+IELTER)<br />

IF(M.EQ.0) GOTO 2<br />

C<br />

C<br />

C<br />

CHECK FEASIBILITY OF INITIAL VECTOR XSTERN.<br />

IFALLK=-1<br />

ZSTERN=ZULASS(N,M,XSTERN,RESTRI)<br />

IF(ZSTERN.GT.0.) GOTO 3<br />

2 IFALLK=1<br />

ZSTERN=ZIELFU(N,XSTERN)<br />

3 CALL SPEICH<br />

1(0,BKORRL,EPSILO,N,NS,NP,NY,ZSTERN,XSTERN,S,P,Y)<br />

C<br />

C THE INITIAL VALUES SUPPLIED BY THE USER ARE STORED<br />

C<br />

C<br />

C<br />

IN FIELD Y AS THE DATA OF THE FIRST PARENT.<br />

IF(KONVKR.GT.1) Z1=ZSTERN<br />

ZBEST=ZSTERN<br />

LBEST=0<br />

IF(IELTER.EQ.1) GOTO 16<br />

DSMAXI=DELTAS<br />

DPMAXI=AMIN1(DELTAP*10.,PIHALB)<br />

DO 14 L=2,IELTER<br />

C IF IELTER > 1, THE OTHER IELTER - 1 INITIAL VECTORS<br />

C ARE DERIVED FROM THE VECTOR FOR THE FIRST PARENT BY<br />

C MUTATION (WITHOUT SELECTION). THE STRATEGY<br />

C<br />

C<br />

PARAMETERS ARE WIDELY SPREAD.<br />

DO 4 I=1,NS<br />

4 S(I)=Y(N+I)<br />

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

IFALLK=-3<br />

GOTO 42<br />

501 IF(.NOT.BKORRL) GOTO 7<br />

DO 6 I=1,NP<br />

6 P(I)=Y(N+NS+I)<br />

7<br />

C<br />

CALL MUTATI<br />

1(NL,NM,BKORRL,DSMAXI,DELTAI,DPMAXI,N,NS,NP,X,S,P,<br />

2GAUSSN,GLEICH)<br />

C MUTATION IN ALL OBJECT AND STRATEGY PARAMETERS.

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

Saved successfully!

Ooh no, something went wrong!