Результат

mukr

0.059

4. Типовой фрагмент расчета относительной массы приводов

Распечатка программы

c+ qqpr,jpr,kn,f,nye,taupr,m0

c- mupr

c/mupr1/относительная масса приводов

if(jpr.eq.1)K1=0.045

if(jpr.eq.2)K1=0.085

if(jpr.eq.3)K1=0.4

if(jpr.eq.1)K22=0.000018

if(jpr.eq.2)K22=0.0000085

if(jpr.eq.3)K22=0.000002

mupr=K1*sqrt(qqpr*(kn*f*nye/m0))+K22*qqpr*kn*f*nye*taupr

write(17,515)mupr

print 514,mupr

515 format(2x,'mupr=',f6.3)

Исходные данные

qqpr KOЭФ.BЛИЯHИЯ CXEMЫ ЛA HA ШAPHИPHЫЙ MOMEHT PУЛEЙ 1 [Б/P]

jpr ПPИЗHAK TИПA PУЛEBЫX ПPИBOДOB 2 [Б/P]

kn KOЭФ.УЧИTЫB.ПOЛOЖEHИE PACЧETHOЙ TOЧKИ TPAEKTOP. 0.8 [Б/P]

f KOЭФФИЦИEHT БEЗOПACHOCTИ ДЛЯ KPЫЛЬEB И KOPПУCA 1.2 [Б/P]

nye ЭKCПЛУATAЦИOHHAЯ ПEPEГPУЗKA ДЛЯ KPЫЛЬEB 10 [Б/P]

taupr BPEMЯ PAБOTЫ PУЛEBЫX ПPИBOДOB 35 [C]

m0 CTAPTOBAЯ MACCA ЛA (ИЛИ MACCA BTOPOЙ CTУПEHИ) 580 [KГ]

Результат

mupr

0.014

5. Типовой фрагмент расчета стартовой массы

Распечатка программы

c+ jb4,mw,map,muop,aadv,bbf,mukr,mupr,mut

c- m0

c/massard/стартовая масса РДТТ

if(jb4.eq.1)mm=(mw+map)*(1+bbf)

if(jb4.eq.2)mm=mw+map*(1+bbf)

m0=mm/(1-(mut*(1+aadv)+mukr+mupr*(1+bbf)+muop))

write(17,514)m0

print 514,m0

514 format(2x,'m0=',f10.3)

Исходные данные

jb4 ПPИЗHAK TИПA KOHCTP.ЦEЛEBOГO ГPУЗA 1 [Б/P]

mw MACCA ЦEЛEBOГO ГPУЗA 70 [KГ]

map MACCA БOPTOBOЙ AППAPATУPЫ 60 [KГ]

muop OTHOCИTEЛЬHAЯ MACCA OПEPEHИЯ 0.01 [Б/P]

aadv Параметр без описания 0.2 -

bbf OTHOCИTEЛЬHAЯ MACCA KOPПУCA (ФЮЗEЛЯЖA) 0.2 [Б/P]

mukr OTHOCИTEЛЬHAЯ MACCA KPЫЛЬEB 0.07 [Б/P]

mupr OTHOCИTEЛЬHAЯ MACCA PУЛEBЫX ПPИBOДOB 0.016 [Б/P]

mut OTHOCИTEЛЬHAЯ MACCA TOПЛИBA ЛA 0.5 [Б/P]

Результат

m0

518.617

6. Типовой фрагмент коррекции стартовой массы

Распечатка программы

c+ eem

c- m0

c/ITERMO/ организация итераций по массе

if(abs((m0b-m0)/m0).lt.eem) GOTO 5141

else m0=((3*m0+m0b)/4)

write(17,5142)m0

5142 format(20x,'коррекция m0',3x,'m0=',f8.1)

print 5142,m0

GOTO 701

5141 continue

7. Задание на генерацию программы расчета баллистики и стартовой массы с коррекцией стартовой массы.