Flute acoustics: measurement, modelling and design - School of ...

APPENDIX B. PROGRAM LISTINGS 229
/*
Complex.h
By Andrew Botros, 2000-2004
Listing B.8: Complex.h
Hyperbolic trig fns and expz added by Paul Dickens, 2005
Complex arithmetic library.
*/
#ifndef COMPLEX_H_PROTECTOR
#define COMPLEX_H_PROTECTOR
/* complex: { Re(z), Im(z) } */
typedef struct complex_str {
double Re;
double Im;
} complex;
/* externally defined complex numbers zero, one, j and inf for
convenience */
extern complex zero;
extern complex one;
extern complex j;
extern complex inf;
double modz(complex z);
/*
Parameters:
z: given complex number.
Returns:
|z| ... Modulus of z
*/
double argz(complex z);
/*
Parameters:
z: given complex number.
Returns:
arg z ... Principal arg of z
*/
int equalz(complex z1, complex z2);
/*
Parameters:
z1: given complex number.
z2: given complex number.
Returns:
1 if z1 equals z2, 0 otherwise.
*/
complex real(double x);
/*
Parameters:
x: given double.