27.06.2013 Views

Evolution and Optimum Seeking

Evolution and Optimum Seeking

Evolution and Optimum Seeking

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

( + ) <strong>Evolution</strong> Strategy KORR 411<br />

---------------------------------------------------------<br />

SUBROUTINE DREHNG<br />

1(NL,NM,N,NP,X,P)<br />

DIMENSION X(N),P(NP)<br />

NQ=NP<br />

DO 1 II=NL,NM<br />

N1=N-II<br />

N2=N<br />

DO 1 I=1,II<br />

X1=X(N1)<br />

X2=X(N2)<br />

SI=SIN(P(NQ))<br />

CO=COS(P(NQ))<br />

X(N2)=X1*SI+X2*CO<br />

X(N1)=X1*CO-X2*SI<br />

N2=N2-1<br />

1 NQ=NQ-1<br />

RETURN<br />

END<br />

---------------------------------------------------------<br />

Logical function BLETAL<br />

BLETAL tests the feasibility ofanobjectvariable vector immediately on production if<br />

constraints are imposed. The rst constraint tobeviolatedcausesBLETAL to signal<br />

to KORR via the function name (declared as a Boolean variable) that the mutation was<br />

lethal.<br />

---------------------------------------------------------<br />

LOGICAL FUNCTION BLETAL<br />

1(N,M,X,RESTRI)<br />

DIMENSION X(N)<br />

DO 1 J=1,M<br />

IF(RESTRI(J,N,X).LT.0.) GOTO 2<br />

1 CONTINUE<br />

BLETAL=.FALSE.<br />

RETURN<br />

2 BLETAL=.TRUE.<br />

RETURN<br />

END<br />

---------------------------------------------------------<br />

Subroutine MUTATI<br />

MUTATI h<strong>and</strong>les the r<strong>and</strong>om alteration of the strategy variables <strong>and</strong> the object variables.<br />

First, the step sizes are altered in accordance with the DELTAS <strong>and</strong> DELTAI

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

Saved successfully!

Ooh no, something went wrong!