diff options
| author | jofret | 2008-05-20 07:26:09 +0000 |
|---|---|---|
| committer | jofret | 2008-05-20 07:26:09 +0000 |
| commit | 54c5df264795ceb76bba56b03cafe01578452608 (patch) | |
| tree | c9f57574b0b05c3ee02e153303aaf9f827e19c28 /src/elementaryFunctions/atan/testFloatAtan.c | |
| parent | cd9b4f56d9cb58aff3511996dc517196c026863a (diff) | |
| download | scilab2c-54c5df264795ceb76bba56b03cafe01578452608.tar.gz scilab2c-54c5df264795ceb76bba56b03cafe01578452608.tar.bz2 scilab2c-54c5df264795ceb76bba56b03cafe01578452608.zip | |
* Importing Scilab ATAN algorithm
* License update
* Tests
Diffstat (limited to 'src/elementaryFunctions/atan/testFloatAtan.c')
| -rw-r--r-- | src/elementaryFunctions/atan/testFloatAtan.c | 55 |
1 files changed, 49 insertions, 6 deletions
diff --git a/src/elementaryFunctions/atan/testFloatAtan.c b/src/elementaryFunctions/atan/testFloatAtan.c index b6724491..da757254 100644 --- a/src/elementaryFunctions/atan/testFloatAtan.c +++ b/src/elementaryFunctions/atan/testFloatAtan.c @@ -27,15 +27,58 @@ void satansTest() { printf("satans(-PI/6) = %f\n", satans(-FPI/6)); } +void catansTest(void) { + floatComplex pi_pi = FloatComplex(FPI, FPI); + floatComplex pi_2_pi_2 = FloatComplex(FPI/2, FPI/2); + floatComplex pi_2_pi_3 = FloatComplex(FPI/2, FPI/3); + floatComplex pi_2_pi_4 = FloatComplex(FPI/2, FPI/4); + floatComplex out; + + printf(">> Float Complex scalar\n"); + out = catans(pi_pi); + printf("catans(PI + I*PI) = %e + I * %e\n", creals(out), cimags(out)); + out = catans(pi_2_pi_2); + printf("catans(PI/2 + I*PI/2) = %e + I * %e\n", creals(out), cimags(out)); + out = catans(pi_2_pi_3); + printf("catans(PI/2 + I*PI/3) = %e + I * %e\n", creals(out), cimags(out)); + out = catans(pi_2_pi_4); + printf("catans(PI/2 + I*PI/4) = %e + I * %e\n", creals(out), cimags(out)); +} + +void satanaTest(void) { + float out[5]; + float in[5] = {FPI, FPI/2, FPI/3, FPI/4, FPI/6}; + int i = 0; + + printf(">> Float Array\n"); + satana(in, 5, out); + for (i = 0 ; i < 5 ; ++i) + printf("satana(array) = %f\n", out[i]); + +} + +void catanaTest(void) { + floatComplex in[4]; + floatComplex out[4]; + int i = 0; + + in[0] = FloatComplex(FPI, FPI); + in[1] = FloatComplex(FPI/2, FPI/2); + in[2] = FloatComplex(FPI/2, FPI/3); + in[3] = FloatComplex(FPI/2, FPI/4); + + catana(in, 4, out); + printf(">> Float Complex Array\n"); + for (i = 0 ; i < 4 ; ++i) + printf("catana(array) = %e + I * %e\n", creals(out[i]), cimags(out[i])); +} int testAtan() { printf("\n>>>> Float Arc tangeant Tests\n"); satansTest(); - /* FIXME : Implement some test here ... */ - /* - catansTest(); - satanaTest(); - catanaTest(); - */ + catansTest(); + satanaTest(); + catanaTest(); + return 0; } |