polar.c
Click here to get the file
Size
1 kB
-
File type
text/x-csrc
File contents
/* @(#) polar.c 1.2 1/27/86 17:47:40 */
/*ident "@(#)cfront:lib/complex/polar.c 1.2"*/
#include "complex.h"
complex
polar(double r, double theta)
{
return complex(r * cos(theta), r * sin(theta) );
}