Logo Search packages:      
Sourcecode: r-cran-mapproj version File versions  Download package

ccubrt.c

/* RSB #include <u.h>
#include <libc.h>*/
#include "map.h"

void
ccubrt(double zr, double zi, double *wr, double *wi)
{
      double r, theta;
      theta = atan2(zi,zr);
      r = cubrt(hypot(zr,zi));
      *wr = r*cos(theta/3);
      *wi = r*sin(theta/3);
}

Generated by  Doxygen 1.6.0   Back to index