R/flp.R

In ratral/hyd4gpv: General Purpose Valve functions

#' @title Flp Combined liquid pressure recovery factor
#' @description When a valve is installed with reducers or other attached
#' fittings, the liquid pressure recovery of the valve-fitting combination is
#' not the same as that for the valve alone. For calculations involving choked
#' flow, it is convenient to treat the piping geometry factor (fp) and the fl
#' factor for the valve-fitting combination as a single factor, flp.
#' @param kv Flow coefficient in m3/h
#' @param fl Liquid pressure recovery factor of a control valve without attached fittings
#' @param dn diameter in millimeter (mm).
#' @param d1 Inlet diameter reducer only in millimeter (mm).
#' @param d2 Outlet diameter increase only in millimeter (mm).
#' @return Product of the liquid pressure recovery factor of a valve with
#' attached fittings (no symbol has been identified) and the piping geometry
#' factor, dimensionless.
#' @export
#' @examples
#' flp(kv = 7247.229, fl = 0.9, dn =0.5, d1 = 0.6, d2 = 0.6)
#'
flp <- function(kv, fl, dn, d1, d2){
  rc <- resistance_coefficient(dn, d1, d2)
  return(fl / sqrt(1+(rc*(kv/dn^2)^2)*(fl^2)/0.0016))
}