el;: TTimer;: TChart;: TChart;: TLineSeries;: TLineSeries;: TDBGrid;: TImage;: TImage;: TImage;: TImage;: TLabel;: TLabel;: TLabel;: TLabel;: TShape;: TShape ;: TShape;: TShape;: TShape;: TShape;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TButton;: TTimer;: TTimer;: TTimer;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TLabel;: TTable;: TDataSource; Time: TTimeField; Fdrogy: TFloatField; Tvody: TFloatField; Pvody: TFloatField; Fvody: TFloatField;: TLabel;: TLabel;: TLabel;: TTimer; RadioButton1Click (Sender: TObject); RadioButton2Click (Sender: TObject); RadioButton3Click (Sender: TObject); RadioButton4Click (Sender: TObject); RadioButton6Click (Sender: TObject); RadioButton5Click (Sender: TObject); Button1Click (Sender: TObject); FormCreate (Sender: TObject ); Timer1Timer (Sender: TObject); Timer2Timer (Sender: TObject); Button4Click (Sender: TObject); Timer4Timer (Sender: TObject); Timer5Timer (Sender: TObject); Timer6Timer (Sender: TObject);
{Private declarations}
{Public declarations}; mas = array [1 .. NN] of real;:
{$ R *. dfm} TForm1.RadioButton1Click (Sender: TObject); n, i: integer;, Res, u: mas;, k12, p1, k21, k22, p2,, Sy, Sost: real; . Series1.Clear;. Series2.Clear;: = 1; i: = 1 to n + du do y [i]: = 0; i: = n + du +1 to 57 do y [i]: = exp1 [ i-1]; i: = 58 to NN do y [i]: = 5.23; i: = 1 to n-1 do u [i]: = 0; i: = n to NN do u [i]: = 2.85;: = 0; k12: = 0; p1: = 0;: = 0; k22: = 0; p2: = 0; i: = (n + du +1) to NN do: = k11 + y [i -1] * y [i-1];: = k12 + u [i-1-du] * y [i-1];: = p1 + y [i] * y [i-1];: = k22 + sqr (u [i-1-du]);: = k21 + y [i-1] * u [i-1-du];: = p2 + y [i] * u [i-1-du] ;;: = (p1 * k22-p2 * k12)/(k11 * k22-k21 * k12);: = (k11 * p2-p1 * k21)/(k11 * k22-k21 * k12); i: = 1 to n + du do begin [i]: = 0;. Series1.AddXY (i, y [i],'', clred);. Series2.AddXY (i, Res [i],'', clgreen);; i: = n + du +1 to NN do begin [i]: = au11 * Res [i-1] + bu1 * u [i-1-du];. Series1.AddXY (i, y [i], ' ', clred);. Series2.AddXY (i, Res [i],'', clgreen);;: = 0; i: = n + du to NN do ySr: = ySr + Res [i];: = ySr /(NN-1);: = 0; Sost: = 0; i: = n + du to NN do: = Sy + sqr (Res [i]-ySr);: = Sost + sqr (y [i] - Res [i]);;: = Sy/(NN-1); Sost: = Sost/(NN-3);: = TObject); n, i: integer;, Res, u: mas;, k12, k13, p1, k21, k22, k23, p2, k31, k32, k33, p3,, Sy, Sost: real;. Series1.Clear ;. Series2.Clear;: = 2; i: = 1 to n + du do y [i]: = 0; i: = n + du +1 to 57 do y [i]: = exp1 [i-2] ; i: = 58 to NN do y [i]: = 5.23; i: = 1 to n-1 do u [i]: = 0; i: = n to NN do u [i]: = 2.85;: = 0; k12: = 0; k13: = 0; p1: = 0;: = 0; k22: = 0; k23: = 0; p2: = 0;: = 0; k32: = 0; k33: = 0; p3: = 0; i: = (n + du +1) to NN do: = k11 + y [i-1] * y [i-1];: = k12 + y [i-1] * y [i -2];: = k13 + u [i-1-du] * y [i-1];: = p1 + y [i] * y [i-1];: = k22 + sqr (y [i- 2]);: = k23 + y [i-2] * u [i-1-du];: = k33 + sqr (u [i-1-du]);: = p2 + y [i] * y [i-2];: = p3 + y [i] * u [i-1-du];;: = k12; k31: = k13; k32: = k23;:...
