Changeset de5922e in tol

Timestamp:

Feb 8, 2012, 7:06:58 PM (15 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

25979b0

Parents:

a65c03e

Message:

upgrading test

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@4090 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tol_tests/tol/LinearAlgebra/vmatrix/test_0006/test.tol (modified) (3 diffs)

tol_tests/tol/LinearAlgebra/vmatrix/test_0006/test.tol

@@ -12 +12 @@
   WriteLn("TRACE 1");
 
-  Real size = 1000;
+  Real size = 10000;
   Real burning = 1;
 
@@ -90 +90 @@
 
   Set TruncatedSamples = For(1,Card(Cases), getAllSamples);
+  Set Feasible.ok = For(1,Card(Cases), Real(Real k)
+  {
+//  Real k= 1;
+    Set     case = Cases[k];
+    VMatrix B    = Mat2VMat(case::B);
+    VMatrix b    = Mat2VMat(case::b);
+    VMatrix x = Mat2VMat(TruncatedSamples[k]);
+    VMatrix b_ = Group("ConcatColumns",NCopy(VRows(x),b));
+    VMatrix g = B*Tra(x)-b_;
+    Real G = VMatMax(g);
+    G<0
+  });
     
   Matrix FullDivUnion = Group("ConcatRows", FullDividing);
@@ -120 +132 @@
     eqMinProb,
     neMaxProb
-  ]];
+  ]] << Feasible.ok;
 
 //This is a messure of the success of the test 
-  Real quality_ = And(numErr0 == NError)*eqMinProb;
+  Real quality_ = And(numErr0 == NError)*eqMinProb*SetMin(Feasible.ok);
 
 //Return the results