R/sigma_mv.R

In ratral/hyd4gpv: General Purpose Valve functions

#' @title Maximum Vibration Cavitation
#'
#' @description The level of cavitation associated with peak vibration
#' measurements.
#' - Highest vibration amplitude: sounds like “marbles” or “gravel”
#'  - Vigorous, large scale cavitation
#'  - Predicted by steady flow pressure distribution (=Fl)
#'  - Very high damage potential
#'
#' @param x valve position
#' @param b steepness
#' @param d upper value
#' @param e the effective dose
#' @param fls liquid pressure recovery full open (max between fl and Flp/Fp)
#'
#' @return Sigma_mv
#' @export
#'
sigma_mv <- function(x, b, d, e, fls){
  kv_kvs <- drm_LL3(x, b, d, e)
  return( (1/(fls^2) - 1) * kv_kvs )
}