summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/elementaryFunctions/sinh/Makefile.am5
-rw-r--r--src/elementaryFunctions/sinh/Makefile.in6
-rw-r--r--src/elementaryFunctions/sinh/testSinh.c106
-rw-r--r--src/elementaryFunctions/sinh/testSinh.h14
4 files changed, 118 insertions, 13 deletions
diff --git a/src/elementaryFunctions/sinh/Makefile.am b/src/elementaryFunctions/sinh/Makefile.am
index 91473362..87c53400 100644
--- a/src/elementaryFunctions/sinh/Makefile.am
+++ b/src/elementaryFunctions/sinh/Makefile.am
@@ -5,7 +5,7 @@
## Made by Bruno JOFRET <bruno.jofret@inria.fr>
##
## Started on Fri Jan 5 10:19:16 2007 jofret
-## Last update Wed Apr 18 16:52:23 2007 jofret
+## Last update Fri Apr 20 16:47:28 2007 jofret
##
## Copyright INRIA 2007
##
@@ -51,4 +51,7 @@ testSinh_CFLAGS = $(check_INCLUDES)
testSinh_LDADD = $(top_builddir)/lib/libDoubleComplex.a \
$(top_builddir)/lib/libFloatComplex.a \
$(top_builddir)/lib/libSinh.a \
+ $(top_builddir)/lib/libSin.a \
+ $(top_builddir)/lib/libCosh.a \
+ $(top_builddir)/lib/libCos.a \
@LIBMATH@
diff --git a/src/elementaryFunctions/sinh/Makefile.in b/src/elementaryFunctions/sinh/Makefile.in
index 0c575e5b..d8539e6d 100644
--- a/src/elementaryFunctions/sinh/Makefile.in
+++ b/src/elementaryFunctions/sinh/Makefile.in
@@ -70,7 +70,8 @@ am_testSinh_OBJECTS = testSinh-testSinh.$(OBJEXT)
testSinh_OBJECTS = $(am_testSinh_OBJECTS)
testSinh_DEPENDENCIES = $(top_builddir)/lib/libDoubleComplex.a \
$(top_builddir)/lib/libFloatComplex.a \
- $(top_builddir)/lib/libSinh.a
+ $(top_builddir)/lib/libSinh.a $(top_builddir)/lib/libSin.a \
+ $(top_builddir)/lib/libCosh.a $(top_builddir)/lib/libCos.a
DEFAULT_INCLUDES = -I. -I$(srcdir) -I$(top_builddir)/includes
depcomp = $(SHELL) $(top_srcdir)/config/depcomp
am__depfiles_maybe = depfiles
@@ -212,6 +213,9 @@ testSinh_CFLAGS = $(check_INCLUDES)
testSinh_LDADD = $(top_builddir)/lib/libDoubleComplex.a \
$(top_builddir)/lib/libFloatComplex.a \
$(top_builddir)/lib/libSinh.a \
+ $(top_builddir)/lib/libSin.a \
+ $(top_builddir)/lib/libCosh.a \
+ $(top_builddir)/lib/libCos.a \
@LIBMATH@
all: all-am
diff --git a/src/elementaryFunctions/sinh/testSinh.c b/src/elementaryFunctions/sinh/testSinh.c
index acc837a2..a63d08ff 100644
--- a/src/elementaryFunctions/sinh/testSinh.c
+++ b/src/elementaryFunctions/sinh/testSinh.c
@@ -5,7 +5,7 @@
** Made by Bruno JOFRET <bruno.jofret@inria.fr>
**
** Started on Fri Dec 8 15:06:16 2006 jofret
-** Last update Fri Mar 30 12:10:15 2007 jofret
+** Last update Fri Apr 20 16:44:27 2007 jofret
**
** Copyright INRIA 2006
*/
@@ -42,19 +42,105 @@ void dsinhsTest() {
printf("dsinhs(-PI/6) = %e\n", dsinhs(-PI/6));
}
+void csinhsTest(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 out;
+
+ printf(">> Float Complex scalar\n");
+ out = csinhs(pi_pi);
+ printf("csinhs(PI + I*PI) = %f + I * %f\n", creals(out), cimags(out));
+ out = csinhs(pi_2_pi_2);
+ printf("csinhs(PI/2 + I*PI/2) = %f + I * %f\n", creals(out), cimags(out));
+ out = csinhs(pi_2_pi_3);
+ printf("csinhs(PI/2 + I*PI/3) = %f + I * %f\n", creals(out), cimags(out));
+ out = csinhs(pi_2_pi_4);
+ printf("csinhs(PI/2 + I*PI/4) = %f + I * %f\n", creals(out), cimags(out));
+}
+
+void zsinhsTest(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 out;
+
+ printf(">> Double Complex scalar\n");
+ out = zsinhs(pi_pi);
+ printf("zsinhs(PI + I*PI) = %e + I * %e\n", zreals(out), zimags(out));
+ out = zsinhs(pi_2_pi_2);
+ printf("zsinhs(PI/2 + I*PI/2) = %e + I * %e\n", zreals(out), zimags(out));
+ out = zsinhs(pi_2_pi_3);
+ printf("zsinhs(PI/2 + I*PI/3) = %e + I * %e\n", zreals(out), zimags(out));
+ out = zsinhs(pi_2_pi_4);
+ printf("zsinhs(PI/2 + I*PI/4) = %e + I * %e\n", zreals(out), zimags(out));
+}
+
+void ssinhaTest(void) {
+ float out[5];
+ float in[5] = {PI, PI/2, PI/3, PI/4, PI/6};
+ int i = 0;
+
+ printf(">> Float array\n");
+ ssinha(in, out, 5);
+ for (i = 0 ; i < 5 ; ++i)
+ printf("ssinha(array) = %f\n", out[i]);
+}
+
+void dsinhaTest(void) {
+ double out[5];
+ double in[5] = {PI, PI/2, PI/3, PI/4, PI/6};
+ int i = 0;
+
+ printf(">> Double Array\n");
+ dsinha(in, out, 5);
+ for (i = 0 ; i < 5 ; ++i)
+ printf("ssinha(array) = %f\n", out[i]);
+
+}
+
+void csinhaTest(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 out[4];
+ int i = 0;
+
+ csinha(in, out, 4);
+ printf(">> Float Complex Array\n");
+ for (i = 0 ; i < 4 ; ++i)
+ printf("csinha(array) = %e + I * %e\n", creals(out[i]), cimags(out[i]));
+}
+
+void zsinhaTest(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 out[4];
+ int i = 0;
+
+ zsinha(in, out, 4);
+ printf(">> Double Complex Array\n");
+ for (i = 0 ; i < 4 ; ++i)
+ printf("zsinha(array) = %e + I * %e\n", zreals(out[i]), zimags(out[i]));
+}
+
int testSinh() {
printf("\n>>>> Hyperbolic Sine Tests\n");
ssinhsTest();
dsinhsTest();
- /* FIXME : Implement some test here ... */
- /*
- csinhsTest();
- zsinhsTest();
- ssinhaTest();
- dsinhaTest();
- csinhaTest();
- zsinhaTest();
- */
+ csinhsTest();
+ zsinhsTest();
+ ssinhaTest();
+ dsinhaTest();
+ csinhaTest();
+ zsinhaTest();
return 0;
}
diff --git a/src/elementaryFunctions/sinh/testSinh.h b/src/elementaryFunctions/sinh/testSinh.h
index 2e20b05c..c28a3953 100644
--- a/src/elementaryFunctions/sinh/testSinh.h
+++ b/src/elementaryFunctions/sinh/testSinh.h
@@ -5,7 +5,7 @@
** Made by Bruno JOFRET <bruno.jofret@inria.fr>
**
** Started on Fri Mar 30 12:01:28 2007 jofret
-** Last update Fri Mar 30 12:08:11 2007 jofret
+** Last update Fri Apr 20 16:46:15 2007 jofret
**
** Copyright INRIA 2007
*/
@@ -22,6 +22,18 @@ void ssinhsTest(void);
void dsinhsTest(void);
+void csinhsTest(void);
+
+void zsinhsTest(void);
+
+void ssinhaTest(void);
+
+void dsinhaTest(void);
+
+void csinhaTest(void);
+
+void zsinhaTest(void);
+
int testSinh(void);
#endif /* !_TESTSINH_H_ */
generated by cgit (git 2.34.1) at 2025-03-24 02:54:29 +0000