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

q:=xm[i]-xm[j]; s:=x1-xm[j]; r2:=(r2*s+2*r1)/q;r1:=(r1*s+r)/q;r:=r*s/q;

end;

p2:=p2+r2*fm[i];p1:=p1+r1*fm[i];p:=p+r*fm[i];

end;

InterpolFunction11:=p;

end;{InterpolFunction1}

{____________________________________________________________________________}

Процедура попередження користувача}

procedure attention;

begin

sound(100);

delay(2);

nosound;

end;

{____________________________________________________________________________}

{Процедура котролю за кутом атаки, закидом вертикального перевантаження, кількістю палива}

procedure control;

begin

dny:=ny-1;

if y[8]<0 then attention;

if (dny>0.2) or (dny<-0.2) then attention;

if y[5]>16 then attention;

end;

{____________________________________________________________________________}

{Вивід результатів на екран і в файл}

procedure PRINT;

begin

write('|',t:6:1); write(y[3]:9:2,' '); write(vpr:6:3,'');

write(y[6]:9:2,''); write(y[5]:7:3,' '); write(y[1]:7:3,' ');

write(P1:8:3, ''); write(dV:8:3,' '); writeln(ny:6:4,' |');