Mercurial > mxe-octave
view src/build-msvctools/compat/cexp.c @ 7207:9ed6500e56d3 default tip @
maint: Merge release to default.
author | Markus Mützel <markus.muetzel@gmx.de> |
---|---|
date | Fri, 17 May 2024 20:16:41 +0200 |
parents | f8299bb6c872 |
children |
line wrap: on
line source
/* cexp.c Contributed by Danny Smith 2003-10-20 */ #include <math.h> #include <complex.h> /* cexp (x + I * y) = exp (x) * cos (y) + I * exp (x) * sin (y) */ double complex cexp (double complex Z) { double complex Res; long double rho = exp (__real__ Z); __real__ Res = rho * cos(__imag__ Z); __imag__ Res = rho * sin(__imag__ Z); return Res; }