Changeset 98 for mso


Ignore:
Timestamp:
Jan 6, 2007, 10:49:32 AM (16 years ago)
Author:
nubinha
Message:
 
File:
1 edited

Legend:

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

    r95 r98  
    2929*
    3030*---------------------------------------------------------------------
    31 * Author: Estefane Horn
     31* Author: Estefane Horn, Núbia do Carmo Ferreira
    3232*$Id$                                                                   
    3333*-------------------------------------------------------------------*#
     
    7070
    7171        "Valve Equation"
    72         Qv = fc*cv*sqrt(Pdiff/Gf);
     72        #if Pdiff >= 0 then
     73        #       "Flow"
     74                Qv = fc*cv*sqrt(Pdiff/Gf);     
     75        #else
     76        #       "Closed"
     77        #       Pdiff < 0 * "kmol/h";
     78        #end
    7379       
    7480        "Calculate Gf"
     
    109115       
    110116        "Opening Equation"
    111         fc = 100*x^n;
     117        fc = 1*x^n;
    112118
    113119end
     
    124130       
    125131        "Opening Equation"
    126         fc = 100*a^(x-1);
     132        fc = a^(x-1);
    127133
    128134end
     
    140146       
    141147        "Opening Equation"
    142         fc = 100*(1-(a*(1-x)-(a-1)*(1-x)^n));
     148        fc = (1-(a*(1-x)-(a-1)*(1-x)^n));
    143149
    144150end
     
    208214        #if Inlet.P > Outlet.P then
    209215        #       "Flow"
    210                 Outlet.F * v = k*x*sqrt((Inlet.P - Outlet.P)*rho_ref / rho ) ;
     216                Outlet.F * v = cv*x*sqrt((Inlet.P - Outlet.P)*rho_ref / rho ) ;
    211217        #else
    212218        #       "Closed"
Note: See TracChangeset for help on using the changeset viewer.