diff options
Diffstat (limited to 'src/elementaryFunctions/atan/testDoubleAtan.c')
-rw-r--r-- | src/elementaryFunctions/atan/testDoubleAtan.c | 56 |
1 files changed, 50 insertions, 6 deletions
diff --git a/src/elementaryFunctions/atan/testDoubleAtan.c b/src/elementaryFunctions/atan/testDoubleAtan.c index a22bbed5..bc31f382 100644 --- a/src/elementaryFunctions/atan/testDoubleAtan.c +++ b/src/elementaryFunctions/atan/testDoubleAtan.c @@ -27,15 +27,59 @@ void datansTest() { printf("datans(-PI/6) = %e\n", datans(-DPI/6)); } +void zatansTest() { + doubleComplex pi_pi = DoubleComplex(DPI, DPI); + doubleComplex pi_2_pi_2 = DoubleComplex(DPI/2, DPI/2); + doubleComplex pi_2_pi_3 = DoubleComplex(DPI/2, DPI/3); + doubleComplex pi_2_pi_4 = DoubleComplex(DPI/2, DPI/4); + doubleComplex out; + + printf(">> Double Complex scalar\n"); + out = zatans(pi_pi); + printf("zatans(PI + I*PI) = %e + I * %e\n", zreals(out), zimags(out)); + out = zatans(pi_2_pi_2); + printf("zatans(PI/2 + I*PI/2) = %e + I * %e\n", zreals(out), zimags(out)); + out = zatans(pi_2_pi_3); + printf("zatans(PI/2 + I*PI/3) = %e + I * %e\n", zreals(out), zimags(out)); + out = zatans(pi_2_pi_4); + printf("zatans(PI/2 + I*PI/4) = %e + I * %e\n", zreals(out), zimags(out)); +} + +void datanaTest(void) { + double out[5]; + double in[5] = {DPI, DPI/2, DPI/3, DPI/4, DPI/6}; + int i = 0; + + printf(">> Double Array\n"); + datana(in, 5, out); + for (i = 0 ; i < 5 ; ++i) + printf("satana(array) = %f\n", out[i]); + +} + +void zatanaTest(void) { + doubleComplex in[4]; + doubleComplex out[4]; + int i = 0; + + in[0] = DoubleComplex(DPI, DPI); + in[1] = DoubleComplex(DPI/2, DPI/2); + in[2] = DoubleComplex(DPI/2, DPI/3); + in[3] = DoubleComplex(DPI/2, DPI/4); + + zatana(in, 4, out); + printf(">> Double Complex Array\n"); + for (i = 0 ; i < 4 ; ++i) + printf("zatana(array) = %e + I * %e\n", zreals(out[i]), zimags(out[i])); +} + int testAtan() { printf("\n>>>> Double Arc Tangeant Tests\n"); datansTest(); - /* FIXME : Implement some test here ... */ - /* - zatansTest(); - datanaTest(); - zatanaTest(); - */ + zatansTest(); + datanaTest(); + zatanaTest(); + return 0; } |