source: trunk/eml/mixers_splitters/mixer.mso @ 357

Last change on this file since 357 was 354, checked in by Argimiro Resende Secchi, 15 years ago

Fixing more wiki notation.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 2.1 KB
Line 
1#*-------------------------------------------------------------------
2* EMSO Model Library (EML) Copyright (C) 2004 - 2007 ALSOC.
3*
4* This LIBRARY is free software; you can distribute it and/or modify
5* it under the therms of the ALSOC FREE LICENSE as available at
6* http://www.enq.ufrgs.br/alsoc.
7*
8* EMSO Copyright (C) 2004 - 2007 ALSOC, original code
9* from http://www.rps.eng.br Copyright (C) 2002-2004.
10* All rights reserved.
11*
12* EMSO is distributed under the therms of the ALSOC LICENSE as
13* available at http://www.enq.ufrgs.br/alsoc.
14*
15*-------------------------------------------------------------------
16* Author: Maurício Carvalho Maciel
17* $Id: mixer.mso 354 2007-08-30 17:17:16Z arge $
18*--------------------------------------------------------------------*#
19
20using "stage_separators/flash";
21
22Model mixer as flash_steady
23        ATTRIBUTES
24        Pallete         = true;
25        Icon            = "icon/mixer";
26        Brief           = "Model of a mixer";
27        Info            =
28"== Assumptions ==
29* thermodynamics equilibrium
30* adiabatic
31       
32== Specify ==
33* the inlet streams";
34       
35        PARAMETERS
36outer NComp as Integer (Brief = "Number of chemical components", Lower = 1);
37          Ninlet as Integer (Brief = "Number of Inlet Streams", Lower = 1, Default = 2);
38       
39        VARIABLES
40in  Inlet_mixer(Ninlet) as stream (Brief = "Inlet streams", PosX=0.5, PosY=0, Symbol="_{inMix}");
41out Outlet                      as stream (Brief = "Outlet stream", PosX=1, PosY=0.5059, Symbol="_{out}");
42out Out_int                             as stream (Brief = "Intermediate Outlet stream", Symbol="_{outint}");
43        zeroQ as energy_source (Brief="No Heat rate supplied");
44       
45        CONNECTIONS
46       
47        Out_int to Inlet;
48        zeroQ.OutletQ to InletQ;
49
50        EQUATIONS
51       
52        "Flow"
53        Out_int.F = sum(Inlet_mixer.F);
54               
55         for i in [1:NComp]
56       
57                "Composition"
58        Out_int.F*Out_int.z(i) = sum(Inlet_mixer.F*Inlet_mixer.z(i));
59    end
60
61        "Energy Balance"
62        Out_int.F*Out_int.h = sum(Inlet_mixer.F*Inlet_mixer.h);
63       
64        "Pressure"
65        Out_int.P = min(Inlet_mixer.P);
66        Out_int.P = OutletV.P;
67       
68        "Temperature"
69        Out_int.T = OutletV.T;
70       
71        "Vapourisation Fraction"
72        Out_int.v = vfrac;
73       
74        Outlet.F = Inlet.F;
75        Outlet.z = Inlet.z;
76        Outlet.v = Inlet.v;
77        Outlet.T = Inlet.T;
78        Outlet.h = Inlet.h;
79        Outlet.P = Inlet.P;
80       
81        zeroQ.OutletQ.Q = 0*'kW';       
82       
83end
84
Note: See TracBrowser for help on using the repository browser.