X-Git-Url: http://nsz.repo.hu/git/?p=libm;a=blobdiff_plain;f=src%2Fcmath%2Fccos.c;h=5754c23828e6194b796a004a1709f3d04de97342;hp=9757e6a91c5cbbdb161a312ac804f131d506e845;hb=HEAD;hpb=1eb8d023d8b5c286908af676cb405a2ba598d286 diff --git a/src/cmath/ccos.c b/src/cmath/ccos.c index 9757e6a..5754c23 100644 --- a/src/cmath/ccos.c +++ b/src/cmath/ccos.c @@ -1,5 +1,7 @@ #include "libm.h" +/* cos(z) = cosh(i z) */ + double complex ccos(double complex z) { return ccosh(cpack(-cimag(z), creal(z)));