Ignore:
Timestamp:
Aug 5, 2009, 4:21:21 PM (13 years ago)
Author:
gerson bicca
Message:

updates

File:
1 edited

Legend:

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

    r811 r815  
    16301630end
    16311631
    1632 #*
    1633 Model Rectifier as Section_ColumnBasicX
     1632Model Rectifier                                                         as ColumnBasic
    16341633
    16351634ATTRIBUTES
     
    16571656";
    16581657
    1659 PARAMETERS
    1660         CondenserVapourFlow as Switcher(Valid = ["on", "off"], Default = "on",Hidden=true);
     1658SET
     1659        NumberOfFeeds = 1;
    16611660
    16621661VARIABLES
    1663 #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    1664 # Column Vapour and Liquid Draw Sides
    1665 #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    1666         out     VapourDrawOff   as vapour_stream        (Brief="Vapour Outlet in the section", PosX=1, PosY=0.45,Protected = true);
    1667         out     LiquidDrawOff   as liquid_stream        (Brief="Liquid Outlet in the section", PosX=1, PosY=0.50,Protected = true);
    1668 #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    1669 # Column Devices
    1670 #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    16711662        CONDENSER       as condenser    (Brief="dymamic condenser without subcooling");
    1672         SPLITTER        as splitter2            (Brief="splitter which separate reflux and distillate");
     1663        SPLITTER        as splitter2    (Brief="splitter which separate reflux and distillate");
    16731664        PUMP            as pump                 (Brief="pump in reflux stream");
    1674         alfaTopo        as Real;
    1675 #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    1676 # Column Top product
    1677 #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
     1665
     1666        out     TI_cond         as control_signal       (Brief="Temperature Indicator of Condenser ", Protected = true, PosX=0.52, PosY=0);
     1667        out     LI_cond         as control_signal       (Brief="Level Indicator of Condenser", Protected = true, PosX=1, PosY=0.084);
     1668        out     PI_cond         as control_signal       (Brief="Pressure Indicator of Condenser", Protected = true, PosX=0.42, PosY=0);
     1669       
     1670        in      FeedTray        as stream               (Brief="Feed stream", PosX=0, PosY=0.55);
     1671       
    16781672        out     VapourDistillate        as vapour_stream        (Brief="Vapour outlet stream From Top Condenser", PosX=0.66, PosY=0);
    16791673        out     LiquidDistillate        as liquid_stream        (Brief="Liquid outlet stream From Top Splitter", PosX=1, PosY=0.24);
    1680 #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    1681 # Heat Port
    1682 #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    1683         in      HeatToCondenser         as power (Brief="Heat supplied to Condenser",PosX=1, PosY=0.04, Protected = true);
    1684 #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    1685 # Column Bottom Outlets
    1686 #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++     
     1674
     1675        in      Q_cond          as power (Brief="Heat supplied to Condenser",PosX=1, PosY=0.04, Protected = true);
     1676
    16871677        in      VapourInlet             as stream                       (Brief="Vapour Inlet in the section", PosX=0.07, PosY=1);
    16881678        out     LiquidOutlet    as liquid_stream        (Brief="Liquid Outlet in the section", PosX=0.32, PosY=1);
    1689 #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    1690 # Column Model Connectors
    1691 #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
     1679
    16921680        in      ConnectorSplitterOut    as stream       (Brief="Connector for Liquid outlet stream From Top Splitter", Hidden=true);
    16931681        in      ConnectorCondenserVout  as stream       (Brief="Connector for Vapour outlet stream From Top Condenser", Hidden=true);
     
    16971685EQUATIONS
    16981686
    1699 switch CondenserVapourFlow
    1700 
    1701         case "on":
    1702                 CONDENSER.InletVapour.F*TRAYS(1).vV = alfaTopo * Ah * sqrt(2*(TRAYS(1).OutletVapour.P -
    1703                 CONDENSER.OutletLiquid.P + 1e-8 * 'atm') / (alfa*TRAYS(1).rhoV));
    1704                 when CONDENSER.InletVapour.F < 1e-6 * 'kmol/h' switchto "off";
    1705                
    1706         case "off":
    1707                 CONDENSER.InletVapour.F = 0 * 'mol/s';
    1708                 when TRAYS(1).OutletVapour.P > CONDENSER.OutletLiquid.P + 1e-1 * 'atm' switchto "on";
    1709 
    1710 end     
    1711 
    1712 HeatToCondenser = ConnectorHeatCondenser;
     1687        TI_cond = CONDENSER.TI;
     1688        LI_cond = CONDENSER.LI;
     1689        PI_cond = CONDENSER.PI;
     1690       
     1691for i in 1:NumberOfTrays do
     1692
     1693if i equal FeedTrayLocation(1) then   
     1694
     1695"FeedTrayTop Inlet Flow"       
     1696        FeedTray.F= TRAYS(i).Inlet.F;
     1697
     1698"FeedTrayTop Inlet Temperature"
     1699        FeedTray.T = TRAYS(i).Inlet.T;
     1700
     1701"FeedTrayTop Inlet Pressure"
     1702        FeedTray.P = TRAYS(i).Inlet.P;
     1703
     1704"FeedTrayTop Inlet Composition"
     1705        FeedTray.z = TRAYS(i).Inlet.z;
     1706
     1707"FeedTrayTop Inlet Vapour Fraction"
     1708        FeedTray.v = TRAYS(i).Inlet.v;
     1709
     1710"FeedTrayTop Inlet Enthalpy"
     1711        FeedTray.h = TRAYS(i).Inlet.h;
     1712
     1713else
     1714
     1715"Inlet Tray - Flow Sealed"     
     1716        0*'mol/h'= TRAYS(i).Inlet.F;
     1717
     1718"Inlet Tray -  Temperature"
     1719        FeedTray.T = TRAYS(i).Inlet.T;
     1720
     1721"Inlet Tray -  Pressure"
     1722        FeedTray.P = TRAYS(i).Inlet.P;
     1723
     1724"Inlet Tray -  Composition"
     1725        FeedTray.z = TRAYS(i).Inlet.z;
     1726
     1727"Inlet Tray -  Vapour Fraction"
     1728        FeedTray.v = TRAYS(i).Inlet.v;
     1729
     1730"Inlet Tray -  Enthalpy"
     1731        FeedTray.h = TRAYS(i).Inlet.h;
     1732
     1733end
     1734
     1735end
     1736
     1737        Q_cond = ConnectorHeatCondenser;
    17131738
    17141739# Condenser Connector Equations
     
    17361761        VapourConnector.h = VapourInlet.h;
    17371762
    1738         VapourDrawOff.F*VapSideTrayIndex= TRAYS.VapourSideStream.F;
    1739         VapourDrawOff.T = TRAYS(VapourSideStreamLocation).VapourSideStream.T;
    1740         VapourDrawOff.P = TRAYS(VapourSideStreamLocation).VapourSideStream.P;
    1741         VapourDrawOff.z = TRAYS(VapourSideStreamLocation).VapourSideStream.z;
    1742 
    1743         LiquidDrawOff.F*LiqSideTrayIndex= TRAYS.LiquidSideStream.F;
    1744         LiquidDrawOff.T = TRAYS(LiquidSideStreamLocation).LiquidSideStream.T;
    1745         LiquidDrawOff.P = TRAYS(LiquidSideStreamLocation).LiquidSideStream.P;
    1746         LiquidDrawOff.z = TRAYS(LiquidSideStreamLocation).LiquidSideStream.z;
    1747 
    1748         VapourDrawOffFlow = VapourDrawOff.F;
    1749         LiquidDrawOffFlow = LiquidDrawOff.F;
    1750 
    17511763CONNECTIONS
    17521764#vapor
     
    17621774VapourConnector                 to TRAYS(NumberOfTrays).InletVapour;
    17631775SPLITTER.Outlet1                to ConnectorSplitterOut;
    1764 CONDENSER.OutletVapour          to ConnectorCondenserVout;
    1765 
    1766 end
    1767 
     1776CONDENSER.OutletVapour  to ConnectorCondenserVout;
     1777
     1778end
     1779
     1780#*
    17681781Model Rectifier_subcooling as Section_ColumnBasicX
    17691782
Note: See TracChangeset for help on using the changeset viewer.