diff options
| author | Ankit Raj | 2017-06-21 10:26:59 +0530 |
|---|---|---|
| committer | Ankit Raj | 2017-06-21 10:26:59 +0530 |
| commit | 958577cac90a99124cd673fde1926781d966d91f (patch) | |
| tree | 134d9fe7f5b97a647cb055bb7b4c21820a749f49 /src/c/elementaryFunctions/atanh/zatanhs.c | |
| download | scilab2c-958577cac90a99124cd673fde1926781d966d91f.tar.gz scilab2c-958577cac90a99124cd673fde1926781d966d91f.tar.bz2 scilab2c-958577cac90a99124cd673fde1926781d966d91f.zip | |
Updated Scilab2C
Diffstat (limited to 'src/c/elementaryFunctions/atanh/zatanhs.c')
| -rw-r--r-- | src/c/elementaryFunctions/atanh/zatanhs.c | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/src/c/elementaryFunctions/atanh/zatanhs.c b/src/c/elementaryFunctions/atanh/zatanhs.c new file mode 100644 index 00000000..7fb81126 --- /dev/null +++ b/src/c/elementaryFunctions/atanh/zatanhs.c @@ -0,0 +1,25 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Bruno JOFRET + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt + * + */ + +/* +// METHOD +// based on the formula atanh(z) = i atan(-i z) +*/ + +#include "atanh.h" +#include "atan.h" + +doubleComplex zatanhs(doubleComplex z) { + doubleComplex minus_i_z = DoubleComplex(zimags(z), -zreals(z)); + doubleComplex atan_minus_i_z = zatans(minus_i_z); + return DoubleComplex(-zimags(atan_minus_i_z), zreals(atan_minus_i_z)); +} |