source: mso/sample/miscellaneous/sample_arrays2.mso @ 4

#*---------------------------------------------------------------------
* This file is property of the author and cannot be used, copyed
* or modified without permission.
*
* Copyright (C) 2002-2005  the author
*----------------------------------------------------------------------
* Author: Rafael de Pelegrini Soares
* $Id: sample_arrays2.mso 1 2006-06-20 17:33:53Z 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);

        EQUATIONS

        diff(Var1(1,1)) = Var2(1,2);
        
        for i in [2 : Dimension-1]
                diff(Var1(1,i)) = Var2(1,i-1)+Var2(1,i+1);
        end

        diff(Var1(1,Dimension)) = Var2(1,Dimension);
        diff(Var1(2:Dimension,:)) = Scalar*Var2(2:Dimension,:);

        exp(Scalar)*Var2 = sin(time);
end

FlowSheet SampleArrays

        DEVICES
        dev1 as Arrays;

        INITIAL
        dev1.Var1 = -1;

        OPTIONS
        time = [0:0.1:2*3.1415];
        outputLevel = "high";
end