Returns the pressure drop associated with an extract duct with an equal area tee with equal flow in the two incoming branches.  The ducts have circular cross-section.  The function uses the information from the Lindab website for a T-piece.


DELTAP = DuctExtractTeeB_CL(F$, v_3, v_1, T, P)



F$:  fluid string identifier

v_3:  velocity in main duct upstream of branch (m/s, ft/s)

v_1:  velocity in each duct downstream of branch (m/s, ft/s)

T:  inlet temperature (K, C, F, or R)

P:  inlet pressure (bar, atm, Pa, kPa, or MPa)



DELTAP:  pressure drop (bar, atm, Pa kPa, or MPa)



$Load Component Library

$UnitSystem SI Mass kJ C Pa

$VarInfo DP Units='Pa'

F$ = 'Air'

T =  20 [C]

P = 100000 [Pa]

v_3 = 10 [m/s]

v_1 = 10 [m/s]

v_2 = 8 [m/s]

DP = DuctExtractTeeB_CL(F$, v_3, v_1, T, P)



DP = 98.32 [Pa]}