Changeset 643

Show
Ignore:
Timestamp:
02/25/09 18:06:55 (5 years ago)
Author:
vdebuen
Message:

Enhanced quality check

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • tolp/trunk/tol_tests/tol/LinearAlgebra/test_0007/test.tol

    r18 r643  
    1111  Real numErr0 = Copy(NError); 
    1212 
     13  Real PutRandomSeed(0); 
     14  Real rndSeed = GetRandomSeed(0); 
     15  WriteLn("rndSeed = "<<rndSeed); 
    1316   
    1417  //Matrices dimension 
     
    5053  Matrix aux.4.3 = DifEq(1/pol,x,Rand(0,0,0,0),Rand(deg,1,0,0)); 
    5154 
    52   Set ok.detail =  
     55  Set quality.detail =  
    5356  [[ 
    54     Real ok.1   = MatEQ(TInv.1, TInv.2); 
    55     Real ok.2   = MatEQ(aux.2.1,aux.2.2); 
    56     Real ok.3   = MatEQ(aux.3.1,aux.3.2); 
    57     Real ok.4.2 = MatEQ(aux.4.1,aux.4.2); 
    58     Real ok.4.3 = MatEQ(aux.4.1,aux.4.3) 
     57    Real q.1   = 1-MatMax(Abs(TInv.1-TInv.2)); 
     58    Real q.2   = 1-MatMax(Abs(aux.2.1-aux.2.2)); 
     59    Real q.3   = 1-MatMax(Abs(aux.3.1-aux.3.2)); 
     60    Real q.4.2 = 1-MatMax(Abs(aux.4.1-aux.4.2)); 
     61    Real q.4.3 = 1-MatMax(Abs(aux.4.1-aux.4.3)) 
    5962  ]]; 
    60   Real ok.all = Group("And",ok.detail); 
     63  Real quality.min = SetMin(quality.detail); 
    6164 
    6265//Extented information about test behaviour 
    63   Set partialResults_ = ok.detail << 
     66  Set partialResults_ = quality.detail << 
    6467  [[ 
    6568    numErr0, n, pol, deg 
     
    6770 
    6871//This is a messure of the success of the test  
    69   Real quality_ = And(numErr0 == NError, ok.all); 
     72  Real quality_ = And(numErr0 == NError) * quality.min; 
    7073 
    7174//Return the results