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

17 | *---------------------------------------------------------------------- |
---|

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

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 | |
---|