diff options
author | torset | 2009-02-18 16:13:56 +0000 |
---|---|---|
committer | torset | 2009-02-18 16:13:56 +0000 |
commit | 375b3f8b316e93f68dcc678a9dd370c15384caae (patch) | |
tree | 685118dfd897832f909e69217febf893ffdd848c /src | |
parent | 0b94d86a41dd247b5a6bf1e22e327dab4376e8ba (diff) | |
download | scilab2c-375b3f8b316e93f68dcc678a9dd370c15384caae.tar.gz scilab2c-375b3f8b316e93f68dcc678a9dd370c15384caae.tar.bz2 scilab2c-375b3f8b316e93f68dcc678a9dd370c15384caae.zip |
add failing test
Diffstat (limited to 'src')
-rw-r--r-- | src/matrixOperations/logm/testDoubleLogm.c | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/matrixOperations/logm/testDoubleLogm.c b/src/matrixOperations/logm/testDoubleLogm.c index f54b2af9..7667192c 100644 --- a/src/matrixOperations/logm/testDoubleLogm.c +++ b/src/matrixOperations/logm/testDoubleLogm.c @@ -79,14 +79,18 @@ static void dlogmaTest(void){ else assert(1); } + /* FIXME : sign pb with the imaginary part below : it's due to the reals eigenvalues which are + stored like that : eigenvalues + (-0)*i instead of eigenvalues + 0 *i + When we do operations with eigenvalues the sign isn't good + */ + for(i=0;i<16;i++) { printf("out[%d] = %f + %f *i ---result = %f + %f *i\n",i,zreals(out16[i]),zimags(out16[i]),result16R[i],result16I[i]); assert( fabs(zreals(out16[i])-result16R[i]) / fabs(zreals(out16[i])) <1e-13); - /*assert( fabs(zimags(out16[i])-result16I[i]) / fabs(zimags(out16[i])) <1e-16);*/ + assert( fabs(zimags(out16[i])-result16I[i]) / fabs(zimags(out16[i])) <1); } for(i=0;i<16;i++) { - printf("out[%d] = %f + %f *i ---result = %f + %f *i\n",i,zreals(outHer[i]),zimags(outHer[i]),resultHerR[i],resultHerI[i]); assert( fabs(zreals(outHer[i])-resultHerR[i]) / fabs(zreals(outHer[i])) <1e-12); assert( fabs(zimags(outHer[i])-resultHerI[i]) / fabs(zimags(outHer[i])) <1e-13); } |