Курсовая работа: Технологические энергоносители предприятий

press(5)=Pmax-press(1)-press(3)

c1=0.0

FOR j=1 TO N

IF press(j)>0 THEN

c1 =c1+A(j)/press(j)^0.21

ELSE

c1=c1+1.0e10

END IF

NEXT j

Cost=c1

END FUNCTION

fluxez are number 6

Pmax dP

5562.95 170

pipeline length flux press

i = 1 900.0 1.167 1702.50

i = 2 900.0 1.056 2877.50

i = 3 1000.0 0.222 1987.50

i = 4 550.0 0.153 982.95

i = 5 750.0 0.472 1915.45

i = 6 500.0 0.236 500.00

cost = 3057.5

ГНД

CLS

N=4

M=1

DIM lenght(N), flux(N), press(N), A(N)

GLOBAL Pmax,N

READ Pmax, dP