齿轮渐开线函数invα是如何计算的？---求助

c37892113

请问各位大侠，齿轮渐开线函数invα是如何计算的？

疯子

invα在手册中有表可查
当手头没有手册, 则可按下式计算:
invα=tgα-α
等号右边第一项的 α是角度值, 而第二项, α是弧度值, 计算时
很不方便。为此, 将此式改为
invα=tgα- απ/180
则可直接利用计算器来计算, 很为方便。

c37892113

谢啦，楼上的！

浙江机械必威体育网址

还请指点。偶是菜鸟一只

旬倩

α XTT    α 是角度值，TT是3.1415926。明白没啊？

笑天716

发一个改了文件代码的文件，下载后把代码从“.txt”改为“.exe”就可直接使用了。

zzz8662

用VB实现反求渐开线函数方程的根
Public Function Inv(a As Double) As Double
Inv = Tan(a) - a
End Function

Public Function AInv(num As Double) As Double
Dim lowangle As Double
Dim highangle As Double
Dim midangle As Double
lowangle = 0
highangle = Atn(1) * 2
Do While highangle - lowangle > 10 ^ -12
midangle = (lowangle + highangle) / 2
If Inv(midangle) > num Then
highangle = midangle
Else
lowangle = midangle
End If
Loop
AInv = (lowangle + highangle) / 2 / Atn(1) * 45
End Function

加个牛顿法的
Public Function AInv2(num As Double) As Double
Dim x1 As Double
Dim x2 As Double
x2 = Atn(1)
Do
x1 = x2
x2 = x1 - (Tan(x1) - x1 - num) / (1 / Cos(x1) ^ 2 - 1)
Loop While Abs(x2 - x1) > 10 ^ -12
AInv2 = x2 / Atn(1) * 45
End Function

[ 本帖最后由 zzz8662 于 2008-9-15 17:48 编辑 ]

liufwng

这个工具不错，可以算出来，就是关闭程序有点不太自然，还可以再完善一下，谢谢！

guojinhuang

这个程序能用吗

ericdan

这个程序能用吗