Changeset 844 for trunk/sample


Ignore:
Timestamp:
Sep 10, 2009, 8:47:35 AM (13 years ago)
Author:
Argimiro Resende Secchi
Message:

Adding dew and bubble point models in flash.mso.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/sample/stage_separators/sample_flash.mso

    r633 r844  
    2323* $Id$
    2424*--------------------------------------------------------------------*#
    25 using "stage_separators/flash";
     25using "flash_new";
    2626
    2727# exemplo baseado nos dados do artigo do Gani 1985.
     
    106106        DEVICES
    107107        fl as flash_steady;
     108#       fl as FlashPHSteadyA;
     109#       fl as flash_steady_full;
     110#       fl as flash_steady_bd;
    108111        s1 as source;
    109112       
     
    119122       
    120123        fl.OutletL.P = 2.5 * 'atm';
    121 
    122         #Q.OutletQ.Q = 0 * 'kJ/h';
    123124        fl.OutletL.T = 315.06 * 'K';
     125
     126#       fl.vfrac = 1;
     127
     128#       Q.OutletQ.Q = 0 * 'kJ/h';
    124129       
    125130        OPTIONS
    126131        Dynamic = false;
    127 end
     132#       GuessFile="flashSteady_Test";
     133end
     134
     135FlowSheet flashSteady_bubble
     136        PARAMETERS
     137        PP as Plugin(Brief="Physical Properties",
     138                Type="PP",
     139                Components = ["1,3-butadiene", "isobutene", "n-pentane",
     140                        "1-pentene", "1-hexene", "benzene"],
     141                LiquidModel = "PR",
     142                VapourModel = "PR"
     143        );
     144        NComp as Integer;
     145
     146        VARIABLES
     147        Q       as energy_source (Brief="Heat supplied");
     148       
     149        SET
     150        NComp = PP.NumberOfComponents;
     151       
     152        DEVICES
     153        fl as bubble_steady;
     154        s1 as source;
     155       
     156        CONNECTIONS
     157        s1.Outlet to fl.Inlet;
     158        Q.OutletQ to fl.InletQ;
     159       
     160        SPECIFY
     161        s1.F = 496.3 * 'kmol/h';
     162        s1.T = 338 * 'K';
     163        s1.P = 507.1 * 'kPa';
     164        s1.Composition = [0.2379,0.3082,0.09959,0.1373,0.08872,0.1283];
     165       
     166        fl.OutletL.P = 2.5 * 'atm';
     167#       fl.OutletL.T = 315.06 * 'K';
     168
     169#       Q.OutletQ.Q = 0 * 'kJ/h';
     170       
     171        OPTIONS
     172        Dynamic = false;
     173#       GuessFile="flashSteady_Test";
     174end
     175
     176FlowSheet flashSteady_dew
     177        PARAMETERS
     178        PP as Plugin(Brief="Physical Properties",
     179                Type="PP",
     180                Components = ["1,3-butadiene", "isobutene", "n-pentane",
     181                        "1-pentene", "1-hexene", "benzene"],
     182                LiquidModel = "PR",
     183                VapourModel = "PR"
     184        );
     185        NComp as Integer;
     186
     187        VARIABLES
     188        Q       as energy_source (Brief="Heat supplied");
     189       
     190        SET
     191        NComp = PP.NumberOfComponents;
     192       
     193        DEVICES
     194        fl as dew_steady;
     195        s1 as source;
     196       
     197        CONNECTIONS
     198        s1.Outlet to fl.Inlet;
     199        Q.OutletQ to fl.InletQ;
     200       
     201        SPECIFY
     202        s1.F = 496.3 * 'kmol/h';
     203        s1.T = 338 * 'K';
     204        s1.P = 507.1 * 'kPa';
     205        s1.Composition = [0.2379,0.3082,0.09959,0.1373,0.08872,0.1283];
     206       
     207        fl.OutletL.P = 2.5 * 'atm';
     208#       fl.OutletL.T = 315.06 * 'K';
     209
     210#       Q.OutletQ.Q = 0 * 'kJ/h';
     211       
     212        OPTIONS
     213        Dynamic = false;
     214#       GuessFile="flashSteady_Test";
     215end
Note: See TracChangeset for help on using the changeset viewer.