1570af302Sopenharmony_ci#include "complex_impl.h"
2570af302Sopenharmony_ci
3570af302Sopenharmony_ci/* tan(z) = -i tanh(i z) */
4570af302Sopenharmony_ci
5570af302Sopenharmony_cidouble complex ctan(double complex z)
6570af302Sopenharmony_ci{
7570af302Sopenharmony_ci	z = ctanh(CMPLX(-cimag(z), creal(z)));
8570af302Sopenharmony_ci	return CMPLX(cimag(z), -creal(z));
9570af302Sopenharmony_ci}
10