systemcurve {hydraulics} | R Documentation |
Creates a system curve for a piping system using the static head and a coefficient.
Description
Creates a system curve for a piping system using the static head and a coefficient.
Usage
systemcurve(hs = NULL, K = NULL, units = c("SI", "Eng"))
Arguments
hs |
Numeric value of the static head [ |
K |
Numeric value of the coefficient in the equation |
units |
character vector that contains the system of units [options are
|
Value
Returns an object of class systemcurve
consisting of a list including:
curve - a function defining the system curve
eqn - a character vector of the equation for the curve
units - the units system passed to the function
Author(s)
Ed Maurer
Examples
#Input in Eng units. Coefficient can be calculated manually or using
#other package functions for friction loss in a pipe system using \eqn{Q=1}
ans <- darcyweisbach(Q = 1,D = 20/12, L = 3884, ks = 0.0005, nu = 1.23e-5, units = "Eng")
systemcurve(hs = 30, K = ans$hf, units = "Eng")
[Package hydraulics version 0.7.0 Index]