#*---------------------------------------------------------------------
* 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
*         Paula Bettio Staudt
* $Id: sample_arrays.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
	for i in [1 : Dimension]
		diff(Var1(1,i)) = Var2(1,i)/"s";
	end

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

	exp(Scalar)*Var2 = sin(time * "180*grad/s");
end

FlowSheet SampleArrays

	DEVICES
	dev1 as Arrays;

	INITIAL
	dev1.Var1 = -1;

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