Цифрова математична модель динаміки польоту літака Ту-І54Б в режимі автоматичного управління приладовою швидкістю через руль висоти

if Sigma>10 then Sigma:=10;

X[9]:=0;

if delta<-2 then X[9]:=-0.6;

if delta>2 then X[9]:=0.6;

DVsau:=Sigma+Y[9];

end;

{____________________________________________________________________________}

{Система диференціальних рівнянь}

procedure dinamika;

begin

Roh := Ro - 0.0117*Y[6]/1000 + 0.000343*sqr(Y[6]/1000);

G:=G0+y[8];

_m := G/_g;

q := Roh*sqr(Y[3])/2;

a:=InterpolFunction11(y[6],HTab,VzvukaTab);

Vpr := y[3]*sqrt(Roh/Ro);

dVpr := Vpr - Vprzad;

M := Y[3]/a;

Qdv:=0.2586*M+0.4428;

mzfist:=InterpolFunction1(M,ChisloMahaTab,mzffist);

mzal:=InterpolFunction1(M,ChisloMahaTab,mzalfa);

if flagbal=1 then

begin

Balansirovka;

flagbal:=0;