From 2a3a1e826511ed5f7dc447efcb5dcf40b36e0f92 Mon Sep 17 00:00:00 2001
From: jofret
Date: Fri, 9 Feb 2007 16:13:04 +0000
Subject: * src/elementaryFunctions/cexps.c : Implementation. *
 src/elementaryFunctions/zexps.c : Implementation.

---
 ChangeLog                           |  7 +++++++
 src/elementaryFunctions/exp/cexps.c | 13 ++++++++++---
 src/elementaryFunctions/exp/zexps.c | 13 ++++++++++---
 3 files changed, 27 insertions(+), 6 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index e944295c..d45c9b0b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2007-02-09  Bruno JOFRET  <bruno.jofret@inria.fr>
+
+	* src/elementaryFunctions/cexps.c :
+	Implementation.
+	* src/elementaryFunctions/zexps.c :
+	Implementation.
+
 2007-02-08  Bruno JOFRET  <bruno.jofret@inria.fr>
 
 	* src/auxiliaryFunctions/sign :
diff --git a/src/elementaryFunctions/exp/cexps.c b/src/elementaryFunctions/exp/cexps.c
index 23863f4d..13b839aa 100644
--- a/src/elementaryFunctions/exp/cexps.c
+++ b/src/elementaryFunctions/exp/cexps.c
@@ -5,14 +5,21 @@
 ** Made by  Bruno JOFRET <bruno.jofret@inria.fr>
 **
 ** Started on  Thu Dec  7 12:04:28 2006 jofret
-** Last update Wed Jan 31 11:13:43 2007 jofret
+** Last update Fri Feb  9 17:00:38 2007 jofret
 **
 ** Copyright INRIA 2006
 */
 
 #include "floatComplex.h"
 
+float	sexps(float);
+float	scoss(float);
+float	ssins(float);
+
 floatComplex		cexps(floatComplex z) {
-  /* FIXME: Dummy... */
-  return z;
+  float real = creal(z);
+  float imag = cimag(z);
+
+  return FloatComplex(sexps(real)*scoss(imag),
+		      sexps(real)*ssins(imag));
 }
diff --git a/src/elementaryFunctions/exp/zexps.c b/src/elementaryFunctions/exp/zexps.c
index 5ee39ac9..fac6746d 100644
--- a/src/elementaryFunctions/exp/zexps.c
+++ b/src/elementaryFunctions/exp/zexps.c
@@ -5,14 +5,21 @@
 ** Made by  Bruno JOFRET <bruno.jofret@inria.fr>
 **
 ** Started on  Thu Dec  7 12:05:48 2006 jofret
-** Last update Wed Jan 31 11:13:19 2007 jofret
+** Last update Fri Feb  9 17:01:19 2007 jofret
 **
 ** Copyright INRIA 2006
 */
 
 #include "doubleComplex.h"
 
+double	dexps(double);
+double	dcoss(double);
+double	dsins(double);
+
 doubleComplex		zexps(doubleComplex z) {
-  /* FIXME: Dummy... */
-  return (DoubleComplex(0,1));
+  double real = creal(z);
+  double imag = cimag(z);
+
+  return DoubleComplex(dexps(real)*dcoss(imag),
+		      dexps(real)*dsins(imag));
 }
-- 
cgit