Mercurial > mxe-octave
view src/build-msvctools/compat/csin.c @ 5339:25a483af6aa7
* src/build-cmake.mk, src/cmake.mk: update to v3.16.5
author | John Donoghue |
---|---|
date | Thu, 05 Mar 2020 12:55:24 -0500 |
parents | f8299bb6c872 |
children |
line wrap: on
line source
/* csin.c */ /* Contributed by Danny Smith 2003-10-20 */ #include <math.h> #include <complex.h> /* csin (x + I * y) = sin (x) * cosh (y) + I * (cos (x) * sinh (y)) */ double complex csin (double complex Z) { double complex Res; __real__ Res = sin (__real__ Z) * cosh ( __imag__ Z); __imag__ Res = cos (__real__ Z) * sinh ( __imag__ Z); return Res; }