R/velocity.R

In ratral/hyd4gpv: General Purpose Valve functions

#' @title  Velocity in a pipe
#'
#' @description This function calculates the velocity of the fluid in a
#'   circular pipe.
#'
#' @author Dr. Raúl Trujillo Álvarez \email{dr.ing.trujillo@gmail.com}
#'
#' @param flow cubic meter per second (m³/s)
#' @param dn diameter in meter (m)
#'
#' @return velocity in meter per second (m/s)
#' @export
#'
#' @examples
#' velocity(flow = 0.4, dn = 0.2)

velocity <- function(flow, dn){
  velocity <- flow/((pi*dn^2)/4)
  return(velocity)
}