R/zeta_vaule.R

In ratral/hyd4gpv: General Purpose Valve functions

#' @title  Resistance Coefficient Zeta in function of Kv
#' @description Pressure drop or head loss is proportional to the velocity
#' in valves or fittings. For the most engineering practices it can be assumed
#' that pressure drop or head loss due to flow of fluids in turbulent range
#' through valves and fittings is proportional to square of velocity.
#' @author Dr. Raúl Trujillo Álvarez
#' @param kv Kv Flow coefficient in m³/h
#' @param dn diameter in millimeter (mm)
#' @return Zeta Vaule
#' @export
#' @examples
#' zeta_vaule( dn = 500, kv = 7247.229)
#'
zeta_vaule  <- function(dn, kv){
  zeta <- (1/626.3)*((dn)^2/kv)^2
  return(zeta)
}