source: trunk/sample/miscellaneous/sample_if_tanh.mso @ 289

#*-------------------------------------------------------------------
* 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.
*
*--------------------------------------------------------------------
* FlowSheet showing how to 'emulate' an 'if' conditional with
* hyperbolic functions.
*--------------------------------------------------------------------
* Author: Paula Bettio Staudt and Rafael de Pelegrini Soares
* $Id: sample_if_tanh.mso 217 2007-03-16 01:11:56Z arge $
*--------------------------------------------------------------------*#

FlowSheet SampleIF
        VARIABLES
        A; xif; xelse;
        
        PARAMETERS
        B as Real(Default = 10);
        
        EQUATIONS
        #* if (time>3)
        *     A = 10;
        *  else
        *     A = 5;
        *#
        A = 10*xif + 5*xelse;

        xif = (1 + tanh(B * (time/'s' - 3)))/2;
        xelse = (1 - tanh(B * (time/'s' - 3)))/2;
        
        SET
        B = 100;
        
        OPTIONS
        TimeStep = 0.01;
        TimeEnd = 6;
end