April 2024 | ||||||
Mo | Tu | We | Th | Fr | Sa | Su |
1 | 2 | 3 | 4 | 5 | 6 | 7 |
8 | 9 | 10 | 11 | 12 | 13 | 14 |
15 | 16 | 17 | 18 | 19 | 20 | 21 |
22 | 23 | 24 | 25 | 26 | 27 | 28 |
29 | 30 | 1 | 2 | 3 | 4 | 5 |
6 | 7 | 8 | 9 | 10 | 11 | 12 |
double complex catan(double complex z);
float complex catanf(float complex z);
long double complex catanl(long double complex z);
One has:
catan(z) = (clog(1 + i * z) - clog(1 - i * z)) / (2 * i)
/* Link with "-lm" */ #include <complex.h> #include <stdlib.h> #include <unistd.h> #include <stdio.h> int main(int argc, char *argv[]) { double complex z, c, f; double complex i = I; if (argc != 3) { fprintf(stderr, "Usage: %s <real> <imag>\n", argv[0]); exit(EXIT_FAILURE); } z = atof(argv[1]) + atof(argv[2]) * I; c = catan(z); printf("catan() = %6.3f %6.3f*i\n", creal(c), cimag(c)); f = (clog(1 + i * z) - clog(1 - i * z)) / (2 * i); printf("formula = %6.3f %6.3f*i\n", creal(f2), cimag(f2)); exit(EXIT_SUCCESS); }