- UID
- 58214
- 好友
注册时间2010-9-27
威望值 点
最后登录1970-1-1
激情值 点
积分1055
认证分 分
齿轮币 枚
回帖0
|

楼主 |
发表于 2011-12-7 22:44
|
显示全部楼层
270286036 发表于 2011-12-7 20:25
我怎么看不到呀
已知跨棒距M值求变位系数
齿轮类型(外或内):type="内齿轮"
模数: mn=5
齿数: z1=58
齿形角: an=20
螺旋角: helix=0
量棒直径: dp=8.64
量棒跨距M值: M1=284.07
端面齿形角: at=atan(tan(an)/cos(helix))= 20
分度圆直径: d1=mn*z1/cos(helix)= 290
量棒中心所在圆的压力角:
if(type eq "外齿轮")
aD=among[ceil(z1/2) eq z1/2,acos(d1*cos(at)/(M1-dp)),acos(d1*cos(at)*cos(90/z1)/(M1-dp))]= 29.3222
else
aD=among[ceil(z1/2) eq z1/2,acos(d1*cos(at)/(M1+dp)),acos(d1*cos(at)*cos(90/z1)/(M1+dp))]= 21.4099
end if
?变位系数:
if(type eq "外齿轮")
x1=[inv(aD)-dp/(z1*mn*cos(an))-inv(at)+pi/(2*z1)]*z1/(2*tan(an))= 0.6845
else
x1=[inv(aD)+dp/(z1*mn*cos(an))-inv(at)-pi/(2*z1)]*z1/(2*tan(an))= 0.6486
end if
以是内容,复制到计算不求人里即可使用。
保存为文件,下次打开还可以使用。 |
|