C++ (Cpp) gsl_sf_rect_to_polar Examples

Example #1

File: spop_translation.c Project: jincun108/ruphy

static gsl_complex translate(double r, double theta, double phi,
		void *op_params, spwf_func func, void *wf_params)
{
	trnsl_params *params = op_params;
	double x,y,z;
	x = r * sin(theta) * cos(phi) + params->dx;
	y = r * sin(theta) * sin(phi) + params->dy;
	z = r * cos(theta)            + params->dz;
	r = sqrt(gsl_pow_2(x) + gsl_pow_2(y) + gsl_pow_2(z));
	theta = acos(z/r);
	gsl_sf_result r_res;
	gsl_sf_result theta_res;
	gsl_sf_rect_to_polar(x, y, &r_res, &theta_res);
	phi = theta_res.val;

	return func(r, theta, phi, wf_params);
}

Example #2

File: mlgsl_sf.c Project: ryanrhymes/gsl-ocaml

CAMLprim value ml_gsl_sf_rect_to_polar(value x, value y)
{
  gsl_sf_result r, theta;
  gsl_sf_rect_to_polar(Double_val(x), Double_val(y), &r, &theta);
  return val_of_result_pair (&r, &theta);
}