powered by
azel.to.sphere.colattitude(r, r0)
alpha
theta
psi
lambda
r0 <- cbind(alpha=0, theta=0) r <- rbind(r0, r0+c(1,0), r0-c(1,0), r0+c(0,1), r0-c(0,1)) azel.to.sphere.colattitude(r, r0)
Run the code above in your browser using DataLab