sqr (x [1]) + sqr (x [2]); ; gradient; i: integer; fp, fo: real; i: = 1 to N TObject); gamma, Y, OD, xx1, xx2, yy: real; i, k: integer; XX: mass;: = 1; do;: = 0; i: = 1 to N do: = OD + sqr (G [i]);: = sqrt (OD);: = F (XK); i: = 1 to N f = '+ FloatToStr (Y)); _Memo1.Lines.Add (' Нове f = '+ FloatToStr (F (XK))); _Memo1.Lines.Add (' Крок gamma = '+ FloatToStr (gamma)); _Chart1 . SeriesList.Series [0]. AddXY (XK [1], XK [2]); f (XK)
Kovalenko_Chart1.SeriesList.Series [1]. AddXY (XK [1], XK [2]); _Edit1.Text: ='';
Kovalenko_Edit1.Text: = 'X1 =' + FloatToStr (XK [1]) + '
'+' X2 = '+ FloatToStr (XK [2]) +' '+ Kovalenko_Edit1.Text +' Y = '+ FloatToStr (Y); [1]: = -0.5; XK [2 ]: = 0.2; k: = 0 to 4 doi: = 0 to 400 to 4 doi: = 0 to 400 TObject); _Chart3.Visible: = True; _Chart1.Visible: = False; _Chart2.Visible: = False;;. br/>
5.3 Блок-схема
В
В
В
5.4 Результати
В
Малюнок 5.1
В
Малюнок 5.2
В
Малюнок 5.3
Вихідна функція:
exp (x 1 ) + x 2 2 + x 1 2
Оптимальні точки:
1 = -0.3517 X 2 = 1.7918 Y = 0.8271
Висновок:
Дане завдання заснована на наступних властивостях градієнта скалярного поля:
1) напрямок в якому похідна скалярного поля має найбільше вираження збігається з напрямком градієнтом скалярного поля.
2) Найбільше значення похідної скалярного поля в точці М 0 дорівнює модулю градієнта скалярного поля в цій точці.
