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

procedure Balansirovka;

begin

CyB:=(2*G)/(S*Roh*y[3]*y[3]);

albal:=InterpolFunction11(cyb,cytab__,cyal__);

CxB:=InterpolFunction1(CyB,Cy_Cx,CxTab);

Ybal := CyB*S*q;

Xbal := CxB*S*q;

Mzdv:=InterpolFunction1(albal,mzdval1,mzdvTab1);

DVBal := -(Mzo +MzAL*ALBal + CyB*(Xt-0.24) + MzDZ*DZ + MzFIst*FIst)/MzDV;

Pbal := Xbal/cos((ALBal+FIdv)/RAD);

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

P1 := Pbal/3;

Y[5] := ALBal; Y[1] := Y[5] ;Tetab := ALBal;

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

mz_cy:=mzal/cy_alfa;

delta_ny:=mz_cy+(mzwz*ba*S*roh)/(2*_m);

mzdv:=mzdv*rad;

dv_ny:=-rad*(delta_ny*Cyb)/mzdv;

wv:=(_g/y[3])*sqrt((2*mz_cy)/delta_ny);

tv__:=(2*3.14)/wv;

vpr:=y[3]*sqrt(roh/ro);

vpr0:=vpr;

vprzad:=vpr0+10;

if vib=3 then vprzad:=vpr0;

print_bal;

end;

{____________________________________________________________________________}

{Закон стабілізаціїї приладової швидкості через руль висоти}

procedure SAU;

begin