プラント配管の液体圧力損失の計算に適用します。 （配管材質の選択なし。）
長距離パイプラインに適用すると余裕が過大になります。
ガスの圧力損失計算には不適です｡
詳細は計算式の説明を読んでください。
計算式の根拠とユーザー関数VBAは下述します。
計算式根拠
管断面積 ＝ π*Ｄ*Ｄ／４
流速 ＝ Ｖ／(3600*Ａ)
圧力損失 ＝ Ｆ＊ρ＊Ｕ＊Ｕ／（2＊9.81）＊（Ｌ/Ｄ）
Re ＝ ρ＊Ｕ＊Ｄ／μ Fの計算 （Darcy-Wersbachの式による。 Fanningの４倍の値）
RE < 2000 ： Friction = 64 / REYNOLD
RE < 4000 ： Friction = 0.04
RE < 100000 ：
2"以下 ： Friction = 0.286 / REYNOLD ^ 0.23
2-1/2〜4" ： Friction = 0.273 / REYNOLD ^ 0.23
以外のサイズ ： Friction = 0.26 / REYNOLD ^ 0.23
RE >= 100000 ：Friction = 0.25 / (Log(3.7 * P_ID / 0.0457) * 0.43429) ^ 2 （内面荒さを考慮した式）
ユーザー関数（Friction）のVBA
Function Friction(P_SIZE, P_ID, REYNOLD)
'Calculation of Friction
Select Case REYNOLD
Case Is < 2000: Friction = 64 / REYNOLD
Case Is < 4000: Friction = 0.04
Case Is < 100000
Select Case P_SIZE
Case Is <= 2: Friction = 0.286 / REYNOLD ^ 0.23
Case Is <= 4: Friction = 0.273 / REYNOLD ^ 0.23
Case Else: Friction = 0.26 / REYNOLD ^ 0.23
End Select
Case Else: Friction = 0.25 / (Log(3.7 * P_ID / 0.0457) * 0.43429) ^ 2
End Select
End Function