- UID
- 15458
- 好友
注册时间2008-10-6
威望值 点
最后登录1970-1-1
激情值 点
积分2976
认证分 分
齿轮币 枚
回帖0
|
本帖最后由 刀疤五 于 2015-11-14 14:54 编辑
马版主出的题,必须跟进。
变量名及已知条件
法向模数 Mn
齿数 Z 19
法向压力角 An 20
分圆螺旋角 bn
径向变位系数 Xn
顶圆半径 Ra 7.5
导程 PT 94.24
顶高系数 han
公法线 Wk/K 5.1/3
端面变位系数 Mt
分度圆半径 Rd
中间过程变量 tmin,tmax,t2
函数 getwk_xn() 已知 Mn,Z,An,bn,Wk,K计算出变位系数Xn
解法是:假定分圆直径等于某个值如14,再去凑合已知条件
迭代求法很难,二分插值法简单。
Dim Mn, Z, An, bn, Xn, Ra, PT, han, Wk, K, Mt, Rd As Double
Dim tmin, tmax, t2 As Double
An = 20 * pi : Z = 19 : han = 1 : PT = 94.24 : Wk = 5.1 : K = 3:Ra=7.5 '已知条件符值
tmin = 6 : tmax = 8 '二分法起终值设定
For i = 1 To 30
Rd = (tmin + tmax) / 2
bn = Atan(pi * Rd * 2 / PT)
Mt = Rd * 2 / 19
Mn = Mt * Cos(bn)
Xn = getwk_xn(Mn, Z, An, bn, Wk, K)
t2 = Rd + (han + Xn) * Mn
If t2 > Ra Then
tmax = Rd
Else
tmin = Rd
End If
Next
结果是:Mn0.6288974 Bn23.474104 Xn0.5684783
|
评分
-
1
查看全部评分
-
|