Evolution and Optimum Seeking

( + ) Evolution Strategy KORR 413
Example 1
Minimize
with xi
0, integer for all i = 1(1)n
F (x) =
nX
i=1
(xi ; i)
---------------------------------------------------------
FUNCTION F(N,X)
DIMENSION X(N)
F=0.
DO 1 I=1,N
IX=IFIX(ABS(X(I)))
XI=FLOAT(IX-I)
F=F+XI*XI
1 CONTINUE
RETURN
END
---------------------------------------------------------
Example 2
Minimize
with x 1 from f1.3, 1.5, 2.2, 2.8g only
F (x) =(x 1 ; 2) 2 +(x 1 ; 2x 2) 2
---------------------------------------------------------
FUNCTION F(N,X)
DIMENSION X(N), Y(4)
DATA Y /1.3,1.5,2.2,2.8/
DO 1 I=1,4
X1=Y(I)
IF (X(1)-X1) 2,2,1
1 CONTINUE
2 F1=X1-2.
F2=X1-X(2)-X(2)
F =F1*F1+F2*F2
RETURN
END
---------------------------------------------------------