1 /* 2 * "@(#)c_cos.c 1.1" 3 */ 4 5 #include "complex" 6 7 c_cos(r, z) 8 complex *r, *z; 9 { 10 double sin(), cos(), sinh(), cosh(); 11 12 r->real = cos(z->real) * cosh(z->imag); 13 r->imag = - sin(z->real) * sinh(z->imag); 14 } 15