summaryrefslogtreecommitdiff
path: root/src/operations/division
diff options
context:
space:
mode:
authortorset2009-02-27 14:05:52 +0000
committertorset2009-02-27 14:05:52 +0000
commit8e207d069eb29be177718a7d2e760434d1e40e1f (patch)
treea8ca6056adf34fa977769d6b0175f6719e61cfa1 /src/operations/division
parent6e7f75a3a916ae7b7b6145c0badad7b649265c0f (diff)
downloadscilab2c-8e207d069eb29be177718a7d2e760434d1e40e1f.tar.gz
scilab2c-8e207d069eb29be177718a7d2e760434d1e40e1f.tar.bz2
scilab2c-8e207d069eb29be177718a7d2e760434d1e40e1f.zip
change precision for tests : put it to 3e-16 for double and 3e-6 for float
Diffstat (limited to 'src/operations/division')
-rw-r--r--src/operations/division/testLDivision.c12
-rw-r--r--src/operations/division/testRDivision.c14
2 files changed, 13 insertions, 13 deletions
diff --git a/src/operations/division/testLDivision.c b/src/operations/division/testLDivision.c
index 36641050..5f234a53 100644
--- a/src/operations/division/testLDivision.c
+++ b/src/operations/division/testLDivision.c
@@ -1307,7 +1307,7 @@ static void cldivsTest()
in2 = FloatComplex(DR[i],DI[i]);
out = cldivs(in1,in2);
assert( ( fabs(creals(out)-RR[i]) / fabs(creals(out)) ) <1e-6);
- assert( ( fabs(cimags(out)-RI[i]) / fabs(cimags(out)) ) <1e-4);
+ assert( ( fabs(cimags(out)-RI[i]) / fabs(cimags(out)) ) <3e-6);
}
}
@@ -1327,8 +1327,8 @@ static void zldivsTest()
in1 = DoubleComplex(NR[i],NI[i]);
in2 = DoubleComplex(DR[i],DI[i]);
out = zldivs(in1,in2);
- assert( ( fabs(zreals(out)-RR[i]) / fabs(zreals(out)) ) <1e-15);
- assert( ( fabs(zimags(out)-RI[i]) / fabs(zimags(out)) ) <1e-13);
+ assert( ( fabs(zreals(out)-RR[i]) / fabs(zreals(out)) ) <3e-16);
+ assert( ( fabs(zimags(out)-RI[i]) / fabs(zimags(out)) ) <3e-16);
}
}
@@ -1388,7 +1388,7 @@ static void cldivaTest()
for (i=0;i<200;i++){
assert( ( fabs(creals(out[i])-RR[i]) / fabs(creals(out[i])) ) <1e-6);
- assert( ( fabs(cimags(out[i])-RI[i]) / fabs(cimags(out[i])) ) <1e-4);
+ assert( ( fabs(cimags(out[i])-RI[i]) / fabs(cimags(out[i])) ) <3e-6);
}
}
@@ -1412,8 +1412,8 @@ static void zldivaTest()
zldiva(in1,in2,200,out);
for (i=0;i<200;i++){
- assert( ( fabs(zreals(out[i])-RR[i]) / fabs(zreals(out[i])) ) <1e-15);
- assert( ( fabs(zimags(out[i])-RI[i]) / fabs(zimags(out[i])) ) <1e-13);
+ assert( ( fabs(zreals(out[i])-RR[i]) / fabs(zreals(out[i])) ) <3e-16);
+ assert( ( fabs(zimags(out[i])-RI[i]) / fabs(zimags(out[i])) ) <3e-16);
}
}
diff --git a/src/operations/division/testRDivision.c b/src/operations/division/testRDivision.c
index 33cdb09b..fd9f495d 100644
--- a/src/operations/division/testRDivision.c
+++ b/src/operations/division/testRDivision.c
@@ -1275,7 +1275,7 @@ static void drdivsTest()
for(i=0;i<200;i++){
out=drdivs(tIn1[i],tIn2[i]);
printf("%d : %f ; num = %f;erreur = %1.25f\n",i,out,tIn1[i],fabs(out-tRes[i]) / fabs(out));
- assert( (fabs(out-tRes[i]) / fabs(out) ) <1e-15);
+ assert( (fabs(out-tRes[i]) / fabs(out) ) <3e-16);
}
}
@@ -1296,7 +1296,7 @@ static void crdivsTest()
in2 = FloatComplex(DR[i],DI[i]);
out = crdivs(in1,in2);
assert( ( fabs(creals(out)-RR[i]) / fabs(creals(out)) ) <1e-6);
- assert( ( fabs(cimags(out)-RI[i]) / fabs(cimags(out)) ) <1e-5);
+ assert( ( fabs(cimags(out)-RI[i]) / fabs(cimags(out)) ) <3e-6);
}
}
@@ -1316,8 +1316,8 @@ static void zrdivsTest()
in1 = DoubleComplex(NR[i],NI[i]);
in2 = DoubleComplex(DR[i],DI[i]);
out = zrdivs(in1,in2);
- assert( ( fabs(zreals(out)-RR[i]) / fabs(zreals(out)) ) <1e-15);
- assert( ( fabs(zimags(out)-RI[i]) / fabs(zimags(out)) ) <1e-13);
+ assert( ( fabs(zreals(out)-RR[i]) / fabs(zreals(out)) ) <3e-16);
+ assert( ( fabs(zimags(out)-RI[i]) / fabs(zimags(out)) ) <3e-16);
}
}
@@ -1374,7 +1374,7 @@ static void crdivaTest()
for (i=0;i<200;i++){
assert( ( fabs(creals(out[i])-RR[i]) / fabs(creals(out[i])) ) <1e-6);
- assert( ( fabs(cimags(out[i])-RI[i]) / fabs(cimags(out[i])) ) <1e-5);
+ assert( ( fabs(cimags(out[i])-RI[i]) / fabs(cimags(out[i])) ) <3e-6);
}
}
@@ -1398,8 +1398,8 @@ static void zrdivaTest()
zrdiva(in1,in2,200,out);
for (i=0;i<200;i++){
- assert( ( fabs(zreals(out[i])-RR[i]) / fabs(zreals(out[i])) ) <1e-15);
- assert( ( fabs(zimags(out[i])-RI[i]) / fabs(zimags(out[i])) ) <1e-13);
+ assert( ( fabs(zreals(out[i])-RR[i]) / fabs(zreals(out[i])) ) <3e-16);
+ assert( ( fabs(zimags(out[i])-RI[i]) / fabs(zimags(out[i])) ) <3e-16);
}
}