vb如何分配齿轮变位系数

zyuchen

哪位大侠知道用vb如何书写下面求X1的代码！谢谢！邮箱zminzhu@163.com

外啮合渐开线圆柱齿轮传动计算
     --给定中心距
输入数据
1 模数:  mn=1.75
2 齿数:  z1=16
   z2=43
3 螺旋角:  helix=19+31/60+33/3600= 19.5258333333333
4 基本齿廓
齿形角:   an=20
齿顶高系数:  ha_m=1.0
径向间隙系数:  c_m=0.25
齿根圆角半径系数: p_m=0.38
5 工作中心距: a_work=54.275
6 精度等级: pgrade=7
7 齿宽:  gw1=25
   gw2=20
8 工作齿宽: gw_work=MIN[gw1,gw2]= 20
9 当量齿数: zv1=z1/(cos(helix)^3)= 19.111223880291
    zv2=z2/(cos(helix)^3)= 51.3614141782821
10 传动比:  u=z2/z1= 2.6875
主要几何参数计算
1 分度(标准)中心距: a_bz=(z1+z2)*mn/cos(helix)*0.5= 54.7750652796414
2 中心距变动系数: ya=(a_work-a_bz)/mn= -0.2857515883665
3 端面齿形角:  at=atan(tan(an)/cos(helix))= 21.1155161391519
4 端面啮合角:  at1=acos[a_bz/a_work*cos(at)]= 19.7033347150266
5 变位系数和:  x_sum=[(z1+z2)*(inv(at1)-inv(at))/(2*tan(an))]= -0.2767334599442
6 补偿变位系数:  deta_y=x_sum-ya= 0.0090181284223
7 分度圆直径:  d1=mn*z1/cos(helix)= 29.7085099821784
    d2=mn*z2/cos(helix)= 79.8416205771045
8 基圆直径:  db1=d1*cos(at)= 27.7137621059231
    db2=d2*cos(at)= 74.4807356596683
9 分配变位系数(原则:大小轮的滑动比相等):
x1=rote[x1,-1 to 1,(1+u)*(tan(acos(db2/(d2+2*mn*(ha_m+x_sum-x1-deta_y))))-tan(at1))/(tan(at1)-u*(tan(acos(db2/(d2+2*mn*(ha_m+x_sum-x1-deta_y))))-tan(at1)))-(1+u)*(tan(acos(db1/(d1+2*mn*(ha_m+x1-deta_y))))-tan(at1))/(u*tan(at1)-(tan(acos(db1/(d1+2*mn*(ha_m+x1-deta_y))))-tan(at1)))]= 0.2738631591201
也可以自选小轮变位系数: x1=x1= 0.2738631591201

fuguangyi

这个是要用逼近法，大小齿轮滑动率接近相等时，可以得到大小齿轮的变位系数的，

mcray23

机械设计手册 第五版第三卷 14章的变位系数这节有相关代码可供参考
一般研究下都会

mcray23

:L
看错了
原来楼主是要翻译成VB啊。。。
那我帮不了

纪永君

rote这个符号是什么意思
应该是说程序不难，但是需要知道数学代号的意义

春暖秋凉

很好，帮顶一个。