Returns the pressure drop associated with an extract duct with a branch.  The branch is at 90 degrees and the ducts have circular cross-section.  The pressure drop should be applied to the flow in the main duct.  The function uses the information from the Lindab web site.  Ducts 2 and 3 have the same diameter.


DELTAP = DuctExtractMain90B_CL(F$, v_3, v_2, T, P)



F$:  fluid string identifier

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

v_3:  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 = 14 [m/s]

v_2 = 8 [m/s]

DP = DuctExtractMain90B_CL(F$, v_3, v_2, T, P)




DP = 36.92 [Pa]}