source: mso/sample/stage_separators/sample_tray.mso @ 4

using "stage_separators/tray";

FlowSheet tray_Test
        PARAMETERS
        PP      as CalcObject(Brief="Physical Properties",File="vrpp");
        NComp   as Integer;

        SET
        PP.Components = [ "n-pentane", "isobutane"];
        PP.LiquidModel = "PR";
        PP.VapourModel = "PR";
        NComp = PP.NumberOfComponents;
        
        DEVICES
        t1 as tray;
        feed as stream_therm;
        inL as stream_therm;
        inV as stream_therm;
        
        CONNECTIONS
        feed to t1.Inlet;
        inL to t1.InletL;
        inV to t1.InletV;
        
        SPECIFY
        feed.F = 113.4 * "kmol/h";
        feed.T = 291 * "K";
        feed.P = 1.66 * "atm";
        feed.z = [0.5, 0.5];
        feed.v = 0;
        
        inL.P = 165 * "kPa";
        inL.T = 310 * "K";
        inL.F = 61.99 * "kmol/h";
        inL.z = [0.1641, 0.8359];
        inL.v = 0.0;

        inV.F = 147.1 * "kmol/h";
        inV.v = 1.0;
        inV.P = 150 * "kPa";
        inV.T = 321 * "K";
        inV.z = [0.0584, 0.9416];
        
        t1.Emv = 1;
        t1.OutletV.F = 147.1 * "kmol/h";

        SET
        t1.V = 4 * "ft^3";
        t1.Ah = 0.394 * "ft^2";
        t1.lw = 20.94 * "in";
        t1.hw = 0.125 * "ft";
        t1.Q = 0 * "kW";
        t1.beta = 0.6;
        t1.alfa = 4;
        t1.Ap = 3.94 * "ft^2";
        
        INITIAL
        t1.OutletL.T = 290 *"K";
        t1.Level = 0.9 * t1.hw;
        t1.OutletL.z(1) = 0.5;
        
        OPTIONS
        relativeAccuracy = 1e-6;
        outputLevel = "medium";
        time = [0:1:100];
end