#*---------------------------------------------------------------------
* 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