inst/gyrodemos/strangeConvexHull.R
In stla/gyro: Hyperbolic Geometry
library(gyro)
pt <- function(x){
c(
sin(x) * cos(2 * x),
sin(x) * sin(2 * x),
cos(x)
)
}
pts <- t(vapply(seq(0, pi, length.out = 50), pt, numeric(3L)))
open3d(windowRect = c(50, 50, 562, 562))
view3d(zoom = 0.9)
plotGyrohull3d(pts, s = 0.8, tubesRadius = 0.02, spheresRadius = 0.04)
stla/gyro documentation built on Nov. 4, 2023, 1 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
library(gyro)
pt <- function(x){
c(
sin(x) * cos(2 * x),
sin(x) * sin(2 * x),
cos(x)
)
}
pts <- t(vapply(seq(0, pi, length.out = 50), pt, numeric(3L)))
open3d(windowRect = c(50, 50, 562, 562))
view3d(zoom = 0.9)
plotGyrohull3d(pts, s = 0.8, tubesRadius = 0.02, spheresRadius = 0.04)
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.