доп задание. доп_задание. 2. 7 Расчет длины разбега и пробега без допущений
 Скачать 26.64 Kb.
|
|
Разбег: Subroutine s_tr (a,b,n,f,str) !формальные параметры real::a,b,k,n,f,s,Str,i,h k=(b-a)/n !высота h=(f(a)+f(b))/ 2 !полусумма оснований do i=1, n-1 h=h+f(a+i*k) End do Str= k*h !вычисление площади оснований end Function L (V) real :: L L= 1 /(2*9.81*((-0.0016*sqrt(V) + 0.99)*0.336 - 0.02 - (1.225*V)/(2*5500)*(0.11 - 0.02*0.6)))!вычисление подынтегральной функции End External L real:: d, c, p, y d=10 !число делений c=0 !нижний предел интегрирования p=9741.69!верхний предел интегрирования call s_tr (c, p, d, L, y ) !замена формальных параметров фактическими print*, "Int=", y end Int = 2300.67 Пробег: Subroutine s_tr (a,b,n,f,str) !формальные параметры real::a,b,k,n,f,s,Str,i,h k=(b-a)/n !высота h=(f(a)+f(b))/ 2 !полусумма оснований do i=1, n-1 h=h+f(a+i*k) End do Str= k*h !вычисление площади оснований end Function L (V) real :: L L= 1 /(2*9.81*( 0.01 + 0.2 + ((1.225*V)/(2*5500))*(0.18 - 0.2*1)))вычисление подынтегральной функции End External L real:: d, c, p, y d=10 !число делений c=0 !нижний предел интегрирования p= 5387.56!верхний предел интегрирования call s_tr (c, p, d, L, y ) !замена формальных параметров фактическими print*, "Int=", y end Int = 1346.450 Сравним полученные результаты:
Из этой таблицы видно, что дистанция разбега, рассчитанная без допущений, на 4% больше той, что была рассчитана по формуле из методички. Дистанция пробега – на 1% меньше. В точной формуле при расчете  мы учитывали изменение взлетной тяговооруженности, представленное в таблице6
В формуле с допущениями  и в итоге дистанция выходит меньше. Значения дистанций пробега отличаются незначительно.Приближенные формулы на этапе проектирования самолета можно применить, так как высокая точность его взлетно-посадочных характеристик не требуется. |
