Курсовая работа: Расчет распределительных сетей
q(5) = .02
q(6) = .025
q(7) = 0.85
q(8) = 0.07
20
dh1 = s(1) * q(1) * ABS(q(1)) + s(3) * q(3) * ABS(q(3)) + s(2) * q(2) * ABS(q(2))
dh2 = s(5) * q(5) * ABS(q(5)) - s(3) * q(3) * ABS(q(3)) - s(4) * q(4) * ABS(q(4))
dh3 = s(7) * q(7) * ABS(q(7)) - s(8) * q(8) * ABS(q(8)) + s(7) * q(7) * ABS(q(7)) + s(5) * q(5) * ABS(q(5))
IF ABS(dh1) < dhmin AND ABS(dh2) < dhmin AND ABS(dh3) < dhmin THEN GOTO 200
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(2) = q(2) + dq1
q(3) = q(3) + dq2 - dg1
q(4) = q(4) - dq2
q(5) = q(5) + dq3-dq3
q(2) = q(2) + dq1
q(6) = q(6)+ dq3
q(7) = q(7) - dq3
q(8) = q(8) + dq3
GOTO 20
200
FOR i = 1 TO n
p(i) = s(i) * (q(i)) ^ 2
NEXT i
PRINT "Q=max"
PRINT "L(i)", "D(i)", " q(i)", "p(i)"