Page 14 - 4824
P. 14
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))
3020 G(2)=200*(X(2)—Х(1)Д2)
3030 FOR i = 1 TO N:GO = GO + G(I)^2:NEXT I
3040 GO = SQR(GO)
3050 RETURN
КОНТРОЛЬНИЙ ПРИКЛАД
ВИКОРИСТОВУЮЧИ МЕТОД СПРЯЖЕНИХ ГРАДІЄНТІВ,
МІНІМІЗУВАТИ ФУНКЦІЮ РОЗЕНБРОКА R(U) =
100*(U2—U1^ Л2)Л2+(1—U1) ^2 З ПОЧАТКОВОЮ
ТОЧКОЮ (—1.2,1).
МЕТОД СПРЯЖЕНИХ ГРАДІЄНТІВ ЧИСЛО ЗМІННИХ N =
2