source: trunk/sample/miscellaneous/sample_tanks.mso

#*-------------------------------------------------------------------
* 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.
*
*--------------------------------------------------------------------
* Sample file for buffer tank series.
*--------------------------------------------------------------------
* Author: Rafael de Pelegrini Soares
* $Id: sample_tanks.mso 574 2008-07-25 14:18:50Z rafael $
*--------------------------------------------------------------------*#

using "stage_separators/tank";

FlowSheet UmTanque
        DEVICES
        Fin     as flow_vol;
        Tanque  as tank_simplified;
        
        CONNECTIONS
        Fin          to Tanque.Fin;
        
        SET
        Tanque.k = 8 * 'm^2.5/h';
        Tanque.A = 4 * 'm^2';
        
        SPECIFY
        Fin = 10 * 'm^3/h';

        INITIAL
        "altura inicial"
        Tanque.Level = 1 * 'm';
        
        OPTIONS
        TimeStep = 0.1;
        TimeEnd = 5;
        TimeUnit = 'h' ;
end

FlowSheet TresTanques
        DEVICES
        Fin     as flow_vol;
        Tanque1 as tank_simplified;
        Tanque2 as tank_simplified;
        Tanque3 as tank_simplified;
        
        CONNECTIONS
        Fin          to Tanque1.Fin;
        Tanque1.Fout to Tanque2.Fin;
        Tanque2.Fout to Tanque3.Fin;
        
        SET
        Tanque2.k = 8 * 'm^2.5/h';
        Tanque2.A = 4 * 'm^2';
        
        SPECIFY
        Fin = 10 * 'm^3/h';

        INITIAL
        "altura inicial"
        Tanque1.Level = 1 * 'm';
        Tanque2.Level = 2 * 'm';
        Tanque3.Level = 1 * 'm';
        
        OPTIONS
        TimeStep = 0.5;
        TimeEnd = 15;
        TimeUnit = 'h' ;
end