Реферат: Цифровая математическая модель динамики полёта самолёта Ту 154Б в режиме

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

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;

end;

Mzal1:=InterpolFunction11(Y[5],alfa_mzalt , mzaltfal);

Mzdv:=InterpolFunction1(y[5],mzdval1,mzdvTab1);

Mzwz:=InterpolFunction1(M,ChisloMahaTab,mzwzTab);

Cy:=InterpolFunction11(y[5],cyal__,cytab__);

Cx:=InterpolFunction1(Cy,Cy_Cx,CxTab);

Ye := Cy*S*q;

Xe := Cx*S*q;

{ Відмова двигуна }

if (vib=2) or (vib=3) then begin

if ((T>=0) and (T<=4)) then