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> Strategies GRUP <strong>and</strong> REKO 385<br />

C<br />

C CONVERGENCE CRITERION<br />

C<br />

53 IF(FS-FA-EC)55,55,54<br />

54 IF((FS-FA)*FLOAT(L)/ED-ABS(FC))55,55,59<br />

55 LF=ISIGN(2,LF)<br />

56 KB=(KA-1)*N<br />

DO 57 I=1,N<br />

57 X(I)=XK(KB+I)<br />

58 RETURN<br />

C<br />

C TIME CONTROL<br />

C<br />

59 IF(T(D)-TN)25,56,56<br />

60 DO 61 I=1,N<br />

61 XB(I)=X(I)<br />

FB=F(N,XB)<br />

FA=FB<br />

LF=0<br />

GOTO 58<br />

END<br />

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

FUNCTION Z(S,R)<br />

COMMON/GRZ/LZ<br />

DATA ZP/6.28318531/<br />

GOTO(1,2),LZ<br />

1 A=SQRT(-2.*ALOG(R(D)))<br />

B=ZP*R(D)<br />

Z=S*A*SIN(B)<br />

LZ=2<br />

RETURN<br />

2 Z=S*A*COS(B)<br />

LZ=1<br />

RETURN<br />

END<br />

---------------------------------------------------------

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

Saved successfully!

Ooh no, something went wrong!