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.

372 Appendix B<br />

8. Function Z(S,R)<br />

This function converts a uniform r<strong>and</strong>om number distribution to a normal distribution<br />

pairwise by means of the Box-Muller rules. The st<strong>and</strong>ard deviation is supplied as parameter<br />

S, while the expectation value for the mean is always 0.0. The quantity LZis<br />

common to EVOL <strong>and</strong> Z by virtue of a COMMON block <strong>and</strong> acts as a switch to transmit<br />

only one of the two r<strong>and</strong>om numbers generated in response to each second call.<br />

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

SUBROUTINE EVOL(N,M,LF,LR,LS,TM,EA,EB,EC,ED,SN,FB,<br />

1XB,SM,X,F,G,T,Z,R)<br />

DIMENSION XB(1),SM(1),X(1),L(10)<br />

COMMON/EVZ/LZ<br />

EXTERNAL R<br />

TN=TM+T(D)<br />

LZ=1<br />

IF(M)4,4,1<br />

1 LF=-1<br />

C<br />

C FEASIBILITY CHECK<br />

C<br />

FB=0.<br />

DO 3 J=1,M<br />

FG=G(J,N,XB)<br />

IF(FG)2,3,3<br />

2 FB=FB-FG<br />

3 CONTINUE<br />

IF(FB)4,4,5<br />

C<br />

C ALL CONSTRAINTS SATISFIED IF FB

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

Saved successfully!

Ooh no, something went wrong!