2
* This file has no copyright assigned and is placed in the Public Domain.
3
* This file is part of the w64 mingw-runtime package.
4
* No warranty is given; refer to the file DISCLAIMER.PD within this package.
7
Contributed by Danny Smith
15
/* csinh (x + I * y) = sinh (x) * cos (y)
16
+ I * (cosh (x) * sin (y)) */
19
float complex csinhf (float complex Z)
22
__real__ Res = sinhf (__real__ Z) * cosf (__imag__ Z);
23
__imag__ Res = coshf (__real__ Z) * sinf (__imag__ Z);
2
* This file has no copyright assigned and is placed in the Public Domain.
3
* This file is part of the w64 mingw-runtime package.
4
* No warranty is given; refer to the file DISCLAIMER.PD within this package.
7
Contributed by Danny Smith
15
/* csinh (x + I * y) = sinh (x) * cos (y)
16
+ I * (cosh (x) * sin (y)) */
19
float complex csinhf (float complex Z)
22
__real__ Res = sinhf (__real__ Z) * cosf (__imag__ Z);
23
__imag__ Res = coshf (__real__ Z) * sinf (__imag__ Z);