1. F=X(1)**2+2*X(2)**2-0.3D00*DCOS(3*PI*X(1))*DCOS(4*PI*X(2))+0.3D00 1891: RETURN 1892: END 1893;M;) 1912: DIMENSION X(*) 1913: PI=4*DATAN(1.D00) 1914: DO I=1,M 1915: IF(DABS(X(I)).GT.100.D00) THEN 1916: CALL RANDOM(RAND) 1917: X(I)=
2. X(I).GT.10.D00) THEN 1930: CALL RANDOM(RAND) 1931: X(I)=RAND*15-5;A-H;DIMENSION X(*) 1928: DO I=1,M 1929: IF(X(I).LT.-5.D00 .OR,1927
3. X(I)).GT.10.D00) THEN 1949: CALL RANDOM(RAND) 1950: X(I)=(RAND;& (X(1)**2+X(2)**2)/PI))))+1.D00)**(-.1) 1955: RETURN 1956: END 1957: C,1946
4. ) 1977: DIMENSION X(*) 1978: C CROSS IN TRAY FUNCTION ; -10<= X(I) <=10; M=2; 1979: C MIN F(A, B)=-20626;A;3494 APPROX OF EITHER SIGN (+ OR -) 1963: PI=4*DATAN(1.D00) 1964: DO I=1,M 1965: IF( DABS(X(I)).GT.10.D00),1974