Changeset 703 for branches

Timestamp:

Jan 21, 2009, 3:23:15 PM (14 years ago)

Author:

Rafael de Pelegrini Soares

Message:

Array sample improved

File:

• branches/gui/sample/miscellaneous/sample_arrays2.mso (modified) (1 diff)

branches/gui/sample/miscellaneous/sample_arrays2.mso

@@ -30 +30 @@
         EQUATIONS
 
-        diff(Var1(1,1))*'s' = Var2(1,2);
-        
-        for i in [2 : Dimension-1] do
-                diff(Var1(1,i))*'s' = Var2(1,i-1)+Var2(1,i+1);
+        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
-
-        diff(Var1(1,Dimension))*'s' = Var2(1,Dimension);
-        diff(Var1(2:Dimension,:))*'s' = Scalar*Var2(2:Dimension,:);
-
-        exp(Scalar)*Var2 = sin(time*'rad/s');
 end