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