Changeset 649 for branches/gui/eml/stage_separators/column.mso

Timestamp:

Sep 30, 2008, 6:42:41 PM (14 years ago)

Author:

gerson bicca

Message:

testing column model in the GUI (Distillation_thermosyphon_subcooling)

File:

• branches/gui/eml/stage_separators/column.mso (modified) (2 diffs)

branches/gui/eml/stage_separators/column.mso

@@ -447 +447 @@
 *       - a pump in reflux stream.
 *
-* ------------------------------------------------------------------
-Model Distillation_thermosyphon_subcoolingTeste
+* ------------------------------------------------------------------*#
+Model Distillation_thermosyphon_subcooling as Section_ColumnBasic
         ATTRIBUTES
         Pallete         = true;
@@ -478 +478 @@
 ";
         
-        PARAMETERS
-        outer PP as Plugin(Brief = "External Physical Properties", Type="PP");
-        outer NComp as Integer;
-        NumberOfTrays as Integer(Brief="Number of trays", Default=2);
-        topdown as Integer(Brief="Trays counting (1=top-down, -1=bottom-up)", Default=1);
-        top as Integer(Brief="Number of top tray");
-        bot as Integer(Brief="Number of bottom tray");
-        VapourFlow as Switcher(Valid = ["on", "off"], Default = "on");
-
-        SET
-        top = (NumberOfTrays-1)*(1-topdown)/2+1;
-        bot = NumberOfTrays/top;
-        
-        VARIABLES
-        trays(NumberOfTrays) as trayTeste;
-        cond as condenserSteady;
-        reb as reboilerSteady;
-        tbottom as tank;
-        ttop as tank_cylindrical;
-        spbottom as splitter;
-        sptop as splitter;
-        pump1 as pump;
-        alfaTopo as Real;
-
-        EQUATIONS
-        switch VapourFlow
-                case "on":
-                cond.InletV.F*trays(top).vV = alfaTopo * trays(top).Ah * sqrt(2*(trays(top).OutletV.P -
-                cond.OutletL.P + 1e-8 * 'atm') / (trays(top).alfa*trays(top).rhoV));
-                when cond.InletV.F < 1e-6 * 'kmol/h' switchto "off";
-                
-                case "off":
-                cond.InletV.F = 0 * 'mol/s';
-                when trays(top).OutletV.P > cond.OutletL.P + 1e-1 * 'atm' switchto "on";
-        end     
-        
-        CONNECTIONS
-        #vapor
-        reb.OutletV to trays(bot).InletV;
-        trays([top+topdown:topdown:bot]).OutletV to trays([top:topdown:bot-topdown]).InletV;
-        trays(top).OutletV to cond.InletV;
-        
-        #liquid
-        cond.OutletL to ttop.Inlet;     
-        ttop.Outlet to sptop.Inlet;
-        sptop.Outlet2 to pump1.Inlet;   
-        pump1.Outlet to trays(top).InletL;
-        trays([top:topdown:bot-topdown]).OutletL to trays([top+topdown:topdown:bot]).InletL;
-        trays(bot).OutletL to tbottom.Inlet;
-        tbottom.Outlet to spbottom.Inlet;
-        spbottom.Outlet2 to reb.InletL;
+PARAMETERS
+
+        CondenserVapourFlow as Switcher(Valid = ["on", "off"], Hidden=true, Default = "on");
+
+VARIABLES
+        CondenserUnity as condenserSteady;
+        TopVessel               as tank_cylindrical;
+        TopSplitter             as splitter;
+        PumpUnity               as pump;
+        ReboilerUnity   as reboilerSteady;
+        BottomVessel    as tank;
+        BottomSplitter  as splitter;
+
+
+        alfaTopo                        as Real;
+
+out             HeatToCondenser         as power                                (Brief="Heat supplied to Condenser",Hidden=true);
+out             HeatToReboiler          as power                                (Brief="Heat supplied to Reboiler",Hidden=true);
+out             HeatToBottomVessel      as power                                (Brief="Heat supplied to Bottom Vessel",Hidden=true);
+out             HeatToTopVessel         as power                                (Brief="Heat supplied to Top Vessel",Hidden=true);
+
+EQUATIONS
+
+switch CondenserVapourFlow
+
+        case "on":
+                CondenserUnity.InletV.F*trays(1).vV = alfaTopo * Ah * sqrt(2*(trays(1).OutletV.P -
+                CondenserUnity.OutletL.P + 1e-8 * 'atm') / (alfa*trays(1).rhoV));
+                when CondenserUnity.InletV.F < 1e-6 * 'kmol/h' switchto "off";
+
+        case "off":
+                CondenserUnity.InletV.F = 0 * 'mol/s';
+                when trays(1).OutletV.P > CondenserUnity.OutletL.P + 1e-1 * 'atm' switchto "on";
+
+end     
+        
+CONNECTIONS
+#vapor
+        ReboilerUnity.OutletV   to trays(NumberOfTrays).InletV;
+        trays(1).OutletV                                to CondenserUnity.InletV;
+
+#liquid
+        CondenserUnity.OutletL          to TopVessel.Inlet;     
+        TopVessel.Outlet                                        to TopSplitter.Inlet;
+        TopSplitter.Outlet2                             to PumpUnity.Inlet;     
+        PumpUnity.Outlet                                        to trays(1).InletL;
+        trays(NumberOfTrays).OutletL    to BottomVessel.Inlet;
+        BottomVessel.Outlet                             to BottomSplitter.Inlet;
+        BottomSplitter.Outlet2                  to ReboilerUnity.InletL;
+
+#Connectors
+HeatToCondenser                         to CondenserUnity.InletQ;
+HeatToReboiler                  to ReboilerUnity.InletQ;
+HeatToBottomVessel      to BottomVessel.InletQ;
+HeatToTopVessel                 to TopVessel.InletQ;
+
 end