1 2 3 4 5 6 7
#include "libm.h" float complex ctanf(float complex z) { z = ctanhf(cpackf(-cimagf(z), crealf(z))); return cpackf(cimagf(z), -crealf(z)); }