Ignore:
File:
1 edited

Legend:

Unmodified
Added
Removed
  • mso/eml/pressure_changers/valve.mso

    r37 r57  
     1#*-----------------------------------------------------------------------------
     2* Author:       Estefane Horn                                   Date:06/10/2006
     3*                       
     4*$Id:$                                                                 
     5*-----------------------------------------------------------------------------
     6* Assumptions
     7* -> Steady State
     8* -> Isentalpic
     9* -> Liquid
     10*
     11*#
     12
     13using "streams";
     14using "pressure_changers/flux_machine_basic";
     15       
     16
     17Model valve_basic as flux_machine_basic_TP
     18       
     19        PARAMETERS
     20ext PP                  as CalcObject   (Brief = "External Physical Properties", File = "vrpp");
     21ext NComp       as Integer              (Brief = "Number of chemical components", Lower = 1);
     22        rho60F  as dens_mass;
     23
     24        VARIABLES
     25        Pdiff   as press_delta          (Brief = "Pressure Increase", Unit = "kPa");
     26        Qv              as flow_vol                     (Brief = "Volumetric Flow");
     27        fc              as positive                     (Brief = "Opening Function");
     28        cv              as positive                     (Brief = "Valve Coefficient", Unit = "m^3/h/kPa^0.5");
     29        Gf              as positive                     (Brief = "Specific Gravity");
     30        rho     as dens_mass;   
     31        vm              as vol_mol                      (Brief = "Mixture Molar Volume", Unit = "m^3/kmol");   
     32       
     33        SET
     34        rho60F = 99.022 * "kg/m^3";
     35       
     36        EQUATIONS
     37        "Calculate Outlet Stream Pressure"
     38        Inlet.P - Outlet.P = Pdiff;
     39       
     40        "Enthalpy Balance"
     41        Outlet.h = Inlet.h;
     42       
     43        "Molar Balance"
     44        Outlet.F = Inlet.F;
     45       
     46        "Calculate Outlet Composition"
     47        Outlet.z = Inlet.z;
     48
     49        "Valve Equation"
     50        Qv = fc*cv*sqrt(Pdiff/Gf);
     51       
     52        "Calculate Gf"
     53        Gf = rho/rho60F;
     54       
     55        "Calculate Specific Mass"
     56        rho = PP.LiquidDensity(Inlet.T,Inlet.P,Inlet.z);
     57       
     58        "Calculate Mass Flow"
     59        Qv = Inlet.F*vm;       
     60       
     61        "Calculate Liquid Molar Volume"
     62        vm = PP.LiquidVolume(Inlet.T,Inlet.P,Inlet.z);
     63       
     64end
     65
     66Model valve_linear as valve_basic
     67
     68        VARIABLES
     69        x               as fraction (Brief = "Opening");
     70
     71        EQUATIONS
     72       
     73        "Opening Equation"
     74        fc = 100*x;
     75
     76end
     77
     78Model valve_parabolic as valve_basic
     79
     80        PARAMETERS
     81        n               as positive (Brief = "Constant", Lower = 1.4, Upper = 2.6);
     82
     83        VARIABLES
     84        x               as fraction (Brief = "Opening");
     85       
     86        EQUATIONS
     87       
     88        "Opening Equation"
     89        fc = 100*x^n;
     90
     91end
     92
     93Model valve_equal as valve_basic
     94
     95        PARAMETERS
     96        a               as Real (Brief = "Constant", Default = 100);
     97
     98        VARIABLES
     99        x               as fraction (Brief = "Opening");
     100
     101        EQUATIONS
     102       
     103        "Opening Equation"
     104        fc = 100*a^(x-1);
     105
     106end
     107
     108Model valve_quick as valve_basic
     109
     110        PARAMETERS
     111        a               as positive     (Brief = "Constant", Default = 0.05);
     112        n               as positive (Brief = "Constant", Default = 5);
     113
     114        VARIABLES
     115        x               as fraction (Brief = "Opening");
     116
     117        EQUATIONS
     118       
     119        "Opening Equation"
     120        fc = 100*(1-(a*(1-x)-(a-1)*(1-x)^n));
     121
     122end
     123
    1124#*-------------------------------------------------------------------
    2125* Model of a valve
     
    27150* $Id$
    28151*--------------------------------------------------------------------*#
    29 
    30 using "streams";
    31152
    32153Model valve
Note: See TracChangeset for help on using the changeset viewer.