R/EllipAxes.R

Defines functions EllipAxes

Documented in EllipAxes

EllipAxes <-
function(es, nu){
  y <- exp(1)^((es * nu * sqrt(6)) / (3 * sqrt(nu^2 + 3)))
  if(y != 1){
    x <- exp(1)^((log(y) * (3 - nu)) / (2 * nu))
    z <- exp(1)^((log(y) * (3 + nu)) / (-2 * nu))
  } else{
    x <- exp(1)^((es) / (sqrt(2)))
z <- 1 / x
  }
  return(c(x, y, z))
}

Try the RockFab package in your browser

Any scripts or data that you put into this service are public.

RockFab documentation built on May 29, 2017, 10:33 p.m.