R/xy2uv.R

xy2uv <- function(xy) {
  u = 4 * xy[1]/(-2 * xy[1] + 12 * xy[2] + 3)
  v = 9 * xy[2]/(-2 * xy[1] + 12 * xy[2] + 3)
  c(u, v)
}
emkayoh/Colour documentation built on May 16, 2019, 5:09 a.m.