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