在图6-24所示由铸铁管组成的环状管网中，各管段的比阻可按舍维列夫公式计算，各管段的长度、管径分别为： l1=l2=l5=l7=50m，l2=l4=l6=100m， d1=d4=d7=199mm，d2=d3=d5=d6=149mm，各结点的供水流量分别为q1=一100L／s，q2=q4=q5=20L／s，q3=15L／s，q6=25L／s。试对程序进行适当修改并计算各管段的流量及水头损失。