X-Git-Url: http://nsz.repo.hu/git/?p=libm;a=blobdiff_plain;f=src%2Fcmath%2Fccos.c;fp=src%2Fcmath%2Fccos.c;h=5754c23828e6194b796a004a1709f3d04de97342;hp=9757e6a91c5cbbdb161a312ac804f131d506e845;hb=5718e964d8a5c273a91b4d86d16926f54151c58f;hpb=1305df184d9d04274ce170864c92af8cbeae23e2 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)));