逆函數可以 用表查 , 或是用牛頓法
Office excelalso with this moudle
Public Function Inverse_inv(value As Variant)
Dim ape As Double
Dim pe0 As Double
Dim pe1As Double
ape = (3 * value) ^ (1 / 3)
Do
If ape >= 1000000000# Then ape = PI / 2: Exit Do
pe0 = ape
pe1 = ape + (value + ape - Tan(ape)) / (Tan(ape) ^ 2)
ape = pe1
Loop Until Abs(pe1 - pe0) <= 0.0000001
Inverse_inv = ape
End Function 学习了谢谢各位前辈!:victory: 前辈可以连反渐开线函数一并说明,这样就更好了,谢谢! inv(a)=tan(a)-a ;a 是弧度值, inv(20)=tan(20)-20π/180=0.0149044。 也可以查表,查表比较直接,这个只多用于齿轮和链轮的设计,大部分情况是要反求a,这个比较难,如果运气好,查表可以查到一部分(因为表中的数据也不全),直接怎么算我也不会,你还得在网上找找其他的,网上有专门做的程序用来算这个值
页:
1
[2]