Реферат Оптимізаційні методи мінімізації та максимізації

--

# pragma package (smart_init)

# pragma resource "*. dfm" * Form1; N = 1;

// ---------------------------------------- -----------------------------------

__fastcall TForm1 :: TForm1 (TComponent * Owner)

: TForm (Owner)

{lin_ur = new TStringList;}

{if (Form1-> SaveDialog1-> Execute ())

{Form1-> Chart1-> SaveToBitmapFile (Form1-> SaveDialog1-> FileName);}}

// ---------------------------------------- ----------------- __fastcall TForm1 :: saverez ()

{int k = 0; str1 = ""; = "Метод Коші Рівняння має вигляд: Точка j = 0; j

{for (int i = 0; i <5; i + +)

{k = StrLen (Form1-> StringGrid1-> Cells [i] [j]. c_str ()); + = ("" + Form1-> StringGrid1-> Cells [i] [j] + ""); (int p = 0; 25-k> p; p + +) + = (""); + = ("|");} + = ' n';} (Form1-> SaveDialog2-> Execute ())

{String

}

// ---------------------------------------- ------------------- __fastcall TForm1 :: zadanie ()

{

Label11-> Caption = "Ця точка є мінімумом функції";

fq = funk (q1, q2); -> Caption = FloatToStrF (fq, ffGeneral, 6,0);

// Label5-> Caption = "f (X1, X2) =

// Form1-> StatusBar1-> Panels-> Items [3] -> Text = "******* Введіть точність методу та натисніть " вирахували "*******";}

// ---------------------------------------- __fastcall TForm1 :: vi4 ()

// Form1-> StatusBar1-> Panels-> Items [3] -> Text = "******* Введіть нові вихідні дані та натисніть " ВВЕДЕННЯ ДАНИХ "*******";}

{float альфа "; -> StringGrid1-> Cells [3] [0] =" Поточна точка "; -> StringGrid1-> Cells [4] [0] =" Значення

{N = i +2; -> Cells [0] [i +1] = i; = df_x1 (x11, x21); = df_x2 (x11, 2 * tmp1 * (x11-a) +2 * tmp2 * (x21-b) + x11 * tmp2 + x21 * tmp1; _z = 2 * (tmp1 * tmp1 + tmp2 * tmp2 + tmp1 * tmp2); (alpha_z! = 0)

{alpha = alpha_v/alpha_z; -> Cells [2] [i +1] = FloatToStrF (alpha, ffGeneral, 6,0);

{return (pow (x11-a, 2) + pow (x21-b, 2) + x11 * x21);}

// ---------------------------------------- -------------- __fastcall TForm1 :: df_x1 (float x11, float x21)

{return (2 * x11-2 * a + x21);}

// ---------------------------------------- ---------------- __fastcall TForm1 :: df_x2 (float x11, float x21)

{return (2 * x21-2 * b + x11);} __fastcall TForm1...