ell3d {gellipsoid} | R Documentation |
Plot Generalized Ellipsoids in 3D using rgl
Description
ell3d
is a convenience wrapper for ellipsoid
specialized for class "gell"
objects. It plots an
ellipsoid in the current rgl window.
Usage
ell3d(x, ...)
## Default S3 method:
ell3d(x, shape, radius = 1, segments = 40, shade = TRUE, wire = FALSE, ...)
## S3 method for class 'gell'
ell3d(
x,
length = 10,
sides = 30,
segments = 40,
shade = TRUE,
wire = FALSE,
...
)
Arguments
x |
A vector of length 3 giving the center of the ellipsoid for the
default method, or a class |
... |
Other arguments, passed to |
shape |
A 3 x 3 symmetric matrix giving the shape of the ellipsoid. |
radius |
radius of the ellipsoid |
segments |
number of segments in each direction in calculating the
|
shade |
Logical. Whether the 3D ellipsoid should be shaded |
wire |
Logical. Whether the 3D ellipsoid should be rendered with its wire frame |
length |
For unbounded, (infinite) ellipsoids, the length to display for infinite dimensions |
sides |
For unbounded, cylindrical ellipsoids, the number of sides for the elliptical cross sections |
Value
Returns the result of the call to ellipsoid
Note
This implementation is subject to change.
Author(s)
Georges Monette
See Also
Examples
# a proper ellipsoid, and its inverse
c1 <- c(0,0,0)
C1 <- matrix(c(6, 2, 1,
2, 3, 2,
1, 2, 2), 3,3)
open3d()
zell1 <- gell(center=c1, Sigma=C1)
E1 <- ell3d(zell1, col="blue", alpha=0.1)
# inverse of C1
E1I <- ell3d(dual(zell1), col="blue", alpha=0.1, wire=TRUE)
#open3d() ## to see this in a new window
# a singular ellipsoid and its inverse
c2 <- c1
C2 <- matrix(c(6, 2, 0,
2, 3, 0,
0, 0, 0), 3,3)
E2 <- ell3d( zell2 <-gell( center = c2, Sigma = C2),
col = 'red', alpha = 0.25, wire = TRUE)
E2I <- ell3d( dual(gell( center = c2, Sigma = C2)),
length=3, col = 'red', alpha = 0.25, wire = TRUE )
# signatures
signature(zell1)
signature(zell2)