R/sph2cart.R

In eggs: Distances and areas on the surface of an egg

sph2cart = function(sph) {
  # Convert spherical (egg) coordinates to Cartesian coordinates
  r = sph[1]
  theta = sph[2]
  phi = sph[3]
  x = r*cos(theta)*sin(phi)
  y = r*sin(theta)*sin(phi)
  z = r*cos(phi)
  return (c(x, y, z))
}