Курсовая работа: Расчет системы водоснабжения

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