Skip to content

Development#2

Open
Rickran09 wants to merge 17 commits intoMasterfrom
Development
Open

Development#2
Rickran09 wants to merge 17 commits intoMasterfrom
Development

Conversation

@Rickran09
Copy link
Collaborator

Function QGAS_IT(ID, OD, DEN, PRES, DIFF, Temp)

D =(ID*(1+0.0000062*(Temp-68)))
d =(OD*(1+0.00000889*(Temp-68)))
Beta =d/D
Ev =(1/(1-(Beta^4))^0.5)
MW =DEN28.9625
k =1.3
P1 =PRES+14.65
T1 =Temp
Ro1 =P1
MW/Zf1/10.7316/(T1+459.67)
Ug =$Y$35
Delta P =$F$7
Y1 =1-(0.3625+0.1027*(Beta^4)+1.132*(Beta^8))(1-((1-(U21/(27.7297P1)))^(1/U16)))
Zf1 =(0.98774+0.00017T1-0.00000053T1T1)+(-0.0002988+0.000001149T1-0.000000001042T1T1)(K19+1.01325)14.504+(-0.000000008935+0.00000000042593T1-0.000000000001389T1T1)(K19+1.01325)(K19+1.01325) 14.50414.504
Zs =$AE$25
Qinitial1 =7709.61
0.6U14U22*(d^2)RAIZ(P1U21U24/(DENZf1*(T1+459.67)))
ReD2 =0.0114541U2514.73DEN/(U20519.67D0.99959)
Cd(FT)2 =SI(U26<>0;0.5961+0.0291Beta^2-(0.229Beta^8)+0.003*(1-Beta)(MAXA(0;(2.8-D/1)))+(0.0433+0.0712(EXP(-8.5*(1/D)))-0.11454*(EXP(-6*(1/D))))((Beta^4)/(1-Beta^4))(1-0.23*(((19000Beta)/(U26))^0.8))+((-0.0116((2*(1/D)/(1-Beta))-0.52*((2*(1/D)/(1-Beta))^1.3)))(Beta^1.1)(1-0.14*(((19000Beta)/(U26))^0.8)))+0.000511((1000000Beta/U26)^0.7)+((0.021+0.0049(((19000Beta)/(U26))^0.8))((Beta^4)(((1000000)/(U26))^0.35)));0)
Q2 =7709.61
U27U14U22*(d^2)RAIZ(P1U21U24/(DENZf1*(T1+459.67)))
ReD3 =0.0114541U2814.73DEN/(U20519.67D0.99959)
Cd(FT)3 =SI(U29<>0;0.5961+0.0291Beta^2-(0.229Beta^8)+0.003*(1-Beta)(MAXA(0;(2.8-D/1)))+(0.0433+0.0712(EXP(-8.5*(1/D)))-0.11454*(EXP(-6*(1/D))))((Beta^4)/(1-Beta^4))(1-0.23*(((19000Beta)/(U29))^0.8))+((-0.0116((2*(1/D)/(1-Beta))-0.52*((2*(1/D)/(1-Beta))^1.3)))(Beta^1.1)(1-0.14*(((19000Beta)/(U29))^0.8)))+0.000511((1000000Beta/U29)^0.7)+((0.021+0.0049(((19000Beta)/(U29))^0.8))((Beta^4)(((1000000)/(U29))^0.35)));0)
Q3 =7709.61
U30U14U22*(d^2)RAIZ(P1U21U24/(DENZf1*(T1+459.67)))
ReD4 =0.0114541U3114.73DEN/(U20519.67D0.99959)
Cd(FT)4 =SI(U32<>0;0.5961+0.0291Beta^2-(0.229Beta^8)+0.003*(1-Beta)(MAXA(0;(2.8-D/1)))+(0.0433+0.0712(EXP(-8.5*(1/D)))-0.11454*(EXP(-6*(1/D))))((Beta^4)/(1-Beta^4))(1-0.23*(((19000Beta)/(U32))^0.8))+((-0.0116((2*(1/D)/(1-Beta))-0.52*((2*(1/D)/(1-Beta))^1.3)))(Beta^1.1)(1-0.14*(((19000Beta)/(U32))^0.8)))+0.000511((1000000Beta/U32)^0.7)+((0.021+0.0049(((19000Beta)/(U32))^0.8))((Beta^4)(((1000000)/(U32))^0.35)));0)
Q4 =7709.61
U33U14U22*(d^2)RAIZ(P1U21U24/(DENZf1*(T1+459.67)))
ReD5 =0.0114541U3414.73DEN/(U20519.67D0.99959)
Cd(FT)5 =SI(U35<>0;0.5961+0.0291Beta^2-(0.229Beta^8)+0.003*(1-Beta)(MAXA(0;(2.8-D/1)))+(0.0433+0.0712(EXP(-8.5*(1/D)))-0.11454*(EXP(-6*(1/D))))((Beta^4)/(1-Beta^4))(1-0.23*(((19000Beta)/(U35))^0.8))+((-0.0116((2*(1/D)/(1-Beta))-0.52*((2*(1/D)/(1-Beta))^1.3)))(Beta^1.1)(1-0.14*(((19000Beta)/(U35))^0.8)))+0.000511((1000000Beta/U35)^0.7)+((0.021+0.0049(((19000Beta)/(U35))^0.8))((Beta^4)(((1000000)/(U35))^0.35)));0)
Q5 =7709.61
U36U14U22*(d^2)RAIZ(P1U21U24/(DENZf1*(T1+459.67)))
GAS =+U37*24/1000000

End Function

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment

Labels

None yet

Projects

None yet

Development

Successfully merging this pull request may close these issues.

3 participants