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

Cy_Cx:mass=(0.000, 0.200, 0.400, 0.600, 0.800, 1.000, 1.200);

{Таблицi на 11 значень, для більшої точності }

time:matt=(0, 0.5, 1, 1.5, 2, 2.5, 2.8 , 3, 3.5, 4, 5);

pft:matt=(1686,1641.04,1475.25,1253.26, 899.2, 351.25, 0, -97, -240, -288, -299);

VzvukaTab:matt= (340.29, 339.91, 339.53, 339.14, 338.76, 337.98, 337.60, 337.21, 336.82, 336.43, 320.54);

HTab:matt= (0.0, 100.0, 200.0, 300.0, 400.0, 600.0, 700.0, 800.0, 900.0, 1000.0, 5000.0);

alfa_mzalt :matt =(0,3.600,5,6.2500,7.500,10,12.800,14.2,15,18,19.7);

Mzaltfal :matt =(-2,-2.2,-2.6,-3.1,-3.7,-5,-6.9,-8.8,-10.8,-13.6,-17);

CyTab__:matt=( 0.,-0.28, -0.07, 0.11, 0.30, 0.47, 0.63, 0.80, 0.93, 1.08, 1.18);

Cyal__:matt=( -1., 0., 2., 4., 6., 8., 10., 12., 14., 16., 18);

mzdvtab1:mass=(-0.01450,-0.014525,-0.01455,-0.014585, -0.01460,-0.01462, -0.01465);

mzdval1:mass=(0.000000, 2.5000, 5.000000, 8.5000, 10.00000, 12.000, 15.00000);

var

Buf,Cy ,DZ ,Cx ,CyAL ,AL ,MzFIst ,dVpr ,MzAL ,MzAL1 ,MzWz ,M ,MzDV ,Vprz

,dMzdv, _m ,G ,q ,Ro ,MzStat ,DV ,Xt ,FIst ,Pbal , MzVra ,Ba ,Mz ,Ye ,Iz ,P

,DGBal ,Xe ,Vpro ,Fun ,flag ,CyBal ,POtk ,TOtk ,ALBal ,DVBal ,Roh ,DG ,a

,Vpr ,Vprzad,Vpr0,Ny ,Tetab ,dTeta ,

delta1 ,delta ,Sigma , dVprzad ,CyAL1,T,

CxBal,XBal,YBal,Qdv,dvSau,wv,tv__:real;

pbaldv,dny:real;

kv,kv_,tv,tv_,kidv,qq,sss,P1:real;

mza,g0,dmz, deltavpr,flagg,flagbal,pdv,mz_cy,delta_ny,dv_ny:real;

CyB,cxb,gtop,Kh1,K_v,K_v1,T_v,T_v1,Kteta,Kh,Kwz,Ktet,Kint:real;

F :text;

x ,y ,d:array[1..20] of real;