source: branches/newlanguage/sample/miscellaneous/sample_arrays.mso @ 125

Last change on this file since 125 was 125, checked in by Rafael de Pelegrini Soares, 15 years ago

Updated some models for the new language proposal

  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 1.3 KB
Line 
1#*-------------------------------------------------------------------
2* EMSO Model Library (EML) Copyright (C) 2004 - 2007 ALSOC.
3*
4* This LIBRARY is free software; you can distribute it and/or modify
5* it under the therms of the ALSOC FREE LICENSE as available at
6* http://www.enq.ufrgs.br/alsoc.
7*
8* EMSO Copyright (C) 2004 - 2007 ALSOC, original code
9* from http://www.rps.eng.br Copyright (C) 2002-2004.
10* All rights reserved.
11*
12* EMSO is distributed under the therms of the ALSOC LICENSE as
13* available at http://www.enq.ufrgs.br/alsoc.
14*
15*----------------------------------------------------------------------
16* Author: Rafael de Pelegrini Soares
17*         Paula Bettio Staudt
18* $Id: sample_arrays.mso 125 2007-01-22 19:57:16Z rafael $
19*--------------------------------------------------------------------*#
20
21
22Model Arrays
23        PARAMETERS
24        Dimension  as Integer(Brief="Integer dimension", Default=3);
25        Scalar as Real(Default=1);
26
27        VARIABLES
28        Var1(Dimension,Dimension) as Real(Default=1);
29        Var2(Dimension,Dimension) as Real(Default=1);
30
31        EQUATIONS
32        for i in [1 : Dimension]
33                diff(Var1(1,i)) = Var2(1,i)/"s";
34        end
35
36        diff(Var1(2:Dimension,:)) * "s" = Scalar*Var2(2:Dimension,:);
37
38        exp(Scalar)*Var2 = sin(time * "180*grad/s");
39end
40
41FlowSheet SampleArrays
42        DEVICES
43        dev1 as Arrays;
44
45        INITIAL
46        dev1.Var1 = -1;
47
48        OPTIONS
49        TimeStep = 0.1;
50        TimeEnd = 3.1415;
51end
Note: See TracBrowser for help on using the repository browser.