R/ITed3.R

In pablorcw/pwind: Package for wind energy

#' ITed3
#'
#' Turbulence intensity according to IEC 61400-1 Ed.3 2005
#'
#' IEC 61400-1 Wind turbine generator systems. Part 1: Safety requirements.
#' Second Edition 2005-08
#'
#' @param ws wind speed at the hub height (m/s)
#' @param wtc wind turbine class,
#' @param wtc = "A" - class designates the category for higher turbulence characteristic,
#' @param wtc = "B" - class designates the category for lower turbulence characteristic
#' @param wtc = "C" - class designates the category for lower turbulence characteristic
#'
#' @return Function returns turublence intensity
#' @export
#'
#' @examples ws(ws = 4, wtc = "A")
#' @examples ws()
#'
ITed3 <- function(ws = 4, wtc ="A") {
  IT <- tsd.sigma1.ed3(ws,wtc)/ws
  return(IT)
}