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