Convert warp speed to meters/second

Warp equivalent

warp_equivalent <- function(warpfactor, originalseries = FALSE) {
  if (originalseries == TRUE) {
    v <- (warpfactor^3) * 299792458 # speed of light -- 299792458 m/s
  } else if (originalseries == FALSE) {
    if (warpfactor > 9.0 & warpfactor <= 10.0) {
      x <- -0.5 * log10(10 - warpfactor) 
    } else {
      x <- 0
    }
    v <- (warpfactor^((10/3) + x)) * 299792458
  }
  v
}

# see http://www.anycalculator.com/warpcalculator.htm for formula