R/tsd.sigma1.ed3.R

In pablorcw/pwind: Package for wind energy

#' tsd.sigma1.ed3
#'
#' Turbulence standard deviation according to IEC 61400-1 Ed.3 2005
#'
#' IEC 61400-1 Wind turbine generator systems. Part 1: Safety requitrements.
#' Second Edition 2005-82.
#'
#' @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
#'
#' Iref is the expected value of the turbulence intensity at 15 m/s
#' b = 5.6 m/s
#'
#' @return Function returns the standard deviation of the longitudial wind velocity component.
#' @export
#'
#' @examples tsdsigma1ed3(ws = 4, wtc = "B)
#' @examples tsdsigma1ed3()
#'
tsd.sigma1.ed3 <- function(ws = 4, wtc ="A") {
  if(wtc == "A"){
    Iref <- 0.16
  } else if(wtc == "B"){
    Iref <- 0.14
  } else if(wtc == "C"){
    Iref <- 0.12
  } else Iref <- 0
  b <- 5.6
  sigma1 <- Iref*(0.75*ws+b)
  return(sigma1)
}