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.

374 Appendix B<br />

25 L(K)=L(K+1)<br />

L(10)=LE<br />

LM=0<br />

LC=LC+1<br />

IF(LC-10*LS)31,26,26<br />

C<br />

C CONVERGENCE CRITERION<br />

C<br />

26 IF(FC-FB-EC)28,28,27<br />

27 IF((FC-FB)/ED-ABS(FC))28,28,30<br />

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

29 RETURN<br />

30 LC=0<br />

FC=FB<br />

C<br />

C TIME CONTROL<br />

C<br />

31 IF(T(D)-TN)7,29,29<br />

32 DO 33 I=1,N<br />

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

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

LF=0<br />

GOTO 29<br />

END<br />

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

FUNCTION Z(S,R)<br />

COMMON/EVZ/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!