Changeset 204


Ignore:
Timestamp:
Mar 14, 2007, 4:09:38 PM (15 years ago)
Author:
nubinha
Message:

Changes in the valve models using switch

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/newlanguage/eml/pressure_changers/valve.mso

    r196 r204  
    2020*       - Equal
    2121*       - Quick
    22 *       - valve: a very simple model
     22*       - Hyperbolic
     23*       - valve_simplified: a very simple model
    2324*
    2425*--------------------------------------------------------------------
    … …  
    3738       
    3839
    39 Model valve_basic as flux_machine_basic_PH
     40Model valve as flux_machine_basic_PH
    4041       
    4142        PARAMETERS
    42 outer PP                as Plugin               (Brief = "External Physical Properties", Type="PP");
    43 outer NComp     as Integer              (Brief = "Number of chemical components", Lower = 1);
     43        Valve_Type as Switcher (Valid = ["valve_linear", "valve_parabolic", "valve_equal", "valve_quick", "valve_hyperbolic"], Default = "valve_linear");
     44outer PP                as Plugin       (Brief = "External Physical Properties", Type = "PP");
     45outer NComp     as Integer      (Brief = "Number of chemical components", Lower = 1);
    4446        rho60F  as dens_mass;
    4547
    4648        VARIABLES
    47         Pdiff   as press_delta          (Brief = "Pressure Increase", DisplayUnit = 'kPa');
     49        Pdiff   as press_delta          (Brief = "Pressure Increase");
    4850        Qv              as flow_vol                     (Brief = "Volumetric Flow");
    4951        fc              as positive                     (Brief = "Opening Function");
    … …  
    5254        rho     as dens_mass;   
    5355        vm              as vol_mol                      (Brief = "Mixture Molar Volume");       
     56        x               as fraction             (Brief = "Opening");
    5457       
    5558        SET
    56         rho60F = 999.2  * 'kg/m^3';
     59        rho60F = 999.02 * 'kg/m^3';
    5760       
    5861        EQUATIONS
    … …  
    8992        vm = PP.LiquidVolume(Inlet.T,Inlet.P,Inlet.z);
    9093       
    91 end
    92 
    93 Model valve_linear as valve_basic
    94 
    95         VARIABLES
    96         x               as fraction (Brief = "Opening");
    97 
    98         EQUATIONS
    99        
    100         "Opening Equation"
    101         fc = x;
    102 
    103 end
    104 
    105 Model valve_parabolic as valve_basic
    106 
    107         PARAMETERS
    108         n               as positive (Brief = "Constant", Lower = 1.4, Upper = 2.6);
    109 
    110         VARIABLES
    111         x               as fraction (Brief = "Opening");
    112        
    113         EQUATIONS
    114        
    115         "Opening Equation"
    116         fc = x^n;
    117 
    118 end
    119 
    120 Model valve_equal as valve_basic
    121 
    122         PARAMETERS
    123         a               as Real (Brief = "Constant", Default = 100);
    124 
    125         VARIABLES
    126         x               as fraction (Brief = "Opening");
    127 
    128         EQUATIONS
    129        
    130         "Opening Equation"
    131         fc = a^(x-1);
    132 
    133 end
    134 
    135 Model valve_quick as valve_basic
    136 
    137         PARAMETERS
    138         a               as positive     (Brief = "Constant", Default = 0.05);
    139         n               as positive (Brief = "Constant", Default = 5);
    140 
    141         VARIABLES
    142         x               as fraction (Brief = "Opening");
    143 
    144         EQUATIONS
    145        
    146         "Opening Equation"
    147         fc = (1-(a*(1-x)-(a-1)*(1-x)^n));
    148 
     94        switch Valve_Type
     95        case "valve_linear":
     96
     97                       
     98                "Opening Equation"
     99                fc = x;
     100
     101        case "valve_parabolic":
     102       
     103       
     104                "Opening Equation"
     105                fc = x^2;
     106
     107
     108        case "valve_equal":
     109
     110                       
     111                "Opening Equation"
     112                fc = x^2/(2-x^4)^(1/2);
     113
     114
     115        case "valve_quick":
     116       
     117                       
     118                "Opening Equation"
     119                fc = 10*x/sqrt(1+99*x^2);
     120
     121
     122        case "valve_hyperbolic":
     123
     124                       
     125                "Opening Equation"
     126                fc = 0.1*x/sqrt(1-0.99*x^2);
     127
     128        end
    149129end
    150130
    … …  
    176156* Author: Paula B. Staudt
    177157*--------------------------------------------------------------------*#
    178 Model valve
     158Model valve_simplified
     159
    179160        PARAMETERS
    180 outer PP as Plugin (Brief = "External Physical Properties", Type="PP");
     161outer PP as Plugin;
    181162outer NComp as Integer;
    182163       
    … …  
    200181        Inlet.h = Outlet.h;
    201182
    202 #       "Vapourisation Fraction"
    203 #       Outlet.v = Inlet.v;
     183        "Vapourisation Fraction"
     184        Outlet.v = Inlet.v;
    204185       
    205186        "Density"
Note: See TracChangeset for help on using the changeset viewer.