s (flux (8)) + s (2) * Abs (flux (2))-s (9) * Abs (flux (9)) + s (6) * Abs (flux (6)))
flux (1) = flux (1)
flux (2) = flux (2)-dq3
flux (3) = flux (3)-dq1
flux (4) = flux (4) + dq1-dq2
flux (5) = flux (5) + dq2
flux (6) = flux (6) + dq3
flux (7) = flux (7) + dq1
flux (8) = flux (8) + dq2-dq3
flux (9) = flux (9)-dq3
goto [A]
[B]
for i = 1 to N
press (i) = s (i) * flux (i) * Abs (flux (i))
next i
for i = 1 to N
PRINT "I ="; i;
PRINT "; Lenght ="; length (i);
PRINT "; Diam ="; diam (i);
PRINT "; Flux ="; using ("#. # # #", Flux (i));
PRINT "; Press ="; using ("# #. # # #", Press (i))
next i
PRINT "DH1 ="; using ("#. # # # # #", DH1); "; dH2 ="; using ("# #. # # # # #", DH2); "; dH3 ="; using ("#. # # # # #", DH3)
end
Іспр_min
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.198, 700, 0.450
DATA 0.189,900, 0.450
DATA 0.123,1000, 0.350
DATA 0.060, 800,0.250
DATA 0.049, 850,0.250
DATA 0.024, 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) * Abs (flux (8)) + s (2) * Abs (flux (2))-s (9) * Abs (flux (9)) + s (6) * Abs (flux (6)))
flux (1) = flux (1)
flux (2) = flux (2)-dq3
flux (3) = flux (3)-dq1
flux (4) = flux (4) + dq1-dq2
flux (5) = flux (5) + dq2
flux (6) = flux (6) + dq3
flux (7) = flux (7) + dq1
flux (8) = flux (8) + dq2-dq3
flux (9) = flux (9)-dq3
goto [A]
[B]
for i = 1 to N
press (i) = s (i) * flux (i) * Abs (flux (i))
next i
for i = 1 to N
PRINT "i ="; i;
PRINT "; Lenght ="; length (i);
PRINT "; Diam ="; diam (i);
PRINT "; Flux ="; using ("#. # # #", Flux (i));
PRINT "; Press ="; using ("# #. # # #", Press (i))
next i
PRINT "DH1 ="; using ("# #. # # # # #", DH1); "; dH2 ="; using ("# #. # # # # #", DH2); "; dH3 ="; using ("# #. # # # # #", DH3)
end
