Ignore:
Timestamp:
Sep 1, 2009, 3:00:55 PM (13 years ago)
Author:
gerson bicca
Message:

updated packed column

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/gui/eml/stage_separators/column.mso

    r838 r842  
    24262426        HeatSupply                      as heat_rate    (Brief="Rate of heat supply");
    24272427        ColumnDiameter          as length               (Brief="Column diameter");
    2428         VoidFraction            as Real                 (Brief="Void fraction of packing, m^3/m^3");
     2428        VoidFraction            as Real                 (Brief="Void fraction of packing, (m^3 void space/m^3 packed bed)");
    24292429        ResistanceCoeff         as positive     (Brief="Resistance coefficient on the liquid load", Default=1);
    24302430        AreaPerPackingVol       as Real                 (Brief="surface area per packing volume", Unit='m^2/m^3');
     
    25582558end
    25592559
    2560 Model Packed_Section_Column as Packed_Section_ColumnBasic
     2560Model Packed_Section_Column     as Packed_Section_ColumnBasic
    25612561
    25622562        ATTRIBUTES
     
    26322632"Inlet Tray -  Enthalpy"
    26332633    0*'J/mol' = STAGES(i).Inlet.h;
     2634
     2635end
     2636
     2637end
     2638
     2639end
     2640
     2641Model Packed_Section_Column2    as Packed_Section_ColumnBasic
     2642
     2643        ATTRIBUTES
     2644        Pallete         = true;
     2645        Icon            = "icon/PackedSectionColumn";
     2646        Brief           = "Model of a packed column section.";
     2647        Info            =
     2648"== Model of a packed column section containing ==
     2649* NStages theoretical stages.
     2650       
     2651== Specify ==
     2652* the feed stream of each tray (Inlet);
     2653* the InletLiquid stream of the top tray;
     2654* the InletVapour stream of the bottom tray;
     2655* the total pressure drop (dP) of the section.
     2656       
     2657== Initial Conditions ==
     2658* the stages temperature (OutletLiquid.T);
     2659* the stages liquid holdup;
     2660* (NoComps - 1) OutletLiquid (OR OutletVapour) compositions for each tray.
     2661";
     2662
     2663SET
     2664        NumberOfFeeds = 2;
     2665
     2666VARIABLES
     2667       
     2668        in      FeedStageOne    as stream               (Brief="Feed stream", PosX=0, PosY=0.45);
     2669        in      FeedStageTwo    as stream               (Brief="Feed stream", PosX=0, PosY=0.65);
     2670
     2671EQUATIONS
     2672#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
     2673# Equating Feed Stage Variables to Stages Variables
     2674#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
     2675
     2676for i in 1:NumberOfStages do
     2677
     2678if   i equal FeedStageLocation(1) then   
     2679
     2680"FeedTrayTop Inlet Flow"       
     2681        FeedStageOne.F= STAGES(i).Inlet.F;
     2682
     2683"FeedTrayTop Inlet Temperature"
     2684        FeedStageOne.T = STAGES(i).Inlet.T;
     2685
     2686"FeedTrayTop Inlet Pressure"
     2687        FeedStageOne.P = STAGES(i).Inlet.P;
     2688
     2689"FeedTrayTop Inlet Composition"
     2690        FeedStageOne.z = STAGES(i).Inlet.z;
     2691
     2692"FeedTrayTop Inlet Vapour Fraction"
     2693        FeedStageOne.v = STAGES(i).Inlet.v;
     2694
     2695"FeedTrayTop Inlet Enthalpy"
     2696        FeedStageOne.h = STAGES(i).Inlet.h;
     2697
     2698else if   i equal FeedStageLocation(2) then   
     2699
     2700"FeedTrayBottom Inlet Flow"     
     2701        FeedStageTwo.F= STAGES(i).Inlet.F;
     2702
     2703"FeedTrayBottom Inlet Temperature"
     2704        FeedStageTwo.T = STAGES(i).Inlet.T;
     2705
     2706"FeedTrayBottom Inlet Pressure"
     2707        FeedStageTwo.P = STAGES(i).Inlet.P;
     2708
     2709"FeedTrayBottom Inlet Composition"
     2710        FeedStageTwo.z = STAGES(i).Inlet.z;
     2711
     2712"FeedTrayBottom Inlet Vapour Fraction"
     2713        FeedStageTwo.v = STAGES(i).Inlet.v;
     2714
     2715"FeedTrayBottom Inlet Enthalpy"
     2716        FeedStageTwo.h = STAGES(i).Inlet.h;
     2717
     2718else
     2719
     2720"Inlet Tray - Flow Sealed"
     2721    0*'mol/h'= STAGES(i).Inlet.F;
     2722       
     2723"Inlet Tray -  Temperature"
     2724    300*'K' = STAGES(i).Inlet.T;
     2725       
     2726"Inlet Tray -  Pressure"
     2727    1*'atm' = STAGES(i).Inlet.P;
     2728       
     2729"Inlet Tray -  Composition"
     2730    0.1 = STAGES(i).Inlet.z;
     2731       
     2732"Inlet Tray -  Vapour Fraction"
     2733    0 = STAGES(i).Inlet.v;
     2734       
     2735"Inlet Tray -  Enthalpy"
     2736    0*'J/mol' = STAGES(i).Inlet.h;
     2737
     2738end
    26342739
    26352740end
Note: See TracChangeset for help on using the changeset viewer.