-- This worksheet determines mass flow rate for orifice meters
-- with flange taps.
-- by Larry Meyn, e-mail: meyn@cruzio.com

include "MassFlow.inc"

--Set Values for Determining Mass Flow Rate

D1:=2.7:; beta:=0.600:; T1:=1000:
P1:=1316:;  DP:=12.6:


--Calculation

                                          D2:1.62
Z1 := Z(P1,T1):;                          Z1:1.036
FA := Fa(T1):;                            FA:1.009
VIS := vis(T1):;                          VIS:1.927e-05
RHO := 144*P1/(Z1*Rg*T1):;                RHO:3.428
Y := 1 - (0.41+0.35*beta^4)*DP/gamma/P1:; Y:0.9969

--Iteration on Mass Flow Rate

M = RE := 20000,
    Mold := 0.52502*((C(RE)*Y*D2^2*FA)/sqrt(1-beta^4))*sqrt(RHO*DP),
    Mnew:=0.0, it:=0, test:=1.0,
    (RE:= 48*Mold/¹/D2/VIS,
     Mnew:= 0.52502*((C(RE)*Y*D2^2*FA)/sqrt(1-beta^4))*sqrt(RHO*DP),
     test:= abs(Mnew - Mold)/Mold,
     Mold := Mnew, it:=it+1 ) while test > 0.0005, Mnew

-- Result

M:5.924

it:2;  test:1.018e-05;     RE:2.9e+06;      C(RE):0.6069


~
LEGAL NOTICE: Use of this program and the accompanying data is at the user's own risk.
~