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

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

P1:=interpolfunction11(T,time,pft);

end;

if ((vib=3) or (ssau=1)) and (t>1.0) then SAU;

dv:=dvbal+dvsau;

MzStat:=mzo+mzal*Y[5]+mzdv*dv+mzdz*dz+mzfist*fist;

MzVra := (MzWz*Y[2] + MzAL1*X[5])*Ba/(RAD*Y[3]);

Mz := (MzStat + MzVra);

DG := 0;

Pdv := Po + Pv*Y[3] + Ph*Y[6] + Pdg*(DGBal+DG-66);

dMzdv := (Pbal/3 - Potk) * 0.5;

{____________________________________________________________________________}

x[1]:=y[2];

x[2]:=(Mz*S*Ba*q+dMzdv)*RAD/Iz;

x[3]:=(-G*sin(Y[4]/RAD)+(2*Pdv+P1)*cos((Y[5]+FIdv)/RAD)-Xe)/_m;