Function LiZhuJiSuanChangDu(deltaMM, EI, L) '計算基礎柔度下立柱計算長度系數
Dim i As Integer
Dim a1, a2, a3, Y As Double
Const pi = 3.14159
a1 = 2.000001
a3 = 2 * a1
Y = 2.000001 'μ初始賦值
deltaMM = deltaMM + 0.0000000001
Z = Tan(pi / Y) - L / (deltaMM * pi / Y * EI)
Do While (Z > 0)
a1 = Y
a3 = 2 * a1
Y = 2 * Y
Z = Tan(pi / Y) - L / (deltaMM * pi / Y * EI)
Loop
Do While a3 - a1 > 0.0001
a2 = Round((a1 + a3) / 2, 8)
Y = a2
Z = Tan(pi / Y) - L / (deltaMM * pi / Y * EI)
If Z > 0 Then
a1 = a2
Else
a3 = a2
End If
Loop
LiZhuJiSuanChangDu = a1
End Function
uj5u.com熱心網友回復：
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/40440.html
標籤：VBA
下一篇：類似郵件合并功能