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.

384 Appendix B<br />

SK(KS)=AMAX1(SM(I),ABS(X(I))*EB,EA)<br />

42 XK(KS)=X(I)<br />

IF(LD-L)46,43,43<br />

C<br />

C DETERMINING THE CURRENT WORST<br />

C<br />

43 KS=LB+1<br />

FS=FK(KS)<br />

DO 45 K=2,L<br />

KA=LB+K<br />

FF=FK(KA)<br />

IF(FF-FS)45,45,44<br />

44 FS=FF<br />

KS=KA<br />

45 CONTINUE<br />

46 LC=LC+1<br />

IF(LC-LL)26,47,47<br />

47 IF(LD-L)26,48,48<br />

C<br />

C END OF A GENERATION<br />

C<br />

48 KA=LB+1<br />

FA=FK(KA)<br />

FC=FA<br />

C<br />

C DETERMINING THE CURRENT BEST AND SUM<br />

C<br />

DO 50 K=2,L<br />

KB=LB+K<br />

FF=FK(KB)<br />

FC=FC+FF<br />

IF(FF-FA)49,50,50<br />

49 FA=FF<br />

KA=KB<br />

50 CONTINUE<br />

IF(FA-FB)51,51,53<br />

C<br />

C DETERMINING WHETHER THE CURRENT BEST IS BETTER THAN<br />

C THE SO FAR OVERALL BEST<br />

C<br />

51 FB=FA<br />

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

DO 52 I=1,N<br />

52 XB(I)=XK(KB+I)

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

Saved successfully!

Ooh no, something went wrong!