【文件属性】:
文件名称:机械设计带轮辅助计算
文件大小:76KB
文件格式:EXE
更新时间:2021-02-15 05:44:55
机械设计
ElseIf aa1 > 170 Then
kaa = 0.98
ElseIf aa1 > 165 Then
kaa = 0.96
ElseIf aa1 > 160 Then
kaa = 0.95
ElseIf aa1 > 155 Then
kaa = 0.93
ElseIf aa1 > 150 Then
kaa = 0.92
ElseIf aa1 > 145 Then
kaa = 0.91
ElseIf aa1 > 140 Then
kaa = 0.89
ElseIf aa1 > 135 Then
kaa = 0.88
ElseIf aa1 > 130 Then
kaa = 0.86
ElseIf aa1 > 125 Then
kaa = 0.84
Else
kaa = 0.82
End If
pr = (p0 + ap0) * kaa * kl
z = pc / pr
If z - Int(z) = 0 Then
z = Int(z)
Else
z = Int(z) + 1
End If
End If
f0 = 500 * (2.5 - kaa) * pc / (kaa * z * v) + (v * v * 0.105)
fp = 2 * z * f0 * Sin(aa1 / (2 * 180) * pai)
OLE1.object.Parent.Cells(s + 2, 1