amath  1.8.5
Simple command line calculator
ccosh.c
Go to the documentation of this file.
1 /*-
2  * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
3  * Copyright (c) 2007 The NetBSD Foundation, Inc.
4  * All rights reserved.
5  *
6  * This code is derived from software written by Stephen L. Moshier.
7  * It is redistributed by the NetBSD Foundation by permission of the author.
8  *
9  * Redistribution and use in source and binary forms, with or without
10  * modification, are permitted provided that the following conditions
11  * are met:
12  * 1. Redistributions of source code must retain the above copyright
13  * notice, this list of conditions and the following disclaimer.
14  * 2. Redistributions in binary form must reproduce the above copyright
15  * notice, this list of conditions and the following disclaimer in the
16  * documentation and/or other materials provided with the distribution.
17  *
18  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
19  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
20  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
21  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
22  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
23  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
24  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
25  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
26  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
27  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
28  *
29  * The original source code can be obtained from:
30  * http://cvsweb.netbsd.org/bsdweb.cgi/src/lib/libm/complex/ccosh.c?rev=1.1
31  *
32  * Project homepage:
33  * https://amath.innolan.net
34  *
35  */
36 
37 #include "prim.h"
38 
39 /**
40  * @brief Hyperbolic cosine of a complex number
41  * @details
42  * <pre>
43  * a+bi
44  * real = cosh(a) * cos(b)
45  * imag = sinh(a) * sin(b)
46  * </pre>
47  */
48 complex ccosh(complex z)
49 {
50  complex w;
51  double a, b;
52  double ch, sh;
53 
54  a = creal(z);
55  b = cimag(z);
56  cchsh(a, &ch, &sh);
57  w = cpack(cos(b) * ch, sin(b) * sh);
58 
59  return w;
60 }
double cos(double x)
Cosine function.
Definition: cos.c:87
double creal(complex z)
Real part of complex number.
Definition: prim.c:38
complex ccosh(complex z)
Hyperbolic cosine of a complex number.
Definition: ccosh.c:48
complex cpack(double x, double y)
Pack two real numbers into a complex number.
Definition: prim.c:68
double cimag(complex z)
Imaginary part of complex number.
Definition: prim.c:46
double sin(double x)
Sine function.
Definition: sin.c:86
void cchsh(double x, double *c, double *s)
Calculate cosh and sinh.
Definition: prim.c:197