Meg's Mirrors

zig

1	#include "complex_impl.h"
2
3	// FIXME
4
5	/* log(z) = log(|z|) + i arg(z) */
6
7	double complex clog(double complex z)
8	{
9	double r, phi;
10
11	r = cabs(z);
12	phi = carg(z);
13	return CMPLX(log(r), phi);
14	}