source: branches/newlanguage/eml/streams.mso @ 115

#*-------------------------------------------------------------------
* EMSO Model Library (EML) Copyright (C) 2004 - 2007 ALSOC.
*
* This LIBRARY is free software; you can distribute it and/or modify
* it under the therms of the ALSOC FREE LICENSE as available at
* http://www.enq.ufrgs.br/alsoc.
*
* EMSO Copyright (C) 2004 - 2007 ALSOC, original code
* from http://www.rps.eng.br Copyright (C) 2002-2004.
* All rights reserved.
*
* EMSO is distributed under the therms of the ALSOC LICENSE as
* available at http://www.enq.ufrgs.br/alsoc.
*
*--------------------------------------------------------------------
* Model of basic streams
*----------------------------------------------------------------------
* Author: Paula B. Staudt and Rafael de P. Soares
* $Id: streams.mso 79 2006-12-08 19:31:27Z paula $
*---------------------------------------------------------------------*#

using "types";

Model stream
        PARAMETERS
ext     NComp as Integer (Brief = "Number of chemical components", Lower = 1); 

        VARIABLES
        F as flow_mol;
        T as temperature;
        P as pressure;
        z(NComp) as fraction (Brief = "Molar Fraction");
        h as enth_mol;
        v as fraction (Brief = "Vapourisation fraction");
end

Model stream_therm as stream
        PARAMETERS
        ext  PP   as CalcObject (Brief = "External Physical Properties");
        
        EQUATIONS
        h = (1-v)*PP.LiquidEnthalpy(T, P, z) + v*PP.VapourEnthalpy(T, P, z);
end

Model streamTP as stream_therm
        PARAMETERS
        ext  PP   as CalcObject (Brief = "External Physical Properties");
        
        EQUATIONS
        v = PP.VapourFraction(T, P, z);
end