diff options
Diffstat (limited to 'src/elementaryFunctions/acos')
-rw-r--r-- | src/elementaryFunctions/acos/cacosa.c | 4 | ||||
-rw-r--r-- | src/elementaryFunctions/acos/dacosa.c | 4 | ||||
-rw-r--r-- | src/elementaryFunctions/acos/sacosa.c | 4 | ||||
-rw-r--r-- | src/elementaryFunctions/acos/testAcos.c | 32 | ||||
-rw-r--r-- | src/elementaryFunctions/acos/zacosa.c | 4 |
5 files changed, 25 insertions, 23 deletions
diff --git a/src/elementaryFunctions/acos/cacosa.c b/src/elementaryFunctions/acos/cacosa.c index 8bbfaf2a..dcfa3826 100644 --- a/src/elementaryFunctions/acos/cacosa.c +++ b/src/elementaryFunctions/acos/cacosa.c @@ -5,14 +5,14 @@ ** Made by Bruno JOFRET <bruno.jofret@inria.fr> ** ** Started on Fri Jan 5 10:23:49 2007 jofret -** Last update Mon Mar 19 11:29:15 2007 jofret +** Last update Mon Oct 22 10:00:02 2007 bruno ** ** Copyright INRIA 2007 */ #include "acos.h" -void cacosa(floatComplex* x, floatComplex* y, int size) { +void cacosa(floatComplex* x, int size, floatComplex* y) { int i = 0; for (i = 0; i < size; ++i) { y[i] = cacoss(x[i]); diff --git a/src/elementaryFunctions/acos/dacosa.c b/src/elementaryFunctions/acos/dacosa.c index c5e291a7..79a516c7 100644 --- a/src/elementaryFunctions/acos/dacosa.c +++ b/src/elementaryFunctions/acos/dacosa.c @@ -5,14 +5,14 @@ ** Made by Bruno JOFRET <bruno.jofret@inria.fr> ** ** Started on Fri Jan 5 11:29:20 2007 jofret -** Last update Mon Mar 19 11:29:03 2007 jofret +** Last update Mon Oct 22 09:59:52 2007 bruno ** ** Copyright INRIA 2007 */ #include "acos.h" -void dacosa(double* x, double* y, int size) { +void dacosa(double* x, int size, double* y) { int i = 0; for (i = 0; i < size; ++i) { y[i] = dacoss(x[i]); diff --git a/src/elementaryFunctions/acos/sacosa.c b/src/elementaryFunctions/acos/sacosa.c index c905c76c..89209e00 100644 --- a/src/elementaryFunctions/acos/sacosa.c +++ b/src/elementaryFunctions/acos/sacosa.c @@ -5,14 +5,14 @@ ** Made by Bruno JOFRET <bruno.jofret@inria.fr> ** ** Started on Fri Jan 5 10:25:57 2007 jofret -** Last update Mon Mar 19 11:28:52 2007 jofret +** Last update Mon Oct 22 09:58:58 2007 bruno ** ** Copyright INRIA 2007 */ #include "acos.h" -void sacosa(float* x, float* y, int size) { +void sacosa(float* x, int size, float* y) { int i = 0; for (i = 0; i < size; ++i) { y[i] = sacoss(x[i]); diff --git a/src/elementaryFunctions/acos/testAcos.c b/src/elementaryFunctions/acos/testAcos.c index 3dc5e3c0..2ddd799d 100644 --- a/src/elementaryFunctions/acos/testAcos.c +++ b/src/elementaryFunctions/acos/testAcos.c @@ -5,7 +5,7 @@ ** Made by Bruno JOFRET <bruno.jofret@inria.fr> ** ** Started on Fri Dec 8 15:05:44 2006 jofret -** Last update Fri Apr 20 10:24:42 2007 jofret +** Last update Mon Oct 22 11:55:22 2007 bruno ** ** Copyright INRIA 2006 */ @@ -84,7 +84,7 @@ void sacosaTest(void) { int i = 0; printf(">> Float array\n"); - sacosa(in, out, 5); + sacosa(in, 5, out); for (i = 0 ; i < 5 ; ++i) printf("sacosa(array) = %f\n", out[i]); } @@ -95,37 +95,39 @@ void dacosaTest(void) { int i = 0; printf(">> Double Array\n"); - dacosa(in, out, 5); + dacosa(in, 5, out); for (i = 0 ; i < 5 ; ++i) printf("sacosa(array) = %f\n", out[i]); } void cacosaTest(void) { - floatComplex pi_pi = FloatComplex(PI, PI); - floatComplex pi_2_pi_2 = FloatComplex(PI/2, PI/2); - floatComplex pi_2_pi_3 = FloatComplex(PI/2, PI/3); - floatComplex pi_2_pi_4 = FloatComplex(PI/2, PI/4); - floatComplex in[4] = {pi_pi, pi_2_pi_2, pi_2_pi_3, pi_2_pi_4}; + floatComplex in[4]; floatComplex out[4]; int i = 0; - cacosa(in, out, 4); + in[0] = FloatComplex(PI, PI); + in[1] = FloatComplex(PI/2, PI/2); + in[2] = FloatComplex(PI/2, PI/3); + in[3] = FloatComplex(PI/2, PI/4); + + cacosa(in, 4, out); printf(">> Float Complex Array\n"); for (i = 0 ; i < 4 ; ++i) printf("cacosa(array) = %e + I * %e\n", creals(out[i]), cimags(out[i])); } void zacosaTest(void) { - doubleComplex pi_pi = DoubleComplex(PI, PI); - doubleComplex pi_2_pi_2 = DoubleComplex(PI/2, PI/2); - doubleComplex pi_2_pi_3 = DoubleComplex(PI/2, PI/3); - doubleComplex pi_2_pi_4 = DoubleComplex(PI/2, PI/4); - doubleComplex in[4] = {pi_pi, pi_2_pi_2, pi_2_pi_3, pi_2_pi_4 }; + doubleComplex in[4]; doubleComplex out[4]; int i = 0; - zacosa(in, out, 4); + in[0] = DoubleComplex(PI, PI); + in[1] = DoubleComplex(PI/2, PI/2); + in[2] = DoubleComplex(PI/2, PI/3); + in[3] = DoubleComplex(PI/2, PI/4); + + zacosa(in, 4, out); printf(">> Double Complex Array\n"); for (i = 0 ; i < 4 ; ++i) printf("zacosa(array) = %e + I * %e\n", zreals(out[i]), zimags(out[i])); diff --git a/src/elementaryFunctions/acos/zacosa.c b/src/elementaryFunctions/acos/zacosa.c index 9a01f76b..45caa6b4 100644 --- a/src/elementaryFunctions/acos/zacosa.c +++ b/src/elementaryFunctions/acos/zacosa.c @@ -5,14 +5,14 @@ ** Made by Bruno JOFRET <bruno.jofret@inria.fr> ** ** Started on Fri Jan 5 10:25:14 2007 jofret -** Last update Mon Mar 19 11:28:38 2007 jofret +** Last update Mon Oct 22 09:58:47 2007 bruno ** ** Copyright INRIA 2007 */ #include "acos.h" -void zacosa(doubleComplex* x, doubleComplex* y, int size) { +void zacosa(doubleComplex* x, int size, doubleComplex* y) { int i = 0; for (i = 0; i < size; ++i) { y[i] = zacoss(x[i]); |