Learn R Programming

hydraulics (version 0.7.0)

systemcurve: 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"))

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

Arguments

hs

Numeric value of the static head [\(m\) or \(ft\)]

K

Numeric value of the coefficient in the equation \(h = hs + {K}{Q}^2\) where Q has units of \(m^3 s^{-1}\) or \(ft^3 s^{-1}\)

units

character vector that contains the system of units [options are SI for International System of Units and Eng for English (US customary) units.

Author

Ed Maurer

Examples

Run this code

#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")

Run the code above in your browser using DataLab