Dim W1() As Long
Dim Idx1 As Double
Dim LB1 As Double
W1 = Array(0.433, 0.572, 0.65, 0.724, 0.75, 0.866, 0.95, 1.008, 1.108, 1.157, 1.22, 1.302, 1.41, 1.5, 1.524, 1.553, 1.63, 1.65, 1.732, 1.747, 1.78, 1.8, 1.9, 2, 2.02, 2.032, 2.12, 2.217, 2.35, 2.36, 2.45, 2.5, 2.595, 2.73, 2.886, 2.995, 3.09, 3.177, 3.3, 3.468, 3.56, 3.58, 3.666, 3.9, 4.091, 4.4, 4.773, 5.35, 5.525, 5.7, 6.007, 6.3, 6.9, 6.91, 7.55, 8, 8.5, 9, 9.5, 10, 10.5, 11, 11.5, 13, 14, 16, 20)
For LB1 = 1 To UBound(W1)
If Abs(B1 - W1(LB1)) < Abs(B1 - W1(Idx1)) Then Idx1 = LB1
Next
阅读全部
|
朱龙飞
贴于 2019年12月7日 10:33
hide
bbsi
Dim Rs As Integer, R0 As Integer, La As Integer, Lb As Integer, Lc As Double, Rb As Double, Z As Double
Rs = 9: R0 = 16: La = 22: Lb = 38: Lc = 38.992: Rb = 16.5: Z = -0.781
Const Pi = 3.1415926
Const Hmax = 8.78 / (13.5 ^ 2 / 2 / 8.5 ^ 2)
Dim W0 As Double, B0 As Double, Bd As Double, Wd As Double, Rd As Double, Kd As Double, Ymax As Double
W0 = Pi / 2 - Atn(((La ^ 2 + Lc ^ 2 - (R0 + Rs) ^ 2) / (2 * La * Lc)) / Sqr(1 - ((La ^ 2 + Lc ^ 2 - (R0 + Rs) ^ 2) / (2 * La * Lc)) ^ 2))
B0 = Atn(((Rb + Z) / Lb) / Sqr(1 - ((Rb + Z) / Lb) ^ 2))
Bd = Atn(((Rb + Z - Hmax) / Lb) / Sqr(1 - ((Rb + Z - Hmax) / Lb) ^ 2))
Wd = W0 + (B0 - Bd)
Rd = Sqr(La ^ 2 + Lc ^ 2 - 2 * La * Lc * Cos(Wd))
Kd = Pi / 2 - Atn(((Rd ^ 2 + Lc ^ 2 - La ^ 2) / (2 * Rd * Lc)) / Sqr(1 - ((Rd ^ 2 + Lc ^ 2 - La ^ 2) / (2 * Rd * Lc)) ^ 2))
......................
阅读全部
|
VB小萌新
贴于 2018年7月26日 10:56
hide
bbsi