source: mso/eml/streams.mso @ 37

Last change on this file since 37 was 1, checked in by Rafael de Pelegrini Soares, 16 years ago

Initial import of the library

  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 1.1 KB
Line 
1#*---------------------------------------------------------------------
2* This file is property of the author and cannot be used, copyed
3* or modified without permission.
4*
5* Copyright (C) 2002-2004  the author
6*----------------------------------------------------------------------
7* Author: Paula Bettio Staudt and Rafael de Pelegrini Soares
8* $Id: streams.mso 1 2006-06-20 17:33:53Z rafael $
9*---------------------------------------------------------------------*#
10
11using "types";
12
13Model stream
14        PARAMETERS
15ext     NComp as Integer (Brief = "Number of chemical components", Lower = 1);
16
17        VARIABLES
18        F as flow_mol;
19        T as temperature;
20        P as pressure;
21        z(NComp) as fraction (Brief = "Molar Fraction");
22        h as enth_mol;
23        v as fraction (Brief = "Vapourisation fraction");
24end
25
26Model stream_therm as stream
27        PARAMETERS
28        ext  PP   as CalcObject (Brief = "External Physical Properties");
29       
30        EQUATIONS
31        h = (1-v)*PP.LiquidEnthalpy(T, P, z) + v*PP.VapourEnthalpy(T, P, z);
32end
33
34Model streamTP as stream_therm
35        PARAMETERS
36        ext  PP   as CalcObject (Brief = "External Physical Properties");
37       
38        EQUATIONS
39        v = PP.VapourFraction(T, P, z);
40end
41
Note: See TracBrowser for help on using the repository browser.