source: mso/sample/miscellaneous/sample_arrays.mso @ 32

Last change on this file since 32 was 32, checked in by Argimiro Resende Secchi, 16 years ago

clean up.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 963 bytes
Line 
1#*---------------------------------------------------------------------
2* This file is property of the author and cannot be used, copyed
3* or modified without permission.
4*
5* Copyright (C) 2002-2005  the author
6*----------------------------------------------------------------------
7* Author: Rafael de Pelegrini Soares
8*         Paula Bettio Staudt
9* $Id: sample_arrays.mso 32 2006-09-23 00:16:00Z arge $
10*--------------------------------------------------------------------*#
11
12
13Model Arrays
14        PARAMETERS
15        Dimension  as Integer(Brief="Integer dimension", Default=3);
16        Scalar as Real(Default=1);
17
18        VARIABLES
19        Var1(Dimension,Dimension) as Real(Default=1);
20        Var2(Dimension,Dimension) as Real(Default=1);
21
22        EQUATIONS
23        for i in [1 : Dimension]
24                diff(Var1(1,i)) = Var2(1,i)/"s";
25        end
26
27        diff(Var1(2:Dimension,:)) * "s" = Scalar*Var2(2:Dimension,:);
28
29        exp(Scalar)*Var2 = sin(time * "180*grad/s");
30end
31
32FlowSheet SampleArrays
33
34        DEVICES
35        dev1 as Arrays;
36
37        INITIAL
38        dev1.Var1 = -1;
39
40        OPTIONS
41        time = [0:0.1:2*3.1415];
42end
Note: See TracBrowser for help on using the repository browser.