等滑动率分配变位系数思路及程序实现的分析（附VB代码）

坛子里好多人不知道变位系数等滑动率分配的算法，通过一些分析，我将思路整理如下：
大家仔细观察一下最大滑动率公式，会发现在只改变变位系数的情况下，滑动率随着齿顶圆直径的增大而减小，而齿顶圆直径又随着变位系数的增大而增大，那么就可以得出结论：变位系数增大，会导致最大滑动率减小.
既然是单调函数，那怎么编程就不用我说了吧。
还是和我上次传的反渐开线函数一样，二分法就可以解决了。
我已用此思路编写程序，成功的分配出等滑动率变位系数。
希望对大家有所帮助。

附上VB用的核心代码：
Do
    Count = Count + 1
    tmp_T = (tmp_a + tmp_b) / 2#
    Stmp1 = GetEtaSimple(ap, z2, Xsum - tmp_T) - GetEtaSimple(ap, z1, tmp_T)
    If Stmp1 > 0 Then
        tmp_a = tmp_T
    Else
        tmp_b = tmp_T
    End If
    If (Abs(Stmp1) < 0.000000001 Or Count > 10000) Then Exit Do
Loop

楼主观点鲜明，值得称道！

“Stmp1 = GetEtaSimple(ap, z2, Xsum - tmp_T) - GetEtaSimple(ap, z1, tmp_T)”
这一句是计算两个滑动率的差值，其中“GetEtaSimple(ap, z2, Xsum - tmp_T)”是不是一个自定义的函数？

zcbmqa1520 发表于 2023-3-8 14:52
“Stmp1 = GetEtaSimple(ap, z2, Xsum - tmp_T) - GetEtaSimple(ap, z1, tmp_T)”
这一句是计算两个滑动率 ......

那个函数就是计算滑动率的函数，自定义的，照着公式写起来很容易

请参考机械设计手册 第三卷 14-28
牛爷的程序吧！！！
跟你的是一样的，

二分法是个好东西，求等滑动也可以用AGMA 913上的公式计算，也是需要用迭代的

提供的链接不好用

楼主提供学习方法不错，软件，教程一起都有，挺好

我准备在EXCELL里面实现计算，有没有前辈已做好的？

好东东，谢谢楼主分享。