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