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