SYNHEAT
*
*
* SIMULTANEOUS OPTIMIZATION FOR HEN SYNTHESIS
*
* T.F. Yee and I. E. Grossmann (1)
* M.M. Daichendt and I. E. Grossmann (2)
*
* Department of Chemical Engineering, Carnegie Mellon University
* Pittsburgh, PA 15213, U.S.A.
*
* Refs: (1) Computers chem.Engng. Vol. 14, No. 10, pp. 1165-1184, 1990.
(2) Computers chem.Engng. Vol. 18, No. 8, pp. 679-709, 1996.
$OFFSYMXREF
$OFFSYMLIST
SET I HOT STREAMS /1*1/
J COLD STREAMS /1*2/
S HOT EXTREME AND INTERMMEDIATE UTILITIES /1*1/
W COLD EXTREME AND INTERMMEDIATE UTILITIES /1*1/;
SCALAR NOK NUMBER OF STAGE IN SUPERSTRUCTURE /2/;
PARAMETERS
FCI(I) HEAT CAPACITY FLOWRATE OF HOT STREAM
FCJ(J) HEAT CAPACITY FLOWRATE OF COLD STREAM
CFI(I) STREAM-INDIVIDUAL FILM COEFFICIENT HOT I
CFJ(J) STREAM-INDIVIDUAL FILM COEFFICIENT COLD J
TMAPP MINIMUM APPROACH OF TEMPERATURE
CFHU STREAM-INDIVIDUAL FILM COEFFICIENT HOT UTILITY
CFCU STREAM-INDIVIDUAL FILM COEFFICIENT COLD UTILITY
CFHUINT(S) STREAM-INDIVIDUAL FILM COEFFICIENT HOT INT UTILITY
CFCUINT(W) STREAM-INDIVIDUAL FILM COEFFICIENT COLD INT UTILITY
THUIN INTLET TEMPERATURE HOT UTILITY
THUOUT OUTLET TEMPERATURE HOT UTILITY
TCUIN INTLET TEMPERATURE COLD UTILITY
TCUOUT OUTLET TEMPERATURE COLD UTILITY
TUHINT(S) INTLET TEMPERATURE HOT INT UTILITY
TUCINT(W) INTLET TEMPERATURE COLD INT UTILITY
HUCOST COST OF HEATING UTILITY
CUCOST COST OF COOLING UTILITY
HUINTCOST(S) COST OF HOT INT UTILITY
CUINTCOST(W) COST OF COLD INT UTILITY
UNITC FIXED CHARGE FOR EXCHANGER
ACOEFF AREA COST COEFFICIENT FOR EXCHANGERS
HUCOEFF AREA COST COEFFICIENT FOR HEATERS
CUCOEFF AREA COST COEFFICIENT FOR COOLERS
HUINTCOEFF AREA COST COEFFICIENT FOR HOT INT UTILITY
CUINTCOEFF AREA COST COEFFICIENT FOR COLD INT UTILITY
AEXP AREA COST EXPONENT FOR EXCHANGERS;
VARIABLES
TIIN(I) SUPPLY TEMP. OF HOT STREAM
TIOUT(I) TARGET TEMP. OF HOT STREAM
TJIN(J) SUPPLY TEMP. OF COLD STREAM
TJOUT(J) TARGET TEMP. OF COLD STREAM;
*
*PROCESS STREAMS
*
*HOT:
TIIN.FX('1') = 440.00;
TIOUT.FX('1') = 350.00;
FCI('1') = 22.00;
CFI('1') = 2.00;
*COLD:
TJIN.FX('1') = 349.00;
TJOUT.FX('1') = 430.00;
FCJ('1') = 20.00;
CFJ('1') = 2.00;
TJIN.FX('2') = 320.00;
TJOUT.FX('2') = 368.00;
FCJ('2') = 7.50;
CFJ('2') = 0.67;
TMAPP = 1.00;
*
*EXTREME UTILITIES
*
CFHU = 1.00;
THUIN = 500.00;
THUOUT = 500.00;
CFCU = 1.00;
TCUIN = 300.00;
TCUOUT = 320.00;
*
*INTERMMEDIATE UTILITIES
*
CFHUINT(S) = 0;
TUHINT(S) = 0;
CFCUINT(W) = 0;
TUCINT(W) = 0;
*
*COSTS
*
*EXTREME UTILITIES
HUCOST = 120.00;
CUCOST = 20.00;
UNITC = 8600.00;
ACOEFF = 670.00;
HUCOEFF = 670.00;
CUCOEFF = 670.00;
*INTERMEDIATE UTILITIES
HUINTCOST(S) = 0;
HUINTCOEFF = 0;
CUINTCOST(W) = 0;
CUINTCOEFF = 0;
AEXP = 0.83;
*
*SPLIT CONSTRAINTS:
* 0 = NONE, 1 = HOT STREAMS, 2 = COLD STREAMS, 3 = BOTH
*
SCALAR SPLIT /0/;
*
*FORBIDDEN MATCHES:
*
PARAMETERS FORBID(I,J),FORBIDCU(I), FORBIDHU(J),FORBIDHINT(S,J), FORBIDCINT(I,W);
FORBID(I,J) = 0;
FORBIDCU(I) = 0;
FORBIDHU(J) = 0;
FORBIDHINT(S,J) = 0;
FORBIDCINT(I,W) = 0;
*
*REQUIRED MATCHES:
*
PARAMETERS REQUIR(I,J),REQUIRCU(I),REQUIRHU(J),REQUIRCINT(I,W),REQUIRHINT(S,J);
REQUIR(I,J) = 0;
REQUIRCU(I) = 0;
REQUIRHU(J) = 0;
REQUIRCINT(I,W) = 0;
REQUIRHINT(S,J) = 0;
*
*MINIMUM UTILITY COSTS DATA
*
SET KK TEMPERATURE INTERVALS /1*50/;
PARAMETERS
TINS(S) inlet temperature of hot utilities
TINW(W) inlet temperature of cold utilities
CS(S) cost of hot utilities
CW(W) cost of cold utilities
AS(S) availability of hot utilities
AW(W) availability of cold utilities;
*
*UTILITIES
*
*
*EXTREME UTILITIES
*
TINS('1') = THUIN;
TINW('1') = TCUIN;
CS('1') = HUCOST;
CW('1') = CUCOST;
AS('1') = inf;
AW('1') = inf;
*
*INTERMMEDIATE UTILITES
*
LOOP(S$(ORD(S) GT 1),
TINS(S) = TUHINT(S);
CS(S) = HUINTCOST(S);
AS(S) = INF;
);
LOOP(W$(ORD(W) GT 1),
TINW(W) = TUCINT(W);
CW(W) = CUINTCOST(W);
AW(W) = INF;
);
*
*BOUNDS FOR HEAT EXCHANGE
*
PARAMETERS
QLHC(I,J) lower bound between hot and cold streams
QUHC(I,J) upper bound between hot and cold streams
QLHW(I,W) lower bound between hot stream and cold utility
QUHW(I,W) upper bound between hot stream and cold utility
QLCS(J,S) lower bound between cold stream and hot utility
QUCS(J,S) upper bound between cold stream and hot utility;
QLHC(I,J) = 0;
QUHC(I,J) = inf;
QLHW(I,W) = 0;
QUHW(I,W) = inf;
QLCS(J,S) = 0;
QUCS(J,S) = inf;
*
*FORBIDDEN MATCHES
*
QUHC(I,J)$(FORBID(I,J) EQ 1) = 0;
QUHW(I,W)$(FORBIDCU(I) EQ 1 AND ORD(W) EQ 1) = 0;
QUCS(J,S)$(FORBIDHU(J) EQ 1 AND ORD(S) EQ 1) = 0;
QUHW(I,W)$(FORBIDCINT(I,W) EQ 1 AND ORD(W) EQ 1) = 0;
QUCS(J,S)$(FORBIDHINT(S,J) EQ 1 AND ORD(S) EQ 1) = 0;
|
