Программа для построения графика потребного напора установки

Общий вид уравнения потребного напора Н:

,

где Н_с = Н_г + (р₂ + р₁)/(rg) – статический напор (HS)*, м; H_г – геометрический напор, м; р₂ – р₁ – разность давлений в напорном и приемном резервуарах, Н/м²; h_м – местные гидравлические потери (НV), м; Н_i – гидравлические потери на трение по длине (HK), м.

Необходимые для выполнения расчета другие величины обозначены: Dh – гидравлические потери (HN), м; S – площадь поперечного сечения (S), м²; u – средняя скорость (V), м/с;
Sz – сумма коэффициентов местных сопротивлений (NK); l – коэффициент гидравлического трения (К); l – общая длина гидролиний (L), м; d – диаметр гидролиний (D), м; Rе – число Рейнольдса (RЕ); n – кинематическая вязкость (KL), м²/с; D_э – эквивалентная шероховатость (ЕК), м; Q – расход (Q), м³/с; Q_н – начальный расход (QР), м³/с, (QР>0); Q_к – конечный расход (QG), м³/с; DQ – шаг расхода (QН), м³/с.

На рис. 34 приводится полный текст программы, написанный на языке FORTRAN, для ЭВМ СМ-4.

0001 REAL K, KL, EK, NK, D, L, HS, QP, QG, QH

0002 TYPE 1

0003 1 FORMAT (‘ВВЕДИТЕ KL, EK, D, L, HS, QP, QG, QH’)

0004 ACCEPT 2, KL, EK, NK, D, L, HS, QP, QG, QH

0005 2 FORMAT (F13.10, F10.7, 7F10.5)

0006 S=3.14*D*D/4.

0007 Q=QP

0008 3 V=Q/S

0009 HV=NK*V*V/19.62

0010 RE=F*D/KL

0011 IF (RE.LE.2320.) GOTO 5

0012 K=0.11*SQRT(SQRT(EK/D+68./RE))

0013 GOTO 6

0014 5 K=64./RE

0015 HK=K*L*V*V/(19.62*D)

0016 HN=HV+HK

0017 H=HS+HN

0018 PRINT 7, Q, H, V, RE, K, HV, HK, HN

0019 7 FORMAT (5X, ‘Q=’, F8.5, 2X, ‘H=’, F7.2, 2X, ‘V=’, F7.3, ‘RE=’, F9.1, 2X, ‘K=’,

F9.6,2X, ‘HV=’, F8.4, 2X, ‘HK=’, F8.4, 2X, ‘HN=’, F8.4)

0020 Q=Q+QH

0021 IF (Q.LE.QG) GOTO 3

0022 STOP

0023 END

Продолжение рис.34