📄 form2.frm
字号:
Qp = Form2.Text3(1)
n = 3.322 * Log(φ600 / φ300) / Log(10)
K = 0.511 * φ300 / 511 ^ n
If Option1(0).Value = True Then
If Option2(0).Value = True Then
If Form1.Option1(0).Value = True Then
d_Dc1 = D_DC1W / D
Kc1 = JiSuanKc(d_Dc1, n)
'D_DC1W = 177.8
'D = 215.9
'D_DP1W = 127
'n = 0.737
'K = 0.309
'Kc = 0.48
'ρm = 1.5
a = (Log(n) / Log(10) + 3.93) / 50
V_Dc1 = υp_max * ((D_DC1W / 10) ^ 2 / ((D / 10) ^ 2 - (D_DC1W / 10) ^ 2) + Kc1)
V_Dp1 = υp_max * ((D_DC1W / 10) ^ 2 / ((D / 10) ^ 2 - (D_DP1W / 10) ^ 2) + Kc1)
Re_Dc1 = JiSuanRe(K, n, V_Dc1, ρm, (D / 10), (D_DC1W / 10))
Re_Dp1 = JiSuanRe(K, n, V_Dp1, ρm, D / 10, D_DP1W / 10)
f_Dc1 = JiSuanf(Re_Dc1, n)
f_Dp1 = JiSuanf(Re_Dp1, n)
Pτ_Dc1 = JiSuanPt(L_DC1, D / 10, D_DC1W / 10, τ)
Pτ_Dp1 = JiSuanPt(L_DP1, D / 10, D_DP1W / 10, τ)
Pb_Dc1 = JiSuanPb(Re, n, K, V_Dc1, D / 10, D_DC1W / 10, L_DC1, ρm, f_Dc1)
Pb_Dp1 = JiSuanPb(Re, n, K, V_Dp1, D / 10, D_DP1W / 10, L_DP1, ρm, f_Dp1)
Pg_Dc1 = JiSuanPgDu(ρm, a, L_DC1, D_DC1W / 10, D_DC1N / 10)
Pg_Dp1 = JiSuanPgDu(ρm, a, L_DP1, D_DP1W / 10, D_DP1N / 10)
Pbt = JiSuanPt_DuTing(υp_max, ρm, D, D_BitNiBao)
P = Pτ_Dc1 + Pτ_Dp1 + Pb_Dc1 + Pb_Dp1 + Pg_Dc1 + Pg_Dp1 + Pbt
ElseIf Form1.Option1(1).Value = True Then
d_Dc1 = D_DC1W / D
Kc1 = JiSuanKc(d_Dc1, n)
d_Dc2 = D_DC2W / D
Kc2 = JiSuanKc(d_Dc2, n)
'D_DC1W = 177.8
'D = 215.9
'D_DP1W = 127
'n = 0.737
'K = 0.309
'Kc = 0.48
'ρm = 1.5
a = (Log(n) / Log(10) + 3.93) / 50
V_Dc1 = υp_max * ((D_DC1W / 10) ^ 2 / ((D / 10) ^ 2 - (D_DC1W / 10) ^ 2) + Kc1)
V_Dc2 = υp_max * ((D_DC2W / 10) ^ 2 / ((D / 10) ^ 2 - (D_DC2W / 10) ^ 2) + Kc2)
V_Dp1 = υp_max * ((D_DC2W / 10) ^ 2 / ((D / 10) ^ 2 - (D_DP1W / 10) ^ 2) + Kc2)
Re_Dc1 = JiSuanRe(K, n, V_Dc1, ρm, (D / 10), (D_DC1W / 10))
Re_Dc2 = JiSuanRe(K, n, V_Dc2, ρm, (D / 10), (D_DC2W / 10))
Re_Dp1 = JiSuanRe(K, n, V_Dp1, ρm, D / 10, D_DP1W / 10)
f_Dc1 = JiSuanf(Re_Dc1, n)
f_Dc2 = JiSuanf(Re_Dc2, n)
f_Dp1 = JiSuanf(Re_Dp1, n)
Pτ_Dc1 = JiSuanPt(L_DC1, D / 10, D_DC1W / 10, τ)
Pτ_Dc2 = JiSuanPt(L_DC2, D / 10, D_DC2W / 10, τ)
Pτ_Dp1 = JiSuanPt(L_DP1, D / 10, D_DP1W / 10, τ)
Pb_Dc1 = JiSuanPb(Re, n, K, V_Dc1, D / 10, D_DC1W / 10, L_DC1, ρm, f_Dc1)
Pb_Dc2 = JiSuanPb(Re, n, K, V_Dc2, D / 10, D_DC2W / 10, L_DC2, ρm, f_Dc2)
Pb_Dp1 = JiSuanPb(Re, n, K, V_Dp1, D / 10, D_DP1W / 10, L_DP1, ρm, f_Dp1)
Pg_Dc1 = JiSuanPgDu(ρm, a, L_DC1, D_DC1W / 10, D_DC1N / 10)
Pg_Dc2 = JiSuanPgDu(ρm, a, L_DC2, D_DC2W / 10, D_DC2N / 10)
Pg_Dp1 = JiSuanPgDu(ρm, a, L_DP1, D_DP1W / 10, D_DP1N / 10)
Pbt = JiSuanPt_DuTing(υp_max, ρm, D, D_BitNiBao)
P = Pτ_Dc1 + Pτ_Dc2 + Pτ_Dp1 + Pb_Dc1 + Pb_Dc2 + Pb_Dp1 + Pg_Dc1 + Pg_Dc2 + Pg_Dp1 + Pbt
ElseIf Form1.Option1(2).Value = True Then
d_Dc1 = D_DC1W / D
Kc1 = JiSuanKc(d_Dc1, n)
d_Dc2 = D_DC2W / D
Kc2 = JiSuanKc(d_Dc2, n)
'D_DC1W = 177.8
'D = 215.9
'D_DP1W = 127
'n = 0.737
'K = 0.309
'Kc = 0.48
'ρm = 1.5
a = (Log(n) / Log(10) + 3.93) / 50
V_Dc1 = υp_max * ((D_DC1W / 10) ^ 2 / ((D / 10) ^ 2 - (D_DC1W / 10) ^ 2) + Kc1)
V_Dc2 = υp_max * ((D_DC2W / 10) ^ 2 / ((D / 10) ^ 2 - (D_DC2W / 10) ^ 2) + Kc2)
V_Dp1 = υp_max * ((D_DC2W / 10) ^ 2 / ((D / 10) ^ 2 - (D_DP1W / 10) ^ 2) + Kc2)
V_Dp2 = υp_max * ((D_DC2W / 10) ^ 2 / ((D / 10) ^ 2 - (D_DP2W / 10) ^ 2) + Kc2)
Re_Dc1 = JiSuanRe(K, n, V_Dc1, ρm, (D / 10), (D_DC1W / 10))
Re_Dc2 = JiSuanRe(K, n, V_Dc2, ρm, (D / 10), (D_DC2W / 10))
Re_Dp1 = JiSuanRe(K, n, V_Dp1, ρm, D / 10, D_DP1W / 10)
Re_Dp2 = JiSuanRe(K, n, V_Dp2, ρm, D / 10, D_DP2W / 10)
f_Dc1 = JiSuanf(Re_Dc1, n)
f_Dc2 = JiSuanf(Re_Dc2, n)
f_Dp1 = JiSuanf(Re_Dp1, n)
f_Dp2 = JiSuanf(Re_Dp2, n)
Pτ_Dc1 = JiSuanPt(L_DC1, D / 10, D_DC1W / 10, τ)
Pτ_Dc2 = JiSuanPt(L_DC2, D / 10, D_DC2W / 10, τ)
Pτ_Dp1 = JiSuanPt(L_DP1, D / 10, D_DP1W / 10, τ)
Pτ_Dp2 = JiSuanPt(L_DP2, D / 10, D_DP2W / 10, τ)
Pb_Dc1 = JiSuanPb(Re, n, K, V_Dc1, D / 10, D_DC1W / 10, L_DC1, ρm, f_Dc1)
Pb_Dc2 = JiSuanPb(Re, n, K, V_Dc2, D / 10, D_DC2W / 10, L_DC2, ρm, f_Dc2)
Pb_Dp1 = JiSuanPb(Re, n, K, V_Dp1, D / 10, D_DP1W / 10, L_DP1, ρm, f_Dp1)
Pb_Dp2 = JiSuanPb(Re, n, K, V_Dp2, D / 10, D_DP2W / 10, L_DP2, ρm, f_Dp2)
Pg_Dc1 = JiSuanPgDu(ρm, a, L_DC1, D_DC1W / 10, D_DC1N / 10)
Pg_Dc2 = JiSuanPgDu(ρm, a, L_DC2, D_DC2W / 10, D_DC2N / 10)
Pg_Dp1 = JiSuanPgDu(ρm, a, L_DP1, D_DP1W / 10, D_DP1N / 10)
Pg_Dp2 = JiSuanPgDu(ρm, a, L_DP2, D_DP2W / 10, D_DP2N / 10)
Pbt = JiSuanPt_DuTing(υp_max, ρm, D, D_BitNiBao)
P = Pτ_Dc1 + Pτ_Dc2 + Pτ_Dp1 + Pτ_Dp2 + Pb_Dc1 + Pb_Dc2 + Pb_Dp1 + Pb_Dp2 + Pg_Dc1 + Pg_Dc2 + Pg_Dp1 + Pg_Dp2 + Pbt
End If
ElseIf Option2(2).Value = True Then
J = (J1 ^ 2 + J2 ^ 2 + J3 ^ 2 + J4 ^ 2 + J5 ^ 2 + J6 ^ 2 + J7 ^ 2 + J8 ^ 2) ^ (1 / 2)
If Form1.Option1(0).Value = True Then
d_Dc1 = D_DC1W / D
Kc1 = JiSuanKc(d_Dc1, n)
'D_DC1W = 177.8
'D = 215.9
'D_DP1W = 127
'n = 0.737
'K = 0.309
'Kc = 0.48
'ρm = 1.5
a = (Log(n) / Log(10) + 3.93) / 50
V_Dc1 = υp_max * ((D_DC1W / 10) ^ 2 / ((D / 10) ^ 2 - (D_DC1W / 10) ^ 2) + Kc1)
V_Dp1 = υp_max * ((D_DC1W / 10) ^ 2 / ((D / 10) ^ 2 - (D_DP1W / 10) ^ 2) + Kc1)
Re_Dc1 = JiSuanRe(K, n, V_Dc1, ρm, (D / 10), (D_DC1W / 10))
Re_Dp1 = JiSuanRe(K, n, V_Dp1, ρm, D / 10, D_DP1W / 10)
f_Dc1 = JiSuanf(Re_Dc1, n)
f_Dp1 = JiSuanf(Re_Dp1, n)
Pτ_Dc1 = JiSuanPt(L_DC1, D / 10, D_DC1W / 10, τ)
Pτ_Dp1 = JiSuanPt(L_DP1, D / 10, D_DP1W / 10, τ)
Pb_Dc1 = JiSuanPb(Re, n, K, V_Dc1, D / 10, D_DC1W / 10, L_DC1, ρm, f_Dc1)
Pb_Dp1 = JiSuanPb(Re, n, K, V_Dp1, D / 10, D_DP1W / 10, L_DP1, ρm, f_Dp1)
Pg_Dc1 = JiSuanPgDu(ρm, a, L_DC1, D_DC1W / 10, D_DC1N / 10)
Pg_Dp1 = JiSuanPgDu(ρm, a, L_DP1, D_DP1W / 10, D_DP1N / 10)
Pbt = JiSuanPt_DuTing(υp_max, ρm, D, D_BitNiBao)
P = Pτ_Dc1 + Pτ_Dp1 + Pb_Dc1 + Pb_Dp1 + Pg_Dc1 + Pg_Dp1 + Pbt
ElseIf Form1.Option1(1).Value = True Then
d_Dc1 = D_DC1W / D
Kc1 = JiSuanKc(d_Dc1, n)
d_Dc2 = D_DC2W / D
Kc2 = JiSuanKc(d_Dc2, n)
'D_DC1W = 177.8
'D = 215.9
'D_DP1W = 127
'n = 0.737
'K = 0.309
'Kc = 0.48
'ρm = 1.5
a = (Log(n) / Log(10) + 3.93) / 50
V_Dc1 = υp_max * ((D_DC1W / 10) ^ 2 / ((D / 10) ^ 2 - (D_DC1W / 10) ^ 2) + Kc1)
V_Dc2 = υp_max * ((D_DC2W / 10) ^ 2 / ((D / 10) ^ 2 - (D_DC2W / 10) ^ 2) + Kc2)
V_Dp1 = υp_max * ((D_DC2W / 10) ^ 2 / ((D / 10) ^ 2 - (D_DP1W / 10) ^ 2) + Kc2)
Re_Dc1 = JiSuanRe(K, n, V_Dc1, ρm, (D / 10), (D_DC1W / 10))
Re_Dc2 = JiSuanRe(K, n, V_Dc2, ρm, (D / 10), (D_DC2W / 10))
Re_Dp1 = JiSuanRe(K, n, V_Dp1, ρm, D / 10, D_DP1W / 10)
f_Dc1 = JiSuanf(Re_Dc1, n)
f_Dc2 = JiSuanf(Re_Dc2, n)
f_Dp1 = JiSuanf(Re_Dp1, n)
Pτ_Dc1 = JiSuanPt(L_DC1, D / 10, D_DC1W / 10, τ)
Pτ_Dc2 = JiSuanPt(L_DC2, D / 10, D_DC2W / 10, τ)
Pτ_Dp1 = JiSuanPt(L_DP1, D / 10, D_DP1W / 10, τ)
Pb_Dc1 = JiSuanPb(Re, n, K, V_Dc1, D / 10, D_DC1W / 10, L_DC1, ρm, f_Dc1)
Pb_Dc2 = JiSuanPb(Re, n, K, V_Dc2, D / 10, D_DC2W / 10, L_DC2, ρm, f_Dc2)
Pb_Dp1 = JiSuanPb(Re, n, K, V_Dp1, D / 10, D_DP1W / 10, L_DP1, ρm, f_Dp1)
Pg_Dc1 = JiSuanPgDu(ρm, a, L_DC1, D_DC1W / 10, D_DC1N / 10)
Pg_Dc2 = JiSuanPgDu(ρm, a, L_DC2, D_DC2W / 10, D_DC2N / 10)
Pg_Dp1 = JiSuanPgDu(ρm, a, L_DP1, D_DP1W / 10, D_DP1N / 10)
Pbt = JiSuanPt_DuTing(υp_max, ρm, D, D_BitNiBao)
P = Pτ_Dc1 + Pτ_Dc2 + Pτ_Dp1 + Pb_Dc1 + Pb_Dc2 + Pb_Dp1 + Pg_Dc1 + Pg_Dc2 + Pg_Dp1 + Pbt
ElseIf Form1.Option1(2).Value = True Then
d_Dc1 = D_DC1W / D
Kc1 = JiSuanKc(d_Dc1, n)
d_Dc2 = D_DC2W / D
Kc2 = JiSuanKc(d_Dc2, n)
'D_DC1W = 177.8
'D = 215.9
'D_DP1W = 127
'n = 0.737
'K = 0.309
'Kc = 0.48
'ρm = 1.5
a = (Log(n) / Log(10) + 3.93) / 50
V_Dc1 = υp_max * ((D_DC1W / 10) ^ 2 / ((D / 10) ^ 2 - (D_DC1W / 10) ^ 2) + Kc1)
V_Dc2 = υp_max * ((D_DC2W / 10) ^ 2 / ((D / 10) ^ 2 - (D_DC2W / 10) ^ 2) + Kc2)
V_Dp1 = υp_max * ((D_DC2W / 10) ^ 2 / ((D / 10) ^ 2 - (D_DP1W / 10) ^ 2) + Kc2)
V_Dp2 = υp_max * ((D_DC2W / 10) ^ 2 / ((D / 10) ^ 2 - (D_DP2W / 10) ^ 2) + Kc2)
Re_Dc1 = JiSuanRe(K, n, V_Dc1, ρm, (D / 10), (D_DC1W / 10))
Re_Dc2 = JiSuanRe(K, n, V_Dc2, ρm, (D / 10), (D_DC2W / 10))
Re_Dp1 = JiSuanRe(K, n, V_Dp1, ρm, D / 10, D_DP1W / 10)
Re_Dp2 = JiSuanRe(K, n, V_Dp2, ρm, D / 10, D_DP2W / 10)
f_Dc1 = JiSuanf(Re_Dc1, n)
f_Dc2 = JiSuanf(Re_Dc2, n)
f_Dp1 = JiSuanf(Re_Dp1, n)
f_Dp2 = JiSuanf(Re_Dp2, n)
Pτ_Dc1 = JiSuanPt(L_DC1, D / 10, D_DC1W / 10, τ)
Pτ_Dc2 = JiSuanPt(L_DC2, D / 10, D_DC2W / 10, τ)
Pτ_Dp1 = JiSuanPt(L_DP1, D / 10, D_DP1W / 10, τ)
Pτ_Dp2 = JiSuanPt(L_DP2, D / 10, D_DP2W / 10, τ)
Pb_Dc1 = JiSuanPb(Re, n, K, V_Dc1, D / 10, D_DC1W / 10, L_DC1, ρm, f_Dc1)
Pb_Dc2 = JiSuanPb(Re, n, K, V_Dc2, D / 10, D_DC2W / 10, L_DC2, ρm, f_Dc2)
Pb_Dp1 = JiSuanPb(Re, n, K, V_Dp1, D / 10, D_DP1W / 10, L_DP1, ρm, f_Dp1)
Pb_Dp2 = JiSuanPb(Re, n, K, V_Dp2, D / 10, D_DP2W / 10, L_DP2, ρm, f_Dp2)
Pg_Dc1 = JiSuanPgDu(ρm, a, L_DC1, D_DC1W / 10, D_DC1N / 10)
Pg_Dc2 = JiSuanPgDu(ρm, a, L_DC2, D_DC2W / 10, D_DC2N / 10)
Pg_Dp1 = JiSuanPgDu(ρm, a, L_DP1, D_DP1W / 10, D_DP1N / 10)
Pg_Dp2 = JiSuanPgDu(ρm, a, L_DP2, D_DP2W / 10, D_DP2N / 10)
Pbt = JiSuanPt_DuTing(υp_max, ρm, D, D_BitNiBao)
P = Pτ_Dc1 + Pτ_Dc2 + Pτ_Dp1 + Pτ_Dp2 + Pb_Dc1 + Pb_Dc2 + Pb_Dp1 + Pb_Dp2 + Pg_Dc1 + Pg_Dc2 + Pg_Dp1 + Pg_Dp2 + Pbt
End If
End If
End If
Text4.Text = P
' t_all = 2 * υp_max / α + (S - υp_max ^ 2 / α) / υp_max
' ReDim υpi(Int(t_all))
' For i = 0 To t_all
' υpi(i) = i
' Print υpi(i)
' Next i
'
' n = 3.322 * Log(φ600 / φ300) / Log(10)
' K = 0.511 * φ300 / 511 ^ n
' Pτ = 0.0004 * τ * H / (D - d0)
' Re = 10 * 1200 ^ (1 - n) * (D - d0) ^ n * υ ^ (2 - n) * ρm / (K * ((2 * n + 1) / 3 * n) ^ n)
' f = (Log(n) / Log(10)) / Re ^ ((1.75 - Log(n) / Log(10)) / 7)
'
' If Form2.Option2(1) Or Form2.Option2(3) Then
' υ = (d0 ^ 2 / (D ^ 2 - d0 ^ 2) + Kc) * υp + 40 * Qp / (3.146 * (D ^ 2 - di ^ 2))
' ElseIf Form2.Option2(2) Then
' υ = ((d0 ^ 2 - di ^ 2) / (D ^ 2 - d0 ^ 2 + di ^ 2) + Kc) * υp
' ElseIf Form2.Option2(0) Then
' υ = (d0 ^ 2 / (D ^ 2 - d0 ^ 2) + Kc) * υp
' End If
'
' If Re >= 3470 - 1370 * n Then
' Kc = 0.5
' Pbo = 0.00002 * ρm * f * υ ^ 2 * H / (D - d0)
' Else
' Pbo = (4 * (2 * n + 1) * υ / (n * (D - d0))) ^ n * 0.0004 * K * H / (D - d0)
'
' End If
'
' If Form2.Option2(0) Or Form2.Option2(1) Then
' Pg = 0.0010035 * ρm * d0 ^ 2 * α * H / (D ^ 2 - d0 ^ 2)
' ElseIf Form2.Option2(2) Or Form2.Option2(3) Then
' Pg = 0.0010035 * ρm * (d0 ^ 2 - di ^ 2) * α * H / (D ^ 2 - d0 ^ 2 - di ^ 2)
' End If
'
' Pz = Ni * ρm * υ ^ 2 / 20390 * (((D ^ 2 - d0 ^ 2) ^ 2 - (D ^ 2 - djt ^ 2) ^ 2) / (D ^ 2 - djt ^ 2) ^ 2)
'
' For j = 1 To 8
' dei = dei + (Form1.Text5(j - 1)) ^ 2
' Next j
' de = dei ^ 0.5
'
' If Form2.Option2(1) Or Form2.Option2(3) Then
' If Form2.Option1(0) Then
' Pbt = 5.31529 * 10 ^ (-8) * (dnb ^ 2 * υp + 1273.866 * Qp) ^ 2 * ρm / (D ^ 2 - dnb ^ 2) ^ 2
' ElseIf Form2.Option1(1) Then
' Pbt = 5.31529 * 10 ^ (-8) * (dnb ^ 2 * υp - 1273.866 * Qp) ^ 2 * ρm / (D ^ 2 - dnb ^ 2) ^ 2
' End If
' ElseIf Form2.Option2(2) Then
' Pbt = 5.31529 * 10 ^ (-8) * (dnb ^ 2 - de) ^ 2 * ρm * υp ^ 2 / (D ^ 2 - dnb ^ 2 + de ^ 2) ^ 2
' ElseIf Form2.Option2(0) Then
' Pbt = 5.31529 * 10 ^ (-8) * dnb ^ 4 * ρm * υp ^ 2 / (D ^ 2 - dnb ^ 2) ^ 2
' End If
' Print n; K
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Command4_Click()
Form2.Hide
Form1.Show
End Sub
Public Function JiSuanKc(d_1 As Double, n_1 As Double)
If n_1 <= 0.3 Then
JiSuanKc = 0.5 * d_1 ^ 0.3861
ElseIf n_1 > 0.3 And n_1 <= 0.5 Then
JiSuanKc = 0.5 * Log(d_1) / Log(10)
ElseIf n_1 > 0.5 And n_1 <= 0.7 Then
JiSuanKc = 0.5 * d_1 ^ 0.2603
ElseIf n_1 > 0.7 Then
JiSuanKc = 0.5 * d_1 ^ 0.2263
End If
End Function
Public Function JiSuanRe(k_2 As Double, n_2 As Double, v As Double, ρ As Double, d_2 As Double, d_21 As Double)
Dim aa As Double, bb As Double
aa = k_2 * ((2 * n + 1) / (3 * n)) ^ n
bb = 10 * 1200 ^ (1 - n_2) * (d_2 - d_21) ^ n * v ^ (2 - n_2) * ρ
JiSuanRe = bb / aa
End Function
Public Function JiSuanf(Re_3 As Double, n_3 As Double)
Dim a As Double, b As Double
If Re_3 < 3470 - 1370 * n Then
JiSuanf = 24 / Re_3
Else
a = (Log(n_3) / Log(10) + 3.93) / 50
b = (1.75 - Log(n_3) / Log(10)) / 7
JiSuanf = a / Re_3 ^ b
End If
End Function
Public Function JiSuanPt(h1 As Double, d1 As Double, d12 As Double, τ1 As Double)
JiSuanPt = 0.0004 * τ1 * h1 / (d1 - d12)
End Function
Public Function JiSuanPb(Re2 As Double, n2 As Double, k2 As Double, v2 As Double, d2 As Double, d22 As Double, h2 As Double, ρ2 As Double, f2 As Double)
If Re2 < 3470 - 1370 * n2 Then
JiSuanPb = (4 * (2 * n2 + 1) * v2 / (n2 * (d2 - d22))) ^ n2 * 0.0004 * k2 * h2 / (d2 - d22)
Else
JiSuanPb = 0.00002 * ρ2 * f2 * h2 / (d2 - d22)
End If
End Function
Public Function JiSuanPgDu(ρ3 As Double, a3 As Double, h3 As Double, d3 As Double, d32 As Double)
JiSuanPgDu = 0.0010035 * ρ3 * d32 ^ 2 * a3 * h3 / (d3 ^ 2 - d32 ^ 2)
End Function
Public Function JiSuanPgKai(ρ4 As Double, d4 As Double, d42 As Double, d43 As Double, a4 As Double, h4 As Double)
JiSuanPgKai = 0.0010035 * ρ4 * (d42 - d43) ^ 2 * a4 * h4 / (d4 ^ 2 - d42 ^ 2 - d43 ^ 2)
End Function
Public Function JiSuanPt_DuTing(v5 As Double, ρ5 As Double, d5 As Double, d51 As Double)
JiSuanPt_DuTing = 5.31529 * 10 ^ (-8) * d5 ^ 4 * ρ5 * v5 ^ 2 / (d5 ^ 2 - d51 ^ 2) ^ 2
End Function
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -