# NOT RUN {
# A Type 1 problem (solve for hf): US units
D <- 20/12 #diameter of 20 inches
Q <- 4 #flow in ft^3/s
T <- 60 #water temperature in F
ks <- 0.0005 #pipe roughness in ft
f <- colebrook(ks=ks,V=velocity(D,Q), D=D, nu=kvisc(T=T, units="Eng"))
# }
Run the code above in your browser using DataLab