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