source: trunk/sample/miscellaneous/ntanks_plant.mso @ 411

#*-------------------------------------------------------------------
* EMSO Model Library (EML) Copyright (C) 2004 - 2007 ALSOC.
*
* This LIBRARY is free software; you can distribute it and/or modify
* it under the therms of the ALSOC FREE LICENSE as available at
* http://www.enq.ufrgs.br/alsoc.
*
* EMSO Copyright (C) 2004 - 2007 ALSOC, original code
* from http://www.rps.eng.br Copyright (C) 2002-2004.
* All rights reserved.
*
* EMSO is distributed under the therms of the ALSOC LICENSE as
* available at http://www.enq.ufrgs.br/alsoc.
*
*---------------------------------------------------------------------
* Plant of n-Tanks
*----------------------------------------------------------------------
*
*   Description:
*      Plant of n-tanks
*
*   Devices:
*       * inlet and outlet feeds
*       * mixer
*       * splitter
*               * tank
*
*----------------------------------------------------------------------
* Author: Rodolfo Rodrigues
*--------------------------------------------------------------------*#

using "types";
using "reactors/vol_tank";



#*---------------------------------------------------------------------
* Simple feed model
*--------------------------------------------------------------------*#
Model stream
        VARIABLES
        F       as flow_vol             (Brief="Volumetric flow", DisplayUnit='cm^3/s');
end

Model feed_inlet
        ATTRIBUTES
        Pallete = true;
        Brief   = "Simple inlet stream";
        Icon    = "icon/inlet";
        
        VARIABLES
out Outlet      as stream       (Brief="Outlet stream", PosX=0.5, PosY=0);
end

Model feed_outlet
        ATTRIBUTES
        Pallete = true;
        Brief   = "Simple outlet stream";
        Icon    = "icon/outlet";
        
        VARIABLES
in      Inlet   as stream       (Brief="Inlet stream", PosX=0.5, PosY=0);
end


#*---------------------------------------------------------------------
* Simple splitter model
*--------------------------------------------------------------------*#
Model simple_splitter
        ATTRIBUTES
        Pallete = true;
        Icon = "icon/connection"; 
        Brief = "Simple model of a splitter with 2 outlet streams.";
        
        VARIABLES
in  Inlet   as stream   (Brief="Inlet stream", PosX=0.5, PosY=1);
out Outlet1 as stream   (Brief="Outlet stream 1", PosX=1, PosY=0.5);
out Outlet2 as stream   (Brief="Outlet stream 2", PosX=0.5, PosY=0);
        X               as fraction     (Brief="Fraction to Outlet 1");

        EQUATIONS
        "Material balance"
        Outlet1.F + Outlet2.F = Inlet.F;
        
        "Outlet stream 1"
        Outlet1.F = Inlet.F*X;
end


#*---------------------------------------------------------------------
* Simple mixer model
*--------------------------------------------------------------------*#
Model simple_mixer
        ATTRIBUTES
        Pallete = true;
        Icon = "icon/connection"; 
        Brief = "Simple model of a mixer with 2 inlet streams.";
        
        VARIABLES
in  Inlet1      as stream       (Brief="Inlet stream 1", PosX=0, PosY=0.5);
in  Inlet2      as stream       (Brief="Inlet stream 2", PosX=0.5, PosY=0);
out Outlet      as stream       (Brief="Outlet stream", PosX=0.5, PosY=1);
        
        EQUATIONS
        "Material balance"
        Outlet.F = Inlet1.F + Inlet1.F;
end


#*---------------------------------------------------------------------
* Simple tank model
*--------------------------------------------------------------------*#
Model simple_tank
        ATTRIBUTES
        Pallete = true;
        Icon = "icon/tank"; 
        Brief = "Simple model of a tank.";
        
        PARAMETERS
        pi              as Real         (Brief="Number pi", Default=3.141593);
        g               as acceleration(Brief="Acceleration of gravity", Default=9.80665);
        
        VARIABLES
in      Inlet   as stream       (Brief="Inlet stream", PosX=0.5, PosY=0);
out     Outlet  as stream       (Brief="Outlet stream", PosX=0.5, PosY=1);

        tank    as vol_tank     (Brief="Tank volume routine calculation");
        K               as Real         (Brief="Discharge constant", Unit='cm^2.5/s');
        a               as area         (Brief="Cross-section of outlet hole", DisplayUnit='cm^2');
        
        EQUATIONS
        "Material balance"
        diff(tank.V) = Inlet.F - Outlet.F;
        
        "Outlet flow"
        Outlet.F = K*sqrt(tank.Level);
        
        "Constant"
        K = a*sqrt(2*g);
end