Ignore:
Timestamp:
Jan 19, 2007, 3:54:55 PM (15 years ago)
Author:
Rafael de Pelegrini Soares
Message:

Updated some models using if conditions

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/newlanguage/eml/stage_separators/tray.mso

    r103 r124  
    5656
    5757        PARAMETERS
    58 ext PP as CalcObject;
    59 ext NComp as Integer;
     58        outer PP as Plugin;
     59        outer NComp as Integer;
    6060        V as volume(Brief="Total Volume of the tray");
    6161        Q as heat_rate (Brief="Rate of heat supply");
     
    6666in      InletL as stream;
    6767in      InletV as stream;
    68 out     OutletL as stream_therm;
    69 out     OutletV as stream_therm;
     68out     OutletL as liquid_stream;
     69out     OutletV as vapour_stream;
    7070
    7171        M(NComp) as mol (Brief="Molar Holdup in the tray");
     
    119119        V = ML* vL + MV*vV;
    120120       
    121         "vaporization fraction "
    122         OutletV.v = 1.0;
    123         OutletL.v = 0.0;
    124        
    125121        "Level of clear liquid over the weir"
    126122        Level = ML*vL/Ap;
     
    147143        rhoV = PP.VapourDensity(InletV.T, InletV.P, InletV.z);
    148144
    149         if (Level > (beta * hw)) then
     145        if Level > (beta * hw) then
    150146                "Francis Equation"
    151147                OutletL.F = 1.84*"m^0.5/s"*lw*((Level-(beta*hw))/(beta))^2/vL;
     
    163159
    164160        PARAMETERS
    165 ext PP as CalcObject;
    166 ext NComp as Integer;
     161        outer PP as Plugin;
     162        outer NComp as Integer;
    167163        V as volume(Brief="Total Volume of the tray");
    168164        Q as power (Brief="Rate of heat supply");
     
    184180in      InletL as stream;
    185181in      InletV as stream;
    186 out     OutletL as stream_therm;
    187 out     OutletV as stream_therm;
     182out     OutletL as liquid_stream;
     183out     OutletV as vapour_stream;
    188184
    189185        yideal(NComp) as fraction;
     
    250246        rhoV = PP.VapourDensity(InletV.T, InletV.P, InletV.z);
    251247
    252         if (Level > (beta * hw)) then
     248        if Level > (beta * hw) then
    253249                "Francis Equation"
    254250                OutletL.F = (1.84*"1/s"*lw*((Level-(beta*hw))/(beta))^2/vL);
Note: See TracChangeset for help on using the changeset viewer.