mirror of https://github.com/mkerrisk/man-pages
catan.3: Add example program
Signed-off-by: Michael Kerrisk <mtk.manpages@gmail.com>
This commit is contained in:
parent
8b57a223ab
commit
c05ed63add
32
man3/catan.3
32
man3/catan.3
|
@ -1,4 +1,5 @@
|
|||
.\" Copyright 2002 Walter Harms (walter.harms@informatik.uni-oldenburg.de)
|
||||
.\" and Copyright (C) 2011 Michael Kerrisk <mtk.manpages@gamil.com>
|
||||
.\" Distributed under GPL
|
||||
.\"
|
||||
.TH CATAN 3 2011-09-15 "" "Linux Programmer's Manual"
|
||||
|
@ -31,6 +32,37 @@ One has:
|
|||
These functions first appeared in glibc in version 2.1.
|
||||
.SH "CONFORMING TO"
|
||||
C99.
|
||||
.SH EXAMPLE
|
||||
.nf
|
||||
/* 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);
|
||||
}
|
||||
.fi
|
||||
.SH "SEE ALSO"
|
||||
.BR ccos (3),
|
||||
.BR clog (3),
|
||||
|
|
Loading…
Reference in New Issue