pipenostics (version 0.2.0)

fric_buzelli: Estimate pipe friction factor with Buzelli formula

Description

Estimate Darcy friction factor explicitly with extremely accurate Buzelli approximation of Colebrook equation.

Usage

fric_buzelli(reynolds, roughness = 0, strict = FALSE)

Value

pipe friction factor, []. Type: assert_double.

Arguments

reynolds

Reynolds number, []. Type: assert_double.

roughness

relative roughness, []. Type: assert_double.

strict

calculate only inside the precision region. Type: assert_flag.

Details

Buzelli's formula is reported to be extremely accurate in the region:

• 3.0e3 <= reynolds <= 3.0e8

• 0 <= roughness <= 0.05

In strict = TRUE mode argument values outside this precision region are not allowed, whereas in strict = FALSE either NAs are generated in that case or calculation for laminar flow is performed when reynolds < 2100.0.

References

1. Offor, U. and Alabi, S. (2016) An Accurate and Computationally Efficient Explicit Friction Factor Model. Advances in Chemical Engineering and Science, 6, pp. 237-245. tools:::Rd_expr_doi("http://dx.doi.org/10.4236/aces.2016.63024").

2. Buzzelli, D. (2008) Calculating friction in one step. Machine Design, 80 (12), pp. 54–55.

See Also

Other Fluid properties: fric_romeo(), fric_vatankhan(), re_u()

Examples

 library(pipenostics)

 fric_buzelli(c(2118517, 2000, 2118517), c(1e-6, 70e-3/1, 7e-3/1))
 # [1] 0.01031468 0.03200000 0.03375076  # []

 fric_buzelli(c(2118517, 5500, 2118517), c(1e-6, 50e-3/1, 7e-3/1), TRUE)
 # [1] 0.01031468 0.07556734 0.03375076