Page 60 - 4729

960 IF GR>0 THEN 1020

970 HH = HH—DD
980 FOR I = 1 TO N : P(I) =X(I) : NEXT I

990 HH = HH—DD

1000 FOR I = 1 TO N:P(I)=X(I) : NEXT I 1010 FP = Z : GP = GR : GOTO 860 1020

HH = DD

1030 FOR I = 1 TO N: Q(I)=X(I) : NEXT I 1040 FQ = Z : GQ=GR : GOTO 860

1100 " ПЕРЕВІРКА КРИТЕРІЮ ЗАКІНЧЕННЯ 1110 IF G3<0,0005 THEN 1300

1120 IF K = N THEN 1250

1130 " ЗБІЛЬШИТИ ВМІСТ ЛІЧИЛЬНИКА ІТЕРАЦІЙ 1140 К = К+1

1150 " ЗНАЙТИ СПРЯЖЕНИЙ НАПРЯМОК 1160 AK=G3*G3/(GK*GK)

1170 FOR I=1 ТО N:D(I)=—G(I)+AK*D(I) :P(I)=X(I) : NEXT I 1200 PRINT

"НОВИЙ НАПРЯМОК" :DV=DV+1 : PRINT "ПОШУКУ" ; DV

1210 FP = Z:G1 = GO: GK = GO 1220 FOR I=1 TO N: PRINT "U" ; I ; " = " ;

X(I) : NEXT I : PRINT

"R(U)=";Z 1230 GOTO 600 1250 PRINT "ПОВТОРИТИ ПОШУК'"; : SV=SV+1 :

DV=DV+1

1260 PRINT "ІТЕРАЦІЯ"; SV;" ПОШУК" ; DV

1270 PRINT

1280 GOTO 550

1300 PRINT "МІНІМУМ ЗНАЙДЕНО"

1320 FOR i=1 TO N: PRINT "U"I" = "X(I) : NEXT 1

1340 PRINT "МІНІМУМ ФУНКЦІЇ R(U)="Z

1350 PRINT "КІЛЬКІСТЬ ВИЧИСЛЕНЬ ФУНКЦІЇ ДОРІВНЮЄ "TV

1400 END

2000 Z=100*(X(2)—Х(1)^2)^2+(1—Х(1))^2

2005 TV=TV+1

2010 RETURN

3000 GO = 0

ЗОЮ G(l)=—400*(X(2)—Х(1)Л2)*Х(1)—2*(1—X(l))

59