Skip to contents

Inertia tensor

Source: R/ortensor.R
inertia.Rd

Inertia tensor

Usage

# S3 method for class 'spherical'
inertia_tensor(x, w = NULL)

inertia_tensor(x, w = NULL)

Arguments

x

Object of class "Vec3", "Line" or "Plane"

w

numeric. weightings

Value

3 x 3 matrix

Details

$$D = n - (x_i, y_i, z_i) (x_i, y_i, z_i)^T$$

See also

ortensor()

Examples

set.seed(20250411)
x <- rfb(100, mu = Line(120, 50), k = 1, A = diag(c(10, 0, 0)))
inertia_tensor(x)
#>           [,1]      [,2]      [,3]
#> [1,]  90.10709 112.76657 104.97774
#> [2,] 112.76657  60.84162  98.87154
#> [3,] 104.97774  98.87154  49.05128