Generate points in the torus
This function generates n random points within the torus whose minor radius is r, major radius is R and center is ct.
rtorus(n, r, R, ct = c(0, 0, 0), rotx = NULL)
n |
Number of observations. |
r |
Minor radius (radius of the tube). |
R |
Major radius (distance from the center of the tube to the center of the torus). |
ct |
A vector with the coordinates of the center of the torus. |
rotx |
If not NULL, a rotation through an angle |
T1 <- rtorus(2000, 0.5, 2.5) rgl.bbox() rgl.points(T1, col = 4) T2 <- rtorus(2000, 0.5, 2.5, ct = c(2, 0, 0.5), rotx = pi/2) rgl.points(T2, col = 2)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.