Skip to contents

Estimate pipe friction factor with Romeo's formula

Source: R/fric_romeo.R
fric_romeo.Rd

Estimate Darcy friction factor explicitly with extremely accurate Romeo-Royo-Monzón approximation of Colebrook equation.

Usage

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

Arguments

reynolds

Reynolds number, []. Type: assert_double.

roughness

relative roughness, []. Type: assert_double.

strict

calculate only inside the precision region. Type: assert_flag.

Value

pipe friction factor, []. Type: assert_double.

Details

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

  • 3.0e3 <= reynolds <= 1.5e8

  • 0.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. doi:10.4236/aces.2016.63024 .

  2. Eva Romeo, Carlos Royo, Antonio Monzón, Improved explicit equations for estimation of friction factor in rough and smooth pipes, Chemical Engineering Journal, Volume 86, Issue 3, 2002, Pages 369-374, ISSN 1385-8947. doi:10.1016/S1385-8947(01)00254-6 .

See also

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

Examples

 library(pipenostics)

 fric_romeo(c(2118517, 2000, 2118517), c(0, 70e-3/1, 7e-3/1))
#> [1] 0.01028473 0.03200000 0.03373215
 # [1] 0.01028473 0.03200000 0.03373215  # []

 fric_romeo(c(2118517, 3030, 2118517), c(0, 50e-3/1, 7e-3/1), TRUE)
#> [1] 0.01028473 0.07859636 0.03373215
 # [1] 0.01028473 0.07859636 0.03373215  # []