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)
Number of observations.
Minor radius (radius of the tube).
Major radius (distance from the center of the tube to the center of the torus).
A vector with the coordinates of the center of the torus.
If not NULL, a rotation through an angle rotx (in radians) about the \(x\)-axis is performed.
rotx
# NOT RUN { 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) # }
Run the code above in your browser using DataLab