#*---------------------------------------------------------------------
* This file is property of the author and cannot be used, copyed
* or modified without permission.
*
* Copyright (C) 2002-2004  the author
*----------------------------------------------------------------------
* Author: Rafael de Pelegrini Soares
* $Id: sample_flash.mso 1 2006-06-20 17:33:53Z rafael $
*----------------------------------------------------------------------
*
* Flash separator sample file.
*
* This file requires an compatible thermodynamic package installed.
*
*--------------------------------------------------------------------*#

using "separators";

FlowSheet SampleFlash
	PARAMETERS
	PP	as CalcObject(Brief="Physical Properties",File="vrpp");
	NoComps	as Integer;

	SET
	PP.Components = ["n-butane", "benzene", "n-octane"];
	PP.LiquidModel = "PR";
	PP.VapourModel = "PR";
	NoComps = PP.NumberOfComponents;

	DEVICES
	stream1	as stream_therm;
	Flash1	as flash_steady_fugacity;

	CONNECTIONS
	stream1 to Flash1.Inlet;

	SPECIFY
	stream1.F = 20 * "kmol/h";
	stream1.T = 320 * "K";
	stream1.P = 120 * "kPa";
	stream1.z = [0.3, 0.3, 0.4];
	stream1.v = 0.0;

	#besides Feed we have to fix 2 variables, for instance:
	# (T, P), (T, vfrac), (P, vfrac), (T, q), (P, q), (vfrac, q), ...
	
	Flash1.OutletV.P = 120 * "kPa";
	Flash1.OutletV.T = 340 * "K";
	#Flash1.vfrac = 0.700665;
	#Flash1.lfrac = 0.299337;
	#Flash1.q = 113284;

	OPTIONS
	mode = "steady";
	outputLevel = "high";
	relativeAccuracy = 1e-6;
end