diff options
Diffstat (limited to 'src/c/elementaryFunctions/log/testDoubleLog.c')
| -rw-r--r-- | src/c/elementaryFunctions/log/testDoubleLog.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/c/elementaryFunctions/log/testDoubleLog.c b/src/c/elementaryFunctions/log/testDoubleLog.c index 424b9db2..89924830 100644 --- a/src/c/elementaryFunctions/log/testDoubleLog.c +++ b/src/c/elementaryFunctions/log/testDoubleLog.c @@ -878,16 +878,16 @@ void zlogsTest(void) { for (i=0;i<200;i++){ in=DoubleComplex(inR[i],inI[i]); out=zlogs(in); - assert(( (fabs(zreals(out)-resR[i]))/(fabs(zreals(out))) )<3e-16); - assert(( (fabs(zimags(out)-resI[i]))/(fabs(zimags(out))) )<3e-16); + assert(( (fabs(zreals(out)-resR[i]))/(fabs(zreals(out))) )<3e-14); + assert(( (fabs(zimags(out)-resI[i]))/(fabs(zimags(out))) )<3e-14); } for (i=0;i<200;i++){ in2=DoubleComplex(in2R[i],in2I[i]); out=zlogs(in2); - assert(( (fabs(zreals(out)-res2R[i]))/(fabs(zreals(out))) )<3e-16); - assert(( (fabs(zimags(out)-res2I[i]))/(fabs(zimags(out))) )<1e-16); + assert(( (fabs(zreals(out)-res2R[i]))/(fabs(zreals(out))) )<3e-14); + assert(( (fabs(zimags(out)-res2I[i]))/(fabs(zimags(out))) )<1e-14); } } @@ -927,16 +927,16 @@ void zlogaTest(void) { zloga(in,200,out); for (i=0;i<200;i++){ - assert(( (fabs(zreals(out[i])-resR[i]))/(fabs(zreals(out[i]))) )<3e-16); - assert(( (fabs(zimags(out[i])-resI[i]))/(fabs(zimags(out[i]))) )<3e-16); + assert(( (fabs(zreals(out[i])-resR[i]))/(fabs(zreals(out[i]))) )<3e-14); + assert(( (fabs(zimags(out[i])-resI[i]))/(fabs(zimags(out[i]))) )<3e-14); } in2=DoubleComplexMatrix(in2R,in2I,200); zloga(in2,200,out); for (i=0;i<200;i++){ - assert(( (fabs(zreals(out[i])-res2R[i]))/(fabs(zreals(out[i]))) )<3e-16); - assert(( (fabs(zimags(out[i])-res2I[i]))/(fabs(zimags(out[i]))) )<1e-16); + assert(( (fabs(zreals(out[i])-res2R[i]))/(fabs(zreals(out[i]))) )<3e-14); + assert(( (fabs(zimags(out[i])-res2I[i]))/(fabs(zimags(out[i]))) )<1e-14); } |