source: branches/newlanguage/sample/controllers/tanksmodel.mso @ 188

#*-------------------------------------------------------------------
* 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.
*
*----------------------------------------------------------------------
* Author: Rafael de Pelegrini Soares
* $Id: tanksmodel.mso 84 2006-12-08 20:37:22Z paula $
*--------------------------------------------------------------------*#

using "types";

Model tank
        PARAMETERS
        A as area (Brief="Tank area", Default=2);

        VARIABLES
        k    as Real (Brief="Valve Constant", Unit = "m^2.5/h", Default=4);
    h    as length(Brief="Tank level");
        Fin  as flow_vol(Brief="Input flow");
out     Fout as flow_vol(Brief="Output flow");

        EQUATIONS
        "Mass balance"
        diff(A*h) = Fin - Fout;
        
        "Valve equation"
        Fout = k*sqrt(h);               
end