6bb6c340-6ce3-4593-8be3-25a8978a6fd0 16 4 5 false false 0 decimal

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

Assign Colebrook solver  algo style, it is dead until called. f R D ε Find 1 f sqrt / 2.0 ε 3.71 D * / 2.51 R f sqrt * / + log10 * - ≡ f 01 solve :

Design Engineer Pipe Data

f f 2000000 0.15 0.00005 Find : #

Put this outside of PipeData definition

cP 1100 / P * : (mH2O 0.098 bar * : μ 1 cP * : (ρ 1000 kg m 3^/ * : (D 0.14633 m * : (ε 0.00005 mm * : (L 100 m * : (W 2012030 range t hr / * : 81 line

PipeData i 1 W rows range V i el 4 W i el * π D 2^* ρ * / : R i el 4 π / W i el D μ * / * : f i el f R i el D ε Find : Δp i el f i el D / ρ V i el (2^* 2 / (* L * : PotR i el W i el Δp i el * ρ / : 51 line for W V R f Δp PotR augment 21 line :

U tonne hr / m s / 106^103 -^mH2O hp 16 mat transpose diag eval :

PipeData U 20 0.3303 0.0483 21.0534 0.0801 0.0058 30 0.4955 0.0725 19.2594 0.1649 0.0181 40 0.6607 0.0967 18.1203 0.2758 0.0403 50 0.8259 0.1208 17.304 0.4115 0.0751 60 0.991 0.145 16.6762 0.5711 0.1251 70 1.1562 0.1692 16.1704 0.7537 0.1926 80 1.3214 0.1934 15.7492 0.9588 0.28 90 1.4866 0.2175 15.3684 1.1841 0.3891 100 1.6517 0.2417 15.0928 1.4357 0.5241 110 1.8169 0.2659 14.8019 1.7037 0.6841 120 1.9821 0.29 14.5594 1.9943 0.8737 116 mat

Header FloW Velocity Reynolds friction factor ΔP Required Power 16 mat :

Header PipeData W L ε D ρ μ 'mH2O 'cP Find Header 'U PipeData W L ε D ρ μ 'mH2O 'cP Find W L ε D ρ μ 'mH2O 'cP

CWD C:\SmathFile CurrentDirectory :

Project CWD PipeData wfile 1