source: branches/gui/sample/miscellaneous/sample_arrays2.mso @ 928

#*-------------------------------------------------------------------
* 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: sample_arrays2.mso 924 2010-03-03 23:38:45Z rafael $
*--------------------------------------------------------------------*#


Model Arrays
        PARAMETERS
        Dimension  as Integer(Brief="Integer dimension", Default=3);
        Scalar as Real(Default=1);

        VARIABLES
        Var1(Dimension,Dimension) as Real(Default=1);
        Var2(Dimension,Dimension) as Real(Default=1);
        Var2Max(Dimension) as Real;
        Var2Min(Dimension) as Real;

        EQUATIONS

        diff(Var1)*'s' = Var2;

        for i in [1 : Dimension] do
                for j in [1 : Dimension] do
                        exp(Scalar)*Var2(i, j) = j*sin(i*time*'rad/s');
                end
        end
        Var2Max = max(Var2);
        Var2Min = min(Var2);
end

FlowSheet SampleArrays

        DEVICES
        dev1 as Arrays;

        INITIAL
        dev1.Var1 = -1;

        OPTIONS
        TimeStep = 0.1;
        TimeEnd = 2*3.1415;
end