Changeset 326


Ignore:
Timestamp:
Jul 30, 2007, 4:25:59 PM (15 years ago)
Author:
Argimiro Resende Secchi
Message:

Fixing heater and cooler models.

Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/eml/heat_exchangers/heater.mso

    r325 r326  
    6565        case "yes":
    6666 "K-values Phase Equilibrium"
    67         Kvalue*(Outlet.x) = Outlet.y;
     67        Kvalue*Outlet.x = Outlet.y;
    6868
    6969        case "no":
     
    8686 VARIABLES
    8787in  InletQ              as energy_stream        (Brief ="Inlet Heat Stream", PosX=0.1662, PosY=1);
    88 out OutletQ             as energy_stream        (Brief ="Outlet Heat Stream", PosX=0.8245, PosY=0);
    8988
    9089 EQUATIONS
    9190 "Net Duty"
    92         OutletQ.Q = InletQ.Q - QDuty;
     91        InletQ.Q = QDuty;
    9392end
    9493
     
    104103 VARIABLES
    105104in  InletQ              as energy_stream        (Brief ="Inlet Heat Stream", PosX=0.8245, PosY=1);
    106 out OutletQ             as energy_stream        (Brief ="Outlet Heat Stream", PosX=0.1662, PosY=0);
    107105
    108106 EQUATIONS
    109107 "Net Duty"
    110         OutletQ.Q = InletQ.Q - QDuty;
     108        InletQ.Q = -QDuty;
    111109end
  • trunk/sample/heat_exchangers/Sample_Heater.mso

    r325 r326  
    5858    streamcold.Outlet.z                 = [0.5,0.5];
    5959
    60         Heater.Outlet.T                 = 360*'K';
     60#       Heater.Outlet.T                 = 360*'K';
    6161        Heater.Outlet.P                 = 0.999* 'atm';
    62         Heat.OutletQ.Q                  = 10* 'kW';
    63        
     62        Heat.OutletQ.Q                  = 51* 'kW';
     63
    6464OPTIONS
    6565        Dynamic = false;
     
    9898    streamhot.Outlet.z                  = [0.5,0.5];
    9999
    100         Cooler.Outlet.T                 = 300*'K';
     100#       Cooler.Outlet.T                 = 300*'K';
    101101        Cooler.Outlet.P                 = 0.999* 'atm';
    102         Heat.OutletQ.Q                          = 0* 'J/s';
    103        
     102        Heat.OutletQ.Q                  = 10* 'kW';
     103
    104104OPTIONS
    105105        Dynamic = false;
    106106end
    107 
    108 FlowSheet Sample_TwoHeater
    109        
    110 DEVICES
    111 
    112         Heater1                 as heater;
    113         Heater2                 as heater;
    114         streamcold1     as simple_source;
    115         streamcold2     as simple_source;
    116         streamcold3     as simple_source;
    117         Heat                    as energy_source;
    118        
    119 CONNECTIONS
    120 
    121         streamcold1.Outlet      to Heater1.Inlet(1);
    122         streamcold2.Outlet      to Heater1.Inlet(2);
    123         streamcold3.Outlet      to Heater1.Inlet(3);
    124         Heat.OutletQ            to Heater1.InletQ;
    125         Heater1.OutletQ         to Heater2.InletQ;
    126         Heater1.Outlet          to Heater2.Inlet(1);
    127        
    128 PARAMETERS
    129 
    130         PP                      as Plugin (Type ="PP", LiquidModel = "PR",VapourModel  = "PR",
    131                                                         Components      = ["water","isobutane","benzene"]);
    132         NComp           as Integer;
    133        
    134 SET
    135 
    136         NComp           = PP.NumberOfComponents;
    137         Heater1.Ninlet          = 3;
    138         Heater2.Ninlet          = 1;
    139        
    140        
    141 SPECIFY
    142 
    143         streamcold1.Outlet.F            = 10  * 'kmol/h';
    144         streamcold1.Outlet.P            = 1     * 'atm';
    145         streamcold1.Outlet.T            = 300   * 'K';
    146     streamcold1.Outlet.z                = [1,0,0];
    147        
    148         streamcold2.Outlet.F            = 5   * 'kmol/h';
    149         streamcold2.Outlet.P            = 1     * 'atm';
    150         streamcold2.Outlet.T            = 300   * 'K';
    151     streamcold2.Outlet.z                = [0,1,0];
    152        
    153         streamcold3.Outlet.F            = 12   * 'kmol/h';
    154         streamcold3.Outlet.P            = 1     * 'atm';
    155         streamcold3.Outlet.T            = 315   * 'K';
    156     streamcold3.Outlet.z                = [0.2,0.5,0.3];
    157 
    158         Heater1.Outlet.T                        = 353*'K';
    159         Heater1.Outlet.P                = 0.999* 'atm';
    160         Heat.OutletQ.Q                          = 0* 'J/s';
    161        
    162         Heater2.Outlet.P        = 0.999* 'atm';
    163         Heater2.Outlet.T                = 370*'K';
    164        
    165 OPTIONS
    166         Dynamic = false;
    167 end
Note: See TracChangeset for help on using the changeset viewer.