powered by
Sampling on a hemisphere according to the Phong density (dimension 3).
rphong_on_hemisphere(n, alpha = 0, r = 1)
The simulations in a n times 3 matrix.
n
3
number of simulations
parameter of the Phong density, a positive number; 0 for uniform sampling (default)
0
radius
if (FALSE) { library(rgl) sims <- rphong_on_hemisphere(400, alpha = 10) spheres3d(0, 0, 0, color = "red", alpha = 0.5) points3d(sims)}
Run the code above in your browser using DataLab