Ignore:
File:
1 edited

Legend:

Unmodified
Added
Removed

  • mso/eml/heat_exchangers/heater.mso

    r45 r1  
    11#*---------------------------------------------------------------------
    2 * Model of a Heater and Cooler
     2* This file is property of the author and cannot be used, copyed
     3* or modified without permission.
    34*
    4 *       Streams:
    5 *               * Inlet(Ninlet) streams ....    at least one material stream
    6 *               * Outlet stream             ....        one material stream
     5* Copyright (C) 2004-2005  the author
    76*
    8 *       Purpose:
    9 *               * Determines thermal and phase conditions of outlet stream
     7*
     8*                                       Heater and Cooler                                                       
     9*
    1010*
    1111*----------------------------------------------------------------------
    … …  
    1414*--------------------------------------------------------------------*#
    1515
     16
    1617using "streams.mso";
    1718
    1819Model Heater_Cooler_Basic
    19        
    20 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
     20#=====================================================================
    2121#       Heater or Cooler Basic Equations
    22 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#   
     22#=====================================================================         
    2323PARAMETERS
    24         ext PP          as CalcObject(Brief="Physical Properties");
    25         ext     NComp   as Integer       (Brief="Number of Components");       
    26                 Ninlet  as Integer       (Brief="Number of Inlet Streams",Lower=1);
     24        ext PP                  as CalcObject   (Brief="Physical Properties");
     25        ext     NComp           as Integer              (Brief="Number of Components");
     26        ext     Ninlet      as Integer          (Brief="Number of Inlet Streams",Lower=1);
    2727       
    2828VARIABLES
    2929        in  Inlet(Ninlet)       as stream;              #(Brief="Inlet Streams")
    3030        out Outlet              as stream_therm;#(Brief="Outlet Stream")
    31         Q                               as power                (Brief = "Heat Transfer");
    32         Vfrac                           as fraction     (Brief = "Vapor fraction Outlet Stream");
    33         Lfrac                           as fraction     (Brief = "Liquid fraction Outlet Stream");
     31        Q                               as power                (Brief="Heat Transfer");
    3432       
    3533EQUATIONS
    … …  
    4543end
    4644
     45
    4746"Outlet Vapourisation Fraction"
    48         Outlet.v = PP.VapourFraction(Outlet.T,Outlet.P,Outlet.z);
    49 
    50 "Vapor fraction Outlet Stream"
    51         Vfrac = Outlet.v;
    52 
    53 "Liquid fraction Outlet Stream"
    54         Lfrac = 1-Vfrac;
     47        Outlet.v = PP.VapourFraction(Outlet.T,Outlet.P,Outlet.z);       
    5548       
    5649end
    5750
    5851Model Heater            as Heater_Cooler_Basic
    59 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
     52#=====================================================================
    6053#       Heater
    61 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#   
     54#=====================================================================
    6255EQUATIONS
    6356
    … …  
    6861
    6962Model Cooler            as Heater_Cooler_Basic
    70 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
     63#=====================================================================
    7164#       Cooler
    72 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#   
     65#=====================================================================
    7366EQUATIONS
    7467
Note: See TracChangeset for help on using the changeset viewer.