R/kinematic_viscosity.R

In ratral/hyd4gpv: General Purpose Valve functions

#' @title Kinematic Viscosity
#' @description Kinematic viscosity is the ratio of - absolute (or dynamic) viscosity
#' to density - a quantity in which no force is involved.
#' The kinematic viscosity is simply the dynamic viscosity divided by the fluid density.
#' @author Dr. Raúl Trujillo Álvarez \email{dr.ing.trujillo@gmail.com}
#' @param temp  is in °C
#' @return Kinematic Viscosity in (m2/s)*1e-6
#' @export
#' @examples
#' kinematic_viscosity(14.5)
#'
kinematic_viscosity <- function(temp = 20){
  stopifnot("The temperature must be between 3C and 60C !" = dplyr::between(temp, 3, 90))
  k_viscosity <- dynamic_viscosity(temp)/(water_density(temp)/1000)
  return(k_viscosity)
}