35aabff9-ee90-42b0-a25d-d4ee6a225ce5 83 4 5 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

Define what is what being calculated Q MassFlow rate T/hr ≡ mWC 1 : (meter WaterColumn ≡ LkWhr 1 : (Linear PumpPower kW/hr ≡ h 0.000102 ≡ (Pa to mWC ≡ Pa 1 : (Pa-> Pascal ≡ ms 1 : (m/s ≡ 61 line

This project is typical of analysing pipe run 100 m long. User will set pipe data in the main program "PipeData" [H, μ, ρ, D, ε, L], wrt tabulated 'Q'

PipeData H 10 : Pump Head m @ nominal design ≡ μ 1 : Viscosity Centipose [cp] ≡ ρ 1000 : kg/m^3 ≡ D 0.14633 : Pipe ID [m] ≡ ε 0.00005 : 0.00003<ε>0.0001 ≡ L 100 : rectilinear losses L[m] ≡ Q 2012030 range : i 1 Q rows range V i el 0.3537 Q i el * ρ D 2^* / : R i el 0.3537 Q i el D μ * ρ * / * 106^* : f i el f R i el D ε Find : Δp i el f i el D / ρ V i el (2^* 2 / (* L * 0.000102 * : LinkWhr i el Q i el Δp i el * 3671 * / : 51 line for Header Q:T/hr V:m/s Δp:mWC Linear:kW/hr Σkw/hr 15 mat : Header Q V Δp LinkWhr LinkWhr H * augment stack 101 line :

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

Pumping kW/hr PkWhr Q Δp * H * 367 / ≡

3600 9.8067 / 367 ≡

Pipe run data [100 m] for piping design PipeData Q:T/hr V:m/s Δp:mWC Linear:kW/hr Σkw/hr 20 0.33 0.084 0.005 0.046 30 0.496 0.177 0.014 0.145 40 0.661 0.301 0.033 0.328 50 0.826 0.455 0.062 0.619 60 0.991 0.639 0.104 1.045 70 1.156 0.853 0.163 1.627 80 1.321 1.097 0.239 2.392 90 1.487 1.371 0.336 3.362 100 1.652 1.674 0.456 4.562 110 1.817 2.007 0.602 6.016 120 1.982 2.369 0.775 7.747 125 mat

ΣkW/hr: Consider the efficiency factor 'r' 0.6 < r < 1 here: r=1 ...Q*Δp/367*r ----------------------- Turn down ratio 6/1 is rarely encountered in Process Plant [orifice plate, valve, sedimant'n]. The turn down ratio for orifice plate metering conformity ISO-5167[0.6%] is 3/1 .. 5/1 for reading.

Occasionaly, the Instrumentation Engineer will be the Piping Designer as well, in small "Engineering Firms" of shared expertise and shared Disciplines. What flows in the pipe implies some comfortable pipe knowledge basics. In large Engineering Firms, the Instrumentation Engineer is busy enough designing the control scheme, selecting/sizing the metering, valve sizing and coordinate the installation in piping.

On-fly piecewise calculator

ID 0.14633 ≡ 6 inch, 80 XS ... 80 S ≡

inch 0.0254 m * ≡

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

Pipe Reynolds e+6 R 0.3537 Q ID μ * ρ * / * : 0.242

Nominal speed [m/s] V 0.3537 Q * ρ ID 2^* / : ms 1.652

f 0.02 : initialise Colebrook ≡

Colebrook friction factor f f R 106^* ID ε Find : 0.018

Linear losses/L(m) Δp f ID / ρ V 2^* 2 / (* L * 0.000102 * : mWC 1.674

ΣkWhr 1 :

Linear kW/hr @ ['r' efficiency]=1 LinearkWhr Q Δp * 3671 * / : LkWhr 0.456

Total kW/hr @ r = 1 efficiency ΣkWhr Q Δp * H * 3671 * / : ΣkWhr 4.562

Pipe data: visit this link

http://iblink.com.pk/Links-data/Free-gifts/2_PIPE%20SCHEDULE%20&%20INNER%20DIA%20DIMENSION

data char size clr plot k 1 data rows range r3 k el char : r4 k el size : r5 k el clr : 13 mat for data r3 r4 r5 augment 21 line :

data PipeData 21215 submatrix :

vx data 1 col : vy data 3 col : 12 mat sample vx vy augment . 14 black plot : 21 line

plot Thr 1012011 range : i 1 Thr rows range mWC i el vx vy Thr i el cinterp : for Thr mWC augment 31 line :

linear losses ... mWC vs Q[T/hr]

sample plot 2 1 sys

PipeData PipeData 112 range 15 range el :

CWD C:\SmathFile CurrentDirectory :

PipeData CWD MyPipe wfile 1

recover CWD MyPipe rfile :

Project recover 212 range 15 range el : decimals 2 : Project Project 2 round vectorize : 31 sys

HEADER Q:T/hr V:m/s Δp:mWC Linear:kW/hr Σkw/hr 15 mat :

HEADER decimals Project CWD plot sample vy vx data LinearkWhr ΣkWhr Δp f V R H L ε ID ρ μ Q PipeData ms Pa LkWhr mWC Find lastError HEADER decimals Project recover CWD plot sample vy vx data LinearkWhr ΣkWhr Δp f V R H L ε ID ρ μ Q PipeData ms Pa LkWhr mWC Find lastError decimals vy vx LinearkWhr ΣkWhr Δp f V R H L ε ID ρ μ Q ms Pa LkWhr mWC

Project
20	0.33	0.08	0	0.05
30	0.5	0.18	0.01	0.14
40	0.66	0.3	0.03	0.33
50	0.83	0.45	0.06	0.62
60	0.99	0.64	0.1	1.04
70	1.16	0.85	0.16	1.63
80	1.32	1.1	0.24	2.39
90	1.49	1.37	0.34	3.36
100	1.65	1.67	0.46	4.56
110	1.82	2.01	0.6	6.02
120	1.98	2.37	0.77	7.75
#
Q:T/hr	V:m/s	Δp:mWC	Linear:kW/hr	Σkw/hr
#
#
#

CWD C:\SmathFile CurrentDirectory :

Project CWD PipeData wfile 1

Explicit Reynolds Engineer style

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

Reynolds 483437251496686120857145028169200193371217543241714265885290057111 mat :

Reynolds 1000 Trunc vectorize 480007300097000121000145000169000193000218000242000266000290000111 mat