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 [ ]