: (..)

:

: 1197


4.1. -

 

1961 ., . , . :

. ( ).

. . , . :

1.

2. , .. - ,   , , .. .. n ,

3. .. , , .

() .

4. .

. :

1. , .

2.

3. -2 , -1.

. , .

(2;5;-2). (4;-2;3) 1 . 10-8, .

C -

COMMON/A/ X(3),MN,Z

DIMENSION B(3),Y(3),P(3)

N=3

X(1)=4.

X(2)=-2.

X(3)=3.

H=1.0

HK=H

MN=0

DO 10 I=1,N

Y(I)=X(I)

P(I)=X(I)

B(I)=X(I)

10 CONTINUE

CALL FUN

F1=Z

OPEN(UNIT=1,FILE='XUK',STATUS='OLD')

WRITE(1,20) Z

20 FORMAT(1X,' F=',E15.8)

WRITE(1,25) (X(I),I=1,N)

25 FORMAT(1X,3E15.6)

IPS=0

IBS=0

J=1

FB=F1

200 X(J)=Y(J)+HK

CALL FUN

IF(Z.LT.F1) GOTO 280

X(J)=Y(J)-HK

CALL FUN

IF(Z.LT.F1) GOTO 280

X(J)=Y(J)

GOTO 290

280 Y(J)=X(J)

290 CALL FUN

F1=Z

WRITE(1,30) Z

30 FORMAT(1X,'ʠ F=',E15.8)

WRITE(1,35) (X(I),I=1,N)

35 FORMAT(1X,3E15.6)

IF(J.EQ.N) GOTO 360

J=J+1

GOTO 200

360 IF(F1.LT.(FB-1.0E-08)) GOTO 540

IF(IPS.EQ.1.AND.IBS.EQ.0) GOTO 420

GOTO 490

420 DO 40 I=1,N

P(I)=B(I)

Y(I)=B(I)

X(I)=B(I)

40 CONTINUE

CALL FUN

IBS=1

IPS=0

F1=Z

FB=Z

WRITE(1,45) Z

45 FORMAT(1X,' Ƞ F=',E15.8)

WRITE(1,50) (X(I),I=1,N)

50 FORMAT(1X,3E15.6)

J=1

GOTO 200

490 HK=HK/10.

WRITE(1,60)

60 FORMAT(1X,' ')

IF(HK.LT.1.0E-08) GOTO 700

J=1

GOTO 200

540 CONTINUE

DO 70 I=1,N

P(I)= B(I)+2.*(Y(I)-B(I))

B(I)=Y(I)

X(I)=P(I)

Y(I)=X(I)

70 CONTINUE

CALL FUN

FB=F1

IPS=1

IBS=0

F1=Z

WRITE(1,80) Z

80 FORMAT(1X,' Ӡ F=',E15.8)

WRITE(1,90) (X(I),I=1,N)

90 FORMAT(1X,3E15.6)

J=1

GOTO 200

700 WRITE(1,100)

100 FORMAT(/10X,' ')

WRITE(1,110) (I,X(I),I=1,N)

110 FORMAT(1X,I3,E15.6)

WRITE(1,120) FB

120 FORMAT(1X,'̠ F=',E15.8)

WRITE(1,130) MN

130 FORMAT(1X,' ',I6)

STOP

END

SUBROUTINE FUN

COMMON/A/ X(3),MN,Z

Z=(X(1)-2.)**2+(X(2)-5.)**2+(X(3)+2.)**4.

MN=MN+1

RETURN

END

 

F= 0.67800000E+03

0.400000E+01 -0.200000E+01 0.300000E+01

ʠ F= 0.67500000E+03

0.300000E+01 -0.200000E+01 0.300000E+01

ʠ F= 0.66200000E+03

0.300000E+01 -0.100000E+01 0.300000E+01

ʠ F= 0.29300000E+03

0.300000E+01 -0.100000E+01 0.200000E+01

Ӡ F= 0.10600000E+03

0.200000E+01 0.000000E+00 0.100000E+01

ʠ F= 0.10600000E+03

0.200000E+01 0.000000E+00 0.100000E+01

ʠ F= 0.97000000E+02

0.200000E+01 0.100000E+01 0.100000E+01

ʠ F= 0.32000000E+02

0.200000E+01 0.100000E+01 0.000000E+00

Ӡ F= 0.50000000E+01

0.100000E+01 0.300000E+01 -0.200000E+01

ʠ F= 0.00000000E+00

0.200000E+01 0.500000E+01 -0.200000E+01

ʠ F= 0.00000000E+00

0.200000E+01 0.500000E+01 -0.200000E+01

ʠ F= 0.00000000E+00

0.200000E+01 0.500000E+01 -0.200000E+01

ʠ F= 0.00000000E+00

0.200000E+01 0.500000E+01 -0.200000E+01

 

̠

1 0.200000E+01

2 0.500000E+01

3 -0.200000E+01

̠ F= 0.00000000E+00

Π 136

 

| |