diff options
| author | jofret | 2008-05-20 15:00:41 +0000 |
|---|---|---|
| committer | jofret | 2008-05-20 15:00:41 +0000 |
| commit | 4887092b4731a40a970cfd0f867287e45db06955 (patch) | |
| tree | 32b4e340fae8a9f14a8f0607c8fdb6a88cb7adf3 /src/elementaryFunctions/atanh/catanhs.c | |
| parent | 5e0af9bec2fcb724a8433910c8d665601d082e1f (diff) | |
| download | scilab2c-4887092b4731a40a970cfd0f867287e45db06955.tar.gz scilab2c-4887092b4731a40a970cfd0f867287e45db06955.tar.bz2 scilab2c-4887092b4731a40a970cfd0f867287e45db06955.zip | |
* Adding atanh Algorithm
* Update file License
* Need some tests improvement
Diffstat (limited to 'src/elementaryFunctions/atanh/catanhs.c')
| -rw-r--r-- | src/elementaryFunctions/atanh/catanhs.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/elementaryFunctions/atanh/catanhs.c b/src/elementaryFunctions/atanh/catanhs.c index 92af66b3..8c975154 100644 --- a/src/elementaryFunctions/atanh/catanhs.c +++ b/src/elementaryFunctions/atanh/catanhs.c @@ -11,8 +11,10 @@ */ #include "atanh.h" +#include "atan.h" floatComplex catanhs(floatComplex z) { - /* FIXME : Let's code... */ - return z; + floatComplex minus_i_z = FloatComplex(cimags(z), -creals(z)); + floatComplex atan_minus_i_z = catans(minus_i_z); + return FloatComplex(-cimags(atan_minus_i_z), creals(atan_minus_i_z)); } |