[79] | 1 | #*------------------------------------------------------------------- |
---|

| 2 | * EMSO Model Library (EML) Copyright (C) 2004 - 2007 ALSOC. |
---|

[1] | 3 | * |
---|

[79] | 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 | * Model of basic streams |
---|

[1] | 17 | *---------------------------------------------------------------------- |
---|

[79] | 18 | * Author: Paula B. Staudt and Rafael de P. Soares |
---|

[1] | 19 | * $Id: streams.mso 79 2006-12-08 19:31:27Z paula $ |
---|

| 20 | *---------------------------------------------------------------------*# |
---|

| 21 | |
---|

| 22 | using "types"; |
---|

| 23 | |
---|

| 24 | Model stream |
---|

| 25 | PARAMETERS |
---|

| 26 | ext NComp as Integer (Brief = "Number of chemical components", Lower = 1); |
---|

| 27 | |
---|

| 28 | VARIABLES |
---|

| 29 | F as flow_mol; |
---|

| 30 | T as temperature; |
---|

| 31 | P as pressure; |
---|

| 32 | z(NComp) as fraction (Brief = "Molar Fraction"); |
---|

| 33 | h as enth_mol; |
---|

| 34 | v as fraction (Brief = "Vapourisation fraction"); |
---|

| 35 | end |
---|

| 36 | |
---|

| 37 | Model stream_therm as stream |
---|

| 38 | PARAMETERS |
---|

| 39 | ext PP as CalcObject (Brief = "External Physical Properties"); |
---|

| 40 | |
---|

| 41 | EQUATIONS |
---|

| 42 | h = (1-v)*PP.LiquidEnthalpy(T, P, z) + v*PP.VapourEnthalpy(T, P, z); |
---|

| 43 | end |
---|

| 44 | |
---|

| 45 | Model streamTP as stream_therm |
---|

| 46 | PARAMETERS |
---|

| 47 | ext PP as CalcObject (Brief = "External Physical Properties"); |
---|

| 48 | |
---|

| 49 | EQUATIONS |
---|

| 50 | v = PP.VapourFraction(T, P, z); |
---|

| 51 | end |
---|

| 52 | |
---|