Курсовая работа: Оптимизация многомерной нелинейной функции. Слепой поиск

{$R *.dfm}

procedure TForm1. FormCreate (Sender: TObject);

begin

StringGrid1. Cols[0].Text:='№ итер.';

StringGrid1. Cols[1].Text:='X1';

StringGrid1. Cols[2].Text:='X2';

StringGrid1. Cols[3].Text:='Значение функции';

StringGrid1. Cols[4].Text:='Попытка';

end;

procedure TForm1. SpeedButton1Click (Sender: TObject);

var I: Integer;

A, B, C, D, x11, x12, x21, x22, x1, x2, x1opt, x2opt, y, Yopt:real;

begin

// присваиваем для удобства значения переменных

A:=StrToFloat (Edit1. Text);

B:=StrToFloat (Edit2. Text);

C:=StrToFloat (Edit3. Text);

D:=StrToFloat (Edit4. Text);

x11:=StrToFloat (Edit5. Text);

x12:=StrToFloat (Edit6. Text);

x21:=StrToFloat (Edit7. Text);

x22:=StrToFloat (Edit8. Text);

StringGrid1. RowCount:=SpinEdit9. Value+1;

for I:=1 to SpinEdit9. Valuedo

BEGIN

// получение случайных значений координат точки

{**************************************}

randomize;

x1:= (x12 – x11) *random+ x11;