source: mso/eml/stream/streams.mso @ 4

#*---------------------------------------------------------------------
* This file is property of the author and cannot be used, copyed
* or modified without permission.
*
* Copyright (C) 2002-2004  the author
*----------------------------------------------------------------------
* Author: Paula Bettio Staudt and Rafael de Pelegrini Soares
* $Id: streams.mso 1 2006-06-20 17:33:53Z rafael $
*---------------------------------------------------------------------*#

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