Курсовая работа: Расчет распределительных сетей
dh3 = -s(7) * q(7) * ABS(q(7)) + s(8) * q(8) * ABS(q(8)) - s(6) * q(6) * ABS(q(6)) - s(5) * q(5) * ABS(q(5))
IF ABS(dh1) < dhmin AND ABS(dh2) < dhmin AND ABS(dh3) < dhmin THEN GOTO 100:
dq1 = .5 * dh1 / (s(1) * ABS(q(1)) + s(9) * ABS(q(9)) + s(2) * ABS(q(2)))
dq2 = .5 * dh2 / (s(2) * ABS(q(2)) + s(3) * ABS(q(3)) + s(8) * ABS(q(8)))
dq3 = .5 * dh3 / (s(4) * ABS(q(4)) + s(7) * ABS(q(7)) + s(8) * ABS(q(8)) + s(5) * ABS(q(5)))
q(1) = q(1) - dq1
q(3) = q(3) + dq1 - dg2
q(2) = q(2) + dq1
q(4) = q(4) - dq2
q(5) = q(5) - dq2+ dq3
q(6) = q(6) - dq3
q(7) = q(7) + dq3
q(8) = q(8) - dq3
GOTO 10
100 :
FOR i = 1 TO n
p(i) = s(i) * (q(i)) ^ 2
NEXT i
PRINT "Q=min"
PRINT "L(i)", "D(i)", " q(i)", "p(i)"
FOR i = 1 TO n
PRINT l(i), d(i), q(i), p(i)
NEXT i
PRINT "dh1="; dh1, "dh2="; dh2, "dh3="; dh3
q(1) = .185
q(2) = .08
q(3) = .055