diff options
Diffstat (limited to 'src/elementaryFunctions/asinh/dasinhs.c')
| -rw-r--r-- | src/elementaryFunctions/asinh/dasinhs.c | 29 |
1 files changed, 17 insertions, 12 deletions
diff --git a/src/elementaryFunctions/asinh/dasinhs.c b/src/elementaryFunctions/asinh/dasinhs.c index 1d55e721..90caa466 100644 --- a/src/elementaryFunctions/asinh/dasinhs.c +++ b/src/elementaryFunctions/asinh/dasinhs.c @@ -1,19 +1,24 @@ /* -** -*- C -*- -** -** dasinhs.c -** Made by Bruno JOFRET <bruno.jofret@inria.fr> -** -** Started on Fri Jan 5 10:26:21 2007 jofret -** Last update Thu Sep 6 11:21:22 2007 bruno -** -** Copyright INRIA 2007 -*/ + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2007-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 asinh(z) = -i asin(i z) +// In real case asinh(z) = imag(asin(i z)) +// -#include <math.h> #include "asinh.h" +#include "asin.h" double dasinhs(double x) { - return (asinh(x)); + return zimags(zasins(DoubleComplex(0.0, x))); } |