Mercurial > mxe-octave
view src/build-msvctools/compat/csinf.c @ 7255:f77eb2eda6b2 default tip @
* src/llvm.mk: update to v18.1.7
author | John Donoghue <john.donoghue@ieee.org> |
---|---|
date | Sun, 16 Jun 2024 14:05:14 -0400 |
parents | f8299bb6c872 |
children |
line wrap: on
line source
/* csinf.c */ /* Contributed by Danny Smith 2004-12-24 */ #include <math.h> #include <complex.h> /* csin (x + I * y) = sin (x) * cosh (y) + I * (cos (x) * sinh (y)) */ float complex csinf (float complex Z) { float complex Res; __real__ Res = sinf (__real__ Z) * coshf ( __imag__ Z); __imag__ Res = cosf (__real__ Z) * sinhf ( __imag__ Z); return Res; }