R/celerity.R

In lorentz: The Lorentz Transform in Relativistic Physics

Defines functions `vel_to_cel` `cel_to_vel`

`cel_to_vel` <- function(x){
  x <- unclass(x)
  sweep(x,1,sqrt(1+rowSums(x^2)/sol()^2),"/")
}

`vel_to_cel` <- function(x){
  out <- as.4vel(x)
  as.3cel(unclass(out)[,-1])
}

Try the lorentz package in your browser