R/dp_max.R

In ratral/hyd4gpv: General Purpose Valve functions

#' @title Differential pressure maximum between upstream and downstream pressure
#' @param p1 Gauge upstream pressure
#' @param fl liquid pressure recovery factor
#' @param kv Flow coefficient value in (m3/h).
#' @param dn valve diameter (mm).
#' @param d1 downstream pipe diameter (mm).
#' @param d2 upstream pipe diameter (mm).
#' @param masl meters above sea level (m).
#' @param temp The temperature is in Celsius.
#' @return DPmax (bar)
#'
#' @export
#'
dp_max <- function(p1, fl, kv, dn, d1, d2, masl, temp){
  p1 = p1 + atm_pressure(masl)
  flp_value <-  flp(kv, fl, dn, d1, d2)
  fp_value  <-  fp(kv, dn, d1, d2)
  ff_value <- ff(temp)
  dp <- (flp_value/fp_value)^2 *(p1 - ff_value * vapour_pressure(temp))
  return(dp)
}