#*-------------------------------------------------------------------
* 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.
*
*--------------------------------------------------------------------
* Sample file for model mixer
*--------------------------------------------------------------------
* 
* This sample file needs VRTherm DEMO (www.vrtech.com.br) to run.
*
*----------------------------------------------------------------------
* Author: Maurício Carvalho Maciel
* $Id: sample_mixer.mso 80 2006-12-08 19:46:22Z paula $
*--------------------------------------------------------------------*#
using "mixers_splitters/mixer";

FlowSheet SampleMixer
	
	PARAMETERS
	PP	as CalcObject(Brief="Physical Properties",File="vrpp");
	NComp	as Integer;
	Ninlet as Integer;
	
	DEVICES
	stream1 as stream_therm;
	stream2 as stream_therm;
	mixer	as mixer;
	
	
	SET
	PP.Components = [ "isobutane", "benzene", "methane" ];
	PP.LiquidModel = "PR";
	PP.VapourModel = "PR";
	NComp = PP.NumberOfComponents;
	mixer.Ninlet = 2;
	
	CONNECTIONS
	stream1 to mixer.Inlet_mixer(1);
	stream2 to mixer.Inlet_mixer(2);
	
	SPECIFY
	
	stream1.F = 20 * "kmol/h";
	stream1.P = 120 * "kPa";
	stream1.T = 400  * "K";
	stream1.z = [0.5, 0.1, 0.4];
	stream1.v = 1;
	
	
	stream2.F = 10 * "kmol/h";
	stream2.P = 120 * "kPa";
	stream2.T = 290 * "K";	
	stream2.z = [0.5, 0.1, 0.4];
	stream2.v = 0.0;
	
	OPTIONS
	mode = "steady";
	relativeAccuracy = 1e-6;

end