diff options
Diffstat (limited to 'scilab2c/src/elementaryFunctions/exp/testDoubleExp.c')
| -rw-r--r-- | scilab2c/src/elementaryFunctions/exp/testDoubleExp.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/scilab2c/src/elementaryFunctions/exp/testDoubleExp.c b/scilab2c/src/elementaryFunctions/exp/testDoubleExp.c index 2daeae06..d5d9f5c4 100644 --- a/scilab2c/src/elementaryFunctions/exp/testDoubleExp.c +++ b/scilab2c/src/elementaryFunctions/exp/testDoubleExp.c @@ -431,10 +431,10 @@ void dexpsTest(void) { for (i=0;i<200;i++){ out=dexps(in[i]); - assert(( (fabs(out-res[i]))/(fabs(out)) )<1e-15); + assert(( (fabs(out-res[i]))/(fabs(out)) )<3e-16); } - assert(( (fabs(exp(3)-20.085536923187671476398))/(exp(3)) )<1e-15); + assert(( (fabs(exp(3)-20.085536923187671476398))/(exp(3)) )<3e-16); } @@ -449,8 +449,8 @@ void zexpsTest(void) { for (i=0;i<200;i++){ in=DoubleComplex(inR[i],inI[i]); out=zexps(in); - assert(( (fabs(zreals(out)-resR[i]))/(fabs(zreals(out))) )<1e-15); - assert(( (fabs(zimags(out)-resI[i]))/(fabs(zimags(out))) )<1e-15); + assert(( (fabs(zreals(out)-resR[i]))/(fabs(zreals(out))) )<3e-16); + assert(( (fabs(zimags(out)-resI[i]))/(fabs(zimags(out))) )<3e-16); } } @@ -462,7 +462,7 @@ void dexpaTest(void) { dexpa(in,200,out); for (i=0;i<200;i++){ - assert(( (fabs(out[i]-res[i]))/(fabs(out[i])) )<1e-15); + assert(( (fabs(out[i]-res[i]))/(fabs(out[i])) )<3e-16); } } @@ -479,8 +479,8 @@ void zexpaTest(void) { } zexpa(in,200,out); for (i=0;i<200;i++){ - assert(( (fabs(zreals(out[i])-resR[i]))/(fabs(zreals(out[i]))) )<1e-15); - assert(( (fabs(zimags(out[i])-resI[i]))/(fabs(zimags(out[i]))) )<1e-15); + 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); } } |