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

w=Cost()

loop until w>c

press(i)=press(i)+dP

NEXT i

IF c0=c THEN dP=0.5*dP

NEXT k

PRINT "pipeline ";" length ";" flux ";" press "

FOR i=1 TO N

PRINT "i = ";i,USING("####",length(i)),USING("#.####",flux(i)),USING("#.####",press(i))

NEXT i

PRINT:PRINT "cost = ";USING("#####.#",Cost())

'programma vichesleniya F(dp1,...,dp5)

FUNCTION Cost()

press(2)=Pmax-press(1)

press(3)=Pmax

press(4)=Pmax

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

pipeline length flux press

i = 1 250 0.1110 0.7250

i = 2 400 0.0690 1.0005