15 lines
190 B
C
Vendored
15 lines
190 B
C
Vendored
#include "complex_impl.h"
|
|
|
|
// FIXME
|
|
|
|
/* log(z) = log(|z|) + i arg(z) */
|
|
|
|
double complex clog(double complex z)
|
|
{
|
|
double r, phi;
|
|
|
|
r = cabs(z);
|
|
phi = carg(z);
|
|
return CMPLX(log(r), phi);
|
|
}
|