invα在手册中有表可查
当手头没有手册, 则可按下式计算:
invα=tgα-α
等号右边第一项的 α是角度值, 而第二项, α是弧度值, 计算时
很不方便。为此, 将此式改为
invα=tgα- απ/180
则可直接利用计算器来计算, 很为方便。
发一个改了文件代码的文件,下载后把代码从“.txt”改为“.exe”就可直接使用了。
这个工具不错,可以算出来,就是关闭程序有点不太自然,还可以再完善一下,谢谢!
α XTT α 是角度值,TT是3.1415926。明白没啊?
用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
[ ]