Function LiZhuJiSuanChangDu (deltaMM, EI, L) 'basic flexibility under pillar calculation length factor

Dim As Integer I
Dim a1, a2, a3, Y As Double
Const PI=3.14159
A1=2.000001
A3=2 * a1
Y=2.000001 mu 'initial assignment
DeltaMM=deltaMM + 0.0000000001

Z=Tan (PI/Y) - L/(deltaMM * PI/Y * EI)
Do the While (Z & gt; 0)
A1=Y
A3=2 * a1
Y=2 * Y
Z=Tan (PI/Y) - L/(deltaMM * PI/Y * EI)
Loop

The Do While a3 - a1 & gt; 0.0001
A2=Round (+ a3 (a1)/2, 8)
Y=a2
Z=Tan (PI/Y) - L/(deltaMM * PI/Y * EI)

If Z & gt; 0 Then
A1=a2
The Else
A3=a2
End the If
Loop
LiZhuJiSuanChangDu=a1

End the Function

CodePudding user response: