Returns the pressure drop associated with a supply duct with an equal area tee.  The ducts have circular cross-section.  The function uses information from the Lindab web site.


DELTAP = DuctSupplyTeeB_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 main 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 = 8 [m/s]

v_1 = 12 [m/s]


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



DP = 66.52 [Pa]}