Реферат Розрахунок системи стабілізації в управлінні

T2 + T0_k * T3 + T2 * T3;

a3: = T0_k * T2 * T3;

b0: = Kz;

b1: = Kz * (T + T0_k);

b2: = Kz * T * T0_k;

h: = a1/(40 * a0);

y: = 0;

y2: = 0;

y3: = 0;

Ymax: = 0;

Yust: =-dx;

Tp: = 0;

end;

Init_Graph ('c: tp7.1 bgi');

y0: = MaxY-450;

SetBkColor (White);

Draw_XOY (x0, y0, 1, 't', 'y');

Draw_Shkala_x (x0, y0, 1, kofx, 1);

Draw_Shkala_y (x0, y0, 1, kofy, 20);

Init;

while (abs (Ymax-dx)> 0.025 * dx) do

begin

y3: = y3 + h * (b0 * z/a3-a0/a3 * y);

y2: = y2 + h * (b1 * z/a3-a1/a3 * y + y3);

pr: = b2 * z/a3-a2/a3 * y + y2;

if ((pr0> 0) and (pr <0)) or ((pr0 <0) and (pr> 0)) then Ymax: = abs (y);

pr0: = pr;

y: = y + h * pr;

if y = Yust then

begin

if k = 0 then tk1: = Tp;

if k = 2 then tk2: = Tp;

inc (k);

end;

Tp: = Tp + h;

Draw_Grafik (x0, y0, 1, kofx, kofy, Tp, Yust);

Draw_Grafik (x0, y0, 1, kofx, kofy, Tp, y);

end;

Print_OX (x0, y0, kofx, kofy, Tp, y);

Print_OY (x0, y0, kofx, kofy, Tp, y);

readln;

SetBkColor (Black);

CloseGraph;.