齿轮渐开线函数invα是如何计算的？---求助
请问各位大侠，齿轮渐开线函数invα是如何计算的？ invα在手册中有表可查当手头没有手册, 则可按下式计算:
invα=tgα-α
等号右边第一项的 α是角度值, 而第二项, α是弧度值, 计算时
很不方便。为此, 将此式改为
invα=tgα- απ/180
则可直接利用计算器来计算, 很为方便。
回复 2# 的帖子
谢啦，楼上的！:)疑问又来啦！！这《Binvα=tgα- απ/180》公式里面得αTT是什么意思哦？
还请指点。偶是菜鸟一只 α XTT α 是角度值，TT是3.1415926。明白没啊？ 发一个改了文件代码的文件，下载后把代码从“.txt”改为“.exe”就可直接使用了。 用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 编辑 ]