Changeset f84924c in tol for tol_tests

Timestamp:

Feb 3, 2009, 9:21:52 AM (18 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

8a2250d

Parents:

151dc42

Message:

Just traces

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

Location:

tol_tests/tol/random_generation

Files:

• test_0003/test.tol (modified) (2 diffs)
• test_0004/test.tol (modified) (7 diffs)

tol_tests/tol/random_generation/test_0003/test.tol

@@ -8 +8 @@
   Text summary_ = 
    "Test of coherence and completeness of truncated bi-normal" ;
+
+  Real PutRandomSeed(0);
+  Real rnd_seed=GetRandomSeed(0);
+  WriteLn("rnd_seed "+IntText(rnd_seed));
+
+  Real numErr0 = Copy(NError);
 
 //We go to divide the real plane in 4 quadrants and draw a bidimensional
@@ -104 +110 @@
   Real ph  = p1^h;
 
+  Real numErr1 = Copy(NError);
+
 //Extented information about test behaviour
   Set partialResults_ = 
   [[
+    numErr0,
+    numErr1,
     r00,r01,r10,r11
   ]];
 //This is a messure of the success of the test 
-  Real quality_ = And(r00,r01,r10,r11)*(1-ph);
+  Real quality_ = And(numErr1 == numErr0,r00,r01,r10,r11)*(1-ph);
 
 //Return the results 

tol_tests/tol/random_generation/test_0004/test.tol

@@ -9 +9 @@
    "Test of UniKerDnsEstOptBnw" ;
 
-  Real numErr0 = Copy(NError);
-
-  Real PutRandomSeed(3245324);
+  Real PutRandomSeed(0);
   Real rnd_seed=GetRandomSeed(0);
   WriteLn("rnd_seed "+IntText(rnd_seed));
 
+  Real numErr0 = Copy(NError);
+
+  WriteLn("TRACE 1");
   Real   modes = IntRand(10,10);
   Matrix nu    = Rand(modes,1,-100, +100);
@@ -27 +28 @@
   };
   Matrix Nmode = Tra(RandMultinomial(1, N, Tra(weight)));
+//WriteLn("TRACE 2");
 
   Real Dens(Real x)
@@ -42 +44 @@
   Set BMTFile([[X]],   "X.bmt");
 
+//WriteLn("TRACE 3");
   Matrix F     = Frequency(X,100);
   Real   parts = 1000;
@@ -48 +51 @@
   Matrix T     = Tra(SetMat([[r]]));
   Real   t0    = Copy(Time);
+//WriteLn("TRACE 3.1");
   Matrix KD    = UniKerDnsEstOptBnw(X,T,0,2,1.E-3);
+//WriteLn("TRACE 3.2");
   Real   tm    = Copy(Time)-t0;
   WriteLn("Time for UniKerDnsEstOptBnw "<<tm+" / "+IntText(N)+"="<<(tm/N));
@@ -56 +61 @@
     [[f]]
   }));
+//WriteLn("TRACE 4");
   Matrix CmpKde = T | KD | D;
   Set BMTFile([[CmpKde]],"CmpKde.bmt");
@@ -65 +71 @@
   Real MatAvr(KD);
   Real MatAvr(D);
+//WriteLn("TRACE 5");
 
   Real numErr1 = Copy(NError);
@@ -71 +78 @@
   Set partialResults_ = 
   [[
-    Real ok    = numErr1 == numErr0;
+    numErr0,
+    numErr1,
     Real okStd = difStdErr < Sqrt(1/Rows(X))
   ]];
 //This is a messure of the success of the test 
-  Real quality_ = And(ok,okStd);
+  Real quality_ = And(numErr1 == numErr0,okStd);
 
+//WriteLn("TRACE 6");
 //Return the results 
   Set resultStr_ = strTestStatus(summary_, link_, quality_,