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

readkey;

clrscr;

end;

{____________________________________________________________________________}

{ Балансуваня літака }

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;