Реферат Програмна реалізація графічного методу розв'язання задач нелінійного програмування для випадку нелінійної цільової функції і лінійних обмежень

.В. Delphi 7. Алгоритми і програми/О.В. Чеснокова - М.: Прес, 2008. - 368 с. br/>

ДОДАТОК

unit Comps;

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Buttons, ExtCtrls, Series, TeEngine, TeeProcs, Chart;

= class (TForm): TStaticText;: TLabel;: TEdit;: TEdit;: TStaticText;: TStaticText;: TStaticText;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TLabel;: TBitBtn;: TEdit;: TEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TEdit;: TEdit;: TLabel;: TStaticText;: TBevel;: TBevel;: TEdit;: TEdit; : TEdit;: TEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TChart;: TFastLineSeries;: TFastLineSeries;: TPointSeries;: TLabeledEdit;: TPointSeries;: TPointSeries; BitBtn1Click ( Sender: TObject); calcMin (); calcMax ();

{Private declarations}

{Public declarations};

: TForm1;, k2, a11, a12, b1, a21, a22, b2: double;, Ox2, Lmin, Lmax, X, Y, E: double;

{$ R *. dfm}

TForm1.BitBtn1Click (Sender: TObject); i, j: double;: boolean;: = strtofloat (editk1.Text); k2: = strtofloat (editk2.Text);: = strtofloat (edit11 . Text); a12: = strtofloat (edit12.Text); b1: = strtofloat (editb1.Text);: = strtofloat (edit21.Text); a22: = strtofloat (edit22.Text); b2: = strtofloat (editb2. Text);: = strtofloat (labelededit1.Text);

// строімграфікі: = 0; j: = 0;: = (b1-a11 * i)/a12; j> = 0 then Chart.Series [0]. AddXY (i, j) ;: = i +1; (j <0) or (j> 30);: = 0; j: = 0;: = (b2-a21 * i)/a22; j> = 0 then Chart.Series [1 ]. AddXY (i, j);: = i +1; (j <0) or (j> 30);

// точка О: = k1;: = k2;

editOx1.Text: = floattostr (Ox1);. Text: = floattostr (Ox2);. Series [2]. AddXY (Ox1, Ox2);

// чи належить Про області допустимих значень

if ((Ox1 * a11 + Ox2 * a12 <= b1) and (Ox1 * a21 + Ox2 * a22 <= b2) and (Ox1> = 0) and (Ox2> = 0)) . Caption: = 'Належить';: = true;. Caption: = 'Непрінадлежіт';

oE: = false;;

// рахуємо координати точки перетину графіків (найзручніша точка)

X: = (b2 * a12-b1 * a22)/(a21 * a12-a11 * a22);: = (b1-a11 * X)/a12;

// знаходимо точки екстремуму і вважаємо макс/хв цільової функції

if oE = true: = 0;. Text: = floattostr (Lmin);. Text: = floattostr (Ox1);. Text: = floattostr (Ox2);

(); if oE = false (); ();;

;

procedure TForm1.calcMin ();// знаходимо точку мінімуму

var i, j, x1, x2: double;: = X; x2: = Y;: = 0; j: = 0; (a11 * i + a12 * j <= b1) and (a21 * i + a22 * j <=...