eedd3b77-ef0c-4ef7-bbdf-da96c492bedb 77 4 5 decimal

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

ORIGIN 1 :

g 9.80665 m s / * :

Example-03==============================================================

INNER LOOP CALCULATIONS: Input the pipe geometry: Diameter in feet:

D1 1286688817 mat transpose in * :

L1 1000223413217 mat transpose * ft * :

ε 0.00015 111111117 mat transpose * ft * :

Fluid Properties

ρ1 62.4 lb ft 3^/ * :

ν1 1.6 105 -^* ft 2^sec / * :

μ1 ν1 ρ1 * :

Define the minor loss coefficients K and the equivalent-lengths C:

K1 000000017 mat transpose :

C1 000000017 mat transpose :

Q1 1 0.8 0.2 1.2 1.2 11117 mat transpose * ft 3^s / * :

Define the luseful functions

*AdditionalEquation

q d ν Re1 4 q * π d * ν * / :

-ReynoldsNumber

d ε fT1 0.3086 ε 3.7 d * / (1.11^log10 2^/ :

fully roughness friction factor

-FrictionFactor

q d ε ν f1 q d ν Re1 2300 > ff 0.3086 6.9 q d ν Re1 / ε 3.7 d * / (1.11^+ log10 (2^/ : ff 64 q d ν Re1 / : if ff 21 line :

Define the lloss function for each line

i Q1 K1 C1 L1 D1 ν1 h 8 π 2^/ Q1 i el 2^g D1 i el 4^* / (* Q1 i el D1 i el ε i el ν1 f1 L1 i el D1 i el / * K1 i el + C1 i el D1 i el ε i el fT1 * + ((* :

Given

3 ft 3^s / * Q1 1 el Q1 4 el + Q1 5 el + ≡

Q1 1 el Q1 2 el + Q1 7 el ≡

2 ft 3^s / * Q1 6 el Q1 7 el + ≡

1 ft 3^s / * Q1 2 el + Q1 3 el ≡

Q1 5 el Q1 6 el ≡

04 Q1 K1 C1 L1 D1 ν1 h 3 Q1 K1 C1 L1 D1 ν1 h + 2 Q1 K1 C1 L1 D1 ν1 h + 1 Q1 K1 C1 L1 D1 ν1 h - ≡

05 Q1 K1 C1 L1 D1 ν1 h 6 Q1 K1 C1 L1 D1 ν1 h + 7 Q1 K1 C1 L1 D1 ν1 h - 1 Q1 K1 C1 L1 D1 ν1 h - ≡

System1 Q1 1 el Q1 4 el + Q1 5 el + 3 ft 3^s / * - 0 ≡ Q1 1 el Q1 2 el + Q1 7 el - 0 ≡ Q1 6 el Q1 7 el + 2 ft 3^s / * - 0 ≡ 1 ft 3^s / * Q1 2 el + Q1 3 el - 0 ≡ Q1 5 el Q1 6 el - 0 ≡ 4 Q1 K1 C1 L1 D1 ν1 h 3 Q1 K1 C1 L1 D1 ν1 h + 2 Q1 K1 C1 L1 D1 ν1 h + 1 Q1 K1 C1 L1 D1 ν1 h - 0 ≡ 5 Q1 K1 C1 L1 D1 ν1 h 6 Q1 K1 C1 L1 D1 ν1 h + 7 Q1 K1 C1 L1 D1 ν1 h - 1 Q1 K1 C1 L1 D1 ν1 h - 0 ≡ 71 mat :

System1 Q1 1 el 1 ≡ Q1 2 el 1 ≡ Q1 3 el 1 ≡ Q1 4 el 1 ≡ Q1 5 el 1 ≡ Q1 6 el 1 ≡ Q1 7 el 1 ≡ 71 mat ft 3^s / * FindRoot #

Q1 ft 3^s / 0.8 0.2 1.2 1.2 11171 mat

Q1 1 el Q1 4 el + Q1 5 el + 3 ft 3^s / * - 0

Q1 1 el Q1 2 el + Q1 7 el - 0

Q1 6 el Q1 7 el + 2 ft 3^s / * - 8.3886 1018 -^* m 3^s / * -

1 ft 3^s / * Q1 2 el + Q1 3 el - 5.3687 1018 -^* m 3^s / *

Q1 5 el Q1 6 el - 0

4 Q1 K1 C1 L1 D1 ν1 h 3 Q1 K1 C1 L1 D1 ν1 h + 2 Q1 K1 C1 L1 D1 ν1 h + 1 Q1 K1 C1 L1 D1 ν1 h - 43.504 m s / *

5 Q1 K1 C1 L1 D1 ν1 h 6 Q1 K1 C1 L1 D1 ν1 h + 7 Q1 K1 C1 L1 D1 ν1 h - 1 Q1 K1 C1 L1 D1 ν1 h - 1.9389 m s / *