nowrap valign=bottom>
7
100
200
250
100
8
150
350
250
200
9
200
100
200
100
сума
550
800
850
500
В
Діаметри труб ділянок мережі вибираються за допомогою номограми, виходячи зі знайденого оптимального p i , а також L i , і витрати газу V i
Ділянка
Довжина, м
Витрата, м 3 /год
Питомі втрати, Па/м
Діаметр стандартний, м
1 - ГРП1
900
1 - 2
900
2 - 3
1000
2 - 4
550
2 - 5
750
5 - ГРП2
500
6 - ГРП2
250
6 - 7
400
6 - 8
150
9 - ГРП 2
250
Іспр_max
N = 9
DIM flux (N), diam (N), length (N), s (N), press (N)
READ dHmin, a
DATA 0.001, 0.15
for i = 1 to N
READ b
flux (i) = b
READ b
length (i) = b
READ b
diam (i) = b
NEXT i
DATA 0.309, 700, 0.450
DATA 0.293,900, 0.450
DATA 0.192,1000, 0.350
DATA 0.093, 800,0.250
DATA 0.077, 850,0.250
DATA 0.037, 700, 0.175
DATA 0, 650, 0.300
DATA 0, 1200, 0.250
DATA 0, 600, 0.300
for i = 1 to N
s (i) = 0.001735 * (1 + a) * length (i)/diam (i) ^ 5.3
next i
[A]
dH1 = s (3) * flux (3) * Abs (flux (3))-s (7) * flux (7) * Abs (flux (7))-s (4) * flux (4) * Abs (flux (4))
dH2 = s (4) * flux (4) * Abs (flux (4))-s (5) * flux (5) * Abs (flux (5))-s (8) * flux (8) * Abs (flux (8))
if Abs (dH1)
dq1 = 0.5 * dH1/(s (4) * Abs (flux (4)) + s (7) * Abs (flux (7)) + s (3) * Abs (flux (3)))
dq2 = 0.5 * dH2/(s (4) * Abs (flux (4)) + s (5) * Abs (flux (5)) + s (8) * Abs (flux (8)))
dq3 = 0.5 * dH3/(s (8) * Ab...