齒輪漸開線函數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

這個程序能用嗎