Zee Algorithm
Zee Algorithm
9 * ((SG) ^ 2))
Ppr = P / Ppc
Tpr = T / Tpc
'Dranchuk and abu Kassem Correlation
c1 = 0.3265 - (1.07 / Tpr) - (0.5339 / Tpr ^ 3) + (0.01569 / Tpr ^ 4) - (0.05165 /
Tpr ^ 5)
c2 = 0.5475 - (0.7361 / Tpr) + (0.1844 / Tpr ^ 2)
c3 = 0.1056 * ((-0.7361 / Tpr) + (0.1844 / Tpr ^ 2))
Z = 1 'assumed
Zcalc = 0.9 'assumed
Dim Trial As Integer
Trial = 1
Do While Abs(Z - Zcalc) > 0.0000001
Rho = (0.27 * Ppr) / (Z * Tpr)
c4 = 0.6134 * (1 + (0.721 * Rho ^ 2)) * (Rho ^ 2 / (Tpr ^ 3)) * Exp(-0.721 * Rho
^ 2)
Zcalc = 1 + (c1 * Rho) + (c2 * Rho ^ 2) - (c3 * Rho ^ 5) + c4
Trial = Trial + 1
If Trial > 100 Then
Exit Do
End If
Z = Zcalc
Loop
Z_Factor = Zcalc
End Function