#*------------------------------------------------------------------- * 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 585 2008-07-28 23:31:29Z bicca $ *--------------------------------------------------------------------*# using "mixers_splitters/mixer"; FlowSheet SampleMixer PARAMETERS PP as Plugin(Brief="Physical Properties",Type="PP",Components = [ "isobutane", "benzene", "methane" ], LiquidModel = "PR", VapourModel = "PR"); NComp as Integer; DEVICES stream1 as source; stream2 as source; mixer1 as mixer_n; SET NComp = PP.NumberOfComponents; mixer1.Ninlet = 2; stream1.ValidPhases = "Vapour-Liquid"; stream1.CompositionBasis = "Molar"; stream2.ValidPhases = "Vapour-Liquid"; stream2.CompositionBasis = "Molar"; CONNECTIONS stream1.Outlet to mixer1.Inlet(1); stream2.Outlet to mixer1.Inlet(2); SPECIFY stream1.F = 20 * 'kmol/h'; stream1.P = 120 * 'kPa'; stream1.T = 400 * 'K'; stream1.Composition = [0.5, 0.1, 0.4]; stream2.F = 10 * 'kmol/h'; stream2.P = 120 * 'kPa'; stream2.T = 290 * 'K'; stream2.Composition = [0.5, 0.1, 0.4]; OPTIONS Dynamic = false; NLASolver( RelativeAccuracy = 1e-6 ); end