R/flow_Kv.R

In ratral/hyd4gpv: General Purpose Valve functions

#' @title flow in function of the flow coefficient Kv
#' @param p1  Inlet Gauge pressure (bar).
#' @param p2  Outlet Gauge pressure (bar).
#' @param kv Flow coefficient in (m³/h).
#' @param temp temperature is in Celsius.
#' @return flow in (m³/h).
#' @export
#'
flow_Kv <- function(p1, p2, kv, temp){
  r_density =  water_density(temp)/water_density(15.6);
  flow = kv/sqrt(r_density/(p1-p2));
  return(flow);
}