38f0dda8-9a1b-435f-83b5-d023fd863de6 66 4 5 decimal

&[DATE] &[TIME] - &[FILENAME]

Colebrook memo m ε 0.00003<ε>0.0001 ≡ m D Pipe ID(m) ≡ f friction factor [dimensionless] ≡ R Reynolds [dimensionless] ≡ ε D 12 mat in the same units system ≡ f 0.02 : initial guess all cases ≡ 61 line

Moody-Colebrook Diagram ...

Colebrook formula 1 f sqrt / 2.0 ε 3.71 D * / 2.51 R f sqrt * / + log10 * - ≡

f R D ε Find 1 f sqrt / 2.0 ε 3.71 D * / 2.51 R f sqrt * / + log10 * - ≡ f 0.015 0.035 solve :

Moody ε 0.00005 : R 10000100000020000 range : D 0.04 0.05 0.06 0.07 14 mat transpose : i 1 R rows range j 1 D rows range f i j el f R i el D j el ε Find : for for R f 1 col augment R f 2 col augment R f 3 col augment R f 4 col augment 41 mat 51 line :

t0 1 time :

isolate/store Moody Moody eval :

1 time t0 - min 2.5

CWD C:\SmathFile CurrentDirectory :

Moody CWD Moody wfile 1

Moody CWD Moody rfile :

Recommanded speed: Water: 0.1 .. 2.5 [m/s] Superheated steam: 35 ... 100 [m/s]

Moody 1 el Moody 2 el Moody 3 el Moody 4 el 4 1 sys

1 f sqrt / 2.0 ε 3.71 D * / 2.51 R f sqrt * / + log10 * - ≡

1 time t0 - min 2.5

Solving Reynolds given Moody(j) ...

j 4 :

Moody j el 10000 0.032 20000 0.0274 30000 0.0253 40000 0.0241 50000 0.0232 60000 0.0226 70000 0.0221 80000 0.0217 90000 0.0214 92 mat

Moody 1 el Moody 2 el Moody 3 el Moody 4 el 4 1 sys 0.0175 -

vx Moody j el 1 col : vy Moody j el 2 col : 12 mat x Moody vx vy x cinterp : 21 mat

f 0.0235 0.0226 21 mat :

Reynolds x Moody f 1 el - x 10000150000 solve x Moody f 2 el - x 10000150000 solve 21 mat :

Explicit Reynolds Engineer style

round 'n 0'  left of decimal Number part Trunc part Number part / 0 round * :

Reynolds 1000 Trunc vectorize 460006000021 mat

Sanity check an Engineering design ...

ms 1 : (m/s ≡ D 0.04 0.05 0.06 0.07 14 mat transpose : 21 sys

Recommanded speed: Water: 0.1 .. 2.5 [m/s] Superheated steam: 35 ... 100 [m/s]

Q 10 : μ 1 : ρ 1000 : ID D : ε 0.00005 : L 100 : H 10 : 71 line

Pipe Reynolds e+6 R 0.3537 1000000 * Q ID μ * ρ * / * vectorize : 8842570740589505052941 mat

Nominal speed [m/s] V 0.3537 Q * ρ ID 2^* / vectorize : ms 2.21 1.41 0.98 0.72 41 mat

R 1000 Trunc vectorize 8800071000590005100041 mat

jmG: 20230518