- Add <-- JVM NOT MANDATORY TAG -->
Pierre MARECHAL [Thu, 9 Apr 2009 13:30:10 +0000 (15:30 +0200)]
- Fix dae.tst

12 files changed:
scilab/modules/differential_equations/tests/unit_tests/bvode.tst
scilab/modules/differential_equations/tests/unit_tests/dae.dia.ref
scilab/modules/differential_equations/tests/unit_tests/dae.tst
scilab/modules/differential_equations/tests/unit_tests/dassldasrt.tst
scilab/modules/differential_equations/tests/unit_tests/feval.tst
scilab/modules/differential_equations/tests/unit_tests/impl.tst
scilab/modules/differential_equations/tests/unit_tests/int2d.tst
scilab/modules/differential_equations/tests/unit_tests/int3d.tst
scilab/modules/differential_equations/tests/unit_tests/intg.tst
scilab/modules/differential_equations/tests/unit_tests/matode.tst
scilab/modules/differential_equations/tests/unit_tests/ode.tst
scilab/modules/differential_equations/tests/unit_tests/odedc.tst

index aedb850..c0f40da 100644 (file)
@@ -5,6 +5,9 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 
+// <-- JVM NOT MANDATORY -->
+// <-- ENGLISH IMPOSED -->
+
 // to check that bvode works
 deff('df=dfsub(x,z)','df=[0,0,-6/x**2,-6/x]')
 deff('f=fsub(x,z)','f=(1 -6*x**2*z(4)-6*x*z(3))/x**3')
index b7a9778..5284987 100644 (file)
@@ -4,6 +4,8 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // ===========================================================================
+// <-- JVM NOT MANDATORY -->
+// <-- ENGLISH IMPOSED -->
 //DASSL
 // PROBLEM 1..   LINEAR DIFFERENTIAL/ALGEBRAIC SYSTEM
 //
@@ -302,7 +304,4 @@ Shared archive loaded.
 Link done.
 y0=ones(n,1);yd0=0*y0;
 yb=dae([y0,yd0],0,0:0.1:10,'myres','myjac');
-norm(y-yb)
- ans  =
-    8.602E-13  
+if (norm(y-yb) - 8.602D-13) > %eps then bugmes();quit;end
index 415f8b3..45536aa 100644 (file)
@@ -4,6 +4,10 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // ===========================================================================
+
+// <-- JVM NOT MANDATORY -->
+// <-- ENGLISH IMPOSED -->
+
 //DASSL
 // PROBLEM 1..   LINEAR DIFFERENTIAL/ALGEBRAIC SYSTEM
 //
@@ -301,4 +305,4 @@ ilib_for_link(['myres','myjac'],'band.o',[],'c',TMPDIR+'/Makefile',TMPDIR+'/band
 exec(TMPDIR+'/bandloader.sce'); //incremental linking
 y0=ones(n,1);yd0=0*y0;
 yb=dae([y0,yd0],0,0:0.1:10,'myres','myjac');
-norm(y-yb)
+if (norm(y-yb) - 8.602D-13) > %eps then pause,end
index 4c52165..aa2dda5 100644 (file)
@@ -5,6 +5,8 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 
+// <-- JVM NOT MANDATORY -->
+
 //DASSL
 // PROBLEM 1..   LINEAR DIFFERENTIAL/ALGEBRAIC SYSTEM
 //
index 0088ee1..ba19184 100644 (file)
@@ -5,6 +5,8 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 
+// <-- JVM NOT MANDATORY -->
+
 // Test 1
 
 deff("[z]=f(x,y,t)","z=x^2+y^2+t");
index 0a59d48..79634f5 100644 (file)
@@ -5,6 +5,8 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 
+// <-- JVM NOT MANDATORY -->
+
 y=impl([1;0;0],[-0.04;0.04;0],0,0.4,'resid','aplusp');
 if size(y) <> [3 1] then pause,end
 if norm( y - [0.9851721;0.0000339;0.0147941]) < %eps then pause,end
index 04c22aa..3fac93e 100644 (file)
@@ -5,6 +5,8 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 
+// <-- JVM NOT MANDATORY -->
+
 X=[0,0;1,1;1,0];
 Y=[0,0;0,1;1,1];
 deff('z=f(x,y)','z=cos(x+y)')
index 928f8b7..326d5bc 100644 (file)
@@ -5,6 +5,8 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 
+// <-- JVM NOT MANDATORY -->
+
 X=[0;1;0;0];
 Y=[0;0;1;0];
 Z=[0;0;0;1];
index 3cd1022..ba53a7a 100644 (file)
@@ -5,6 +5,8 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 
+// <-- JVM NOT MANDATORY -->
+
 // to check that intg works
 function y=f(x),y=x*sin(30*x)/sqrt(1-((x/(2*%pi))^2)),endfunction
 exact=-2.5432596188;
index 1ffe41a..8b7bc46 100644 (file)
@@ -5,6 +5,8 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 
+// <-- JVM NOT MANDATORY -->
+
 warning("off");
 
 funcprot(0);
index 00c328a..ea0d63a 100644 (file)
@@ -5,6 +5,8 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 
+// <-- JVM NOT MANDATORY -->
+
  // to check that ode works
  // ---------- Simple one dimension ODE (Scilab function external)
  // dy/dt=y^2-y sin(t)+cos(t), y(0)=0
index 89699e7..fea5aca 100644 (file)
@@ -5,6 +5,8 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 
+// <-- JVM NOT MANDATORY -->
+
 // Copyright INRIA
 deff('xcd=f(t,xc,xd,iflag)',...
     ['if iflag==0 then '