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.

406 Appendix B<br />

DO 4 I=1,NX<br />

KI=KI1<br />

IF(GLEICH(D).GE..5) KI=KI2<br />

4 XX(I)=Y(KI+I)<br />

RETURN<br />

5 DO 6 I=1,NX<br />

XX1=Y(KI1+I)<br />

XX2=Y(KI2+I)<br />

XXI=(XX1+XX2)*.5<br />

IF(J.EQ.1) GOTO 6<br />

DXX=XX1-XX2<br />

IF(ABS(DXX).GT.PIEINS) XXI=XXI+SIGN(PIEINS,DXX)<br />

6 XX(I)=XXI<br />

RETURN<br />

7 DO 8 I=1,NX<br />

8 XX(I)=Y((L1+IFIX(IELTER*GLEICH(D)))*NZ+NN+I)<br />

RETURN<br />

9 DO 10 I=1,NX<br />

XX1=Y((L1+IFIX(IELTER*GLEICH(D)))*NZ+NN+I)<br />

XX2=Y((L1+IFIX(IELTER*GLEICH(D)))*NZ+NN+I)<br />

XXI=(XX1+XX2)*.5<br />

IF(J.EQ.1) GOTO 10<br />

DXX=XX1-XX2<br />

IF(ABS(DXX).GT.PIEINS) XXI=XXI+SIGN(PIEINS,DXX)<br />

10 XX(I)=XXI<br />

RETURN<br />

11 GOTO(12,12,12,18,20),IREKO<br />

12 KI1=K1*NZ+NN<br />

IF(IREKO.GT.1) GOTO 14<br />

DO 13 I=1,NX<br />

13 XX(I)=XX(I)+Y(KI1+I)<br />

RETURN<br />

14 KI2=K2*NZ+NN<br />

IF(IREKO.EQ.3) GOTO 16<br />

DO 15 I=1,NX<br />

KI=KI1<br />

IF(GLEICH(D).GE..5) KI=KI2<br />

15 XX(I)=XX(I)+Y(KI+I)<br />

RETURN<br />

16 DO 17 I=1,NX<br />

17 XX(I)=XX(I)+(Y(KI1+I)+Y(KI2+I))*.5<br />

RETURN<br />

18 DO 19 I=1,NX<br />

19 XX(I)=XX(I)+Y((L1+IFIX(IELTER*GLEICH(D)))*NZ+NN+I)

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

Saved successfully!

Ooh no, something went wrong!