summaryrefslogtreecommitdiff
path: root/src/elementaryFunctions/exp/testFloatExp.c
diff options
context:
space:
mode:
authortorset2009-01-30 11:19:15 +0000
committertorset2009-01-30 11:19:15 +0000
commit47b131bb61f0fe67ecfc9b0da935bf87762f7cbd (patch)
tree623ea3282e9f01416a6f96824dcdff8d964046f7 /src/elementaryFunctions/exp/testFloatExp.c
parent50b9f61a418109ad93a125ed45646fa5c765dc93 (diff)
downloadscilab2c-47b131bb61f0fe67ecfc9b0da935bf87762f7cbd.tar.gz
scilab2c-47b131bb61f0fe67ecfc9b0da935bf87762f7cbd.tar.bz2
scilab2c-47b131bb61f0fe67ecfc9b0da935bf87762f7cbd.zip
Update
Diffstat (limited to 'src/elementaryFunctions/exp/testFloatExp.c')
-rw-r--r--src/elementaryFunctions/exp/testFloatExp.c19
1 files changed, 18 insertions, 1 deletions
diff --git a/src/elementaryFunctions/exp/testFloatExp.c b/src/elementaryFunctions/exp/testFloatExp.c
index 7f9774a6..d490e3a0 100644
--- a/src/elementaryFunctions/exp/testFloatExp.c
+++ b/src/elementaryFunctions/exp/testFloatExp.c
@@ -433,6 +433,15 @@ void sexpsTest(void) {
out=sexps(in[i]);
assert(( (fabs(out-res[i]))/(fabs(out)) )<1e-6);
}
+
+ assert(( (fabs(sexps(0)-1))/(fabs(sexps(0))) )<1e-6);
+ assert(( (fabs(sexps(1)-2.7182818284590450907956))/(fabs(sexps(1))) )<1e-6);
+ assert(( (fabs(sexps(2)-7.3890560989306504069418))/(fabs(sexps(2))) )<1e-6);
+ assert(( (fabs(sexps(3)-20.085536923187671476398))/(fabs(sexps(3))) )<1e-6);
+ assert(( (fabs(sexps(4)-54.598150033144236203952))/(fabs(sexps(4))) )<1e-6);
+ assert(( (fabs(sexps(5)-148.41315910257662835647))/(fabs(sexps(5))) )<1e-6);
+ assert(( (fabs(sexps(6)-403.42879349273533762243))/(fabs(sexps(6))) )<1e-6);
+ assert(( (fabs(sexps(7)-1096.6331584284580458188))/(fabs(sexps(7))) )<1e-6);
}
void cexpsTest(void) {
@@ -456,11 +465,19 @@ void sexpaTest(void) {
float res[]=RESULT;
float out[200];
int i,j;
+ float mon_test[6]={1.0f,4.0f,2.0f,5.0f,3.0f,6.0f};
+ float result_mon_test[6]={2.7182818284590450907956f,54.598150033144236203952f,7.3890560989306504069418f,
+ 148.41315910257662835647f,20.085536923187671476398f,403.42879349273533762243f};
+ float out_mon_test[6];
j=1;
sexpa(in,200,out);
for (i=0;i<200;i++){
assert(( (fabs(out[i]-res[i]))/(fabs(out[i])) )<1e-6);
}
+ sexpa(mon_test,6,out_mon_test);
+ for (i=0;i<6;i++){
+ assert(( (fabs(out_mon_test[i]-result_mon_test[i]))/(fabs(out_mon_test[i])) )<1e-6);
+ }
}
void cexpaTest(void) {
@@ -483,7 +500,7 @@ void cexpaTest(void) {
int testExp(void) {
- printf("\n>>>> Hyperbolic Cosine Tests\n");
+ printf("\n>>>> Float Exp Tests\n");
sexpsTest();
cexpsTest();
sexpaTest();