【導(dǎo)讀】制造業(yè)是推動國民經(jīng)濟發(fā)展的主要動力。2020年中國制造業(yè)的增加值為134625億元，占當年GDP的?？梢哉f是中國經(jīng)濟增長的主要源泉。但是在機械制造業(yè)方面，還存在。信息化，以信息化帶動工業(yè)化，提高我國制造業(yè)的整體素質(zhì)和競爭力。和效率已成為提高機械產(chǎn)品質(zhì)量和效率的關(guān)鍵。以各種數(shù)字化設(shè)計理念與方法。品開發(fā)時間縮短了60%；通用發(fā)動機廠使設(shè)計修改量減少了75%等等。總的趨勢是小型化、高速化、低噪音、高可靠度。本課題就是通過對行星齒輪機構(gòu)的設(shè)計和計算。以實現(xiàn)在不同的參數(shù)和要求的情況。下能夠快速的、較為精確的得出齒輪所需的各種參數(shù)，從而以減少零件的種數(shù)，較高的經(jīng)濟效益。且采用一定的算法，用VB編寫出程序來實現(xiàn)其參數(shù)化的設(shè)計過程。根據(jù)設(shè)計原理和設(shè)計要求建立約束條件；程序所得出的設(shè)計參數(shù)是否合理，是否全局最優(yōu);行星齒輪傳動與普通齒輪傳動相比較，它具有許多獨特的優(yōu)點。同軸性，即輸出軸與輸入軸均設(shè)置在同一主軸線上。所以，行星齒輪傳動現(xiàn)已

　　

【正文】 End If If jd = 8 Then KHB = * Da + KFb = * KHB + KHB2 = * Dc + KFb2 = * KHB2 + End If K1 = KA * Kv * KA1 * KHB Da = Da * (K1 / ) ^ (1 / 3) m1 = Da / Za 39。按齒面接觸強度計算出的 ac 傳動的模數(shù) K12 = KA * Kv * KA1 * KHB2 Dc = Dc * (K12 / ) ^ (1 / 3) m3 = Dc / Zc 39。按齒面接觸強度計算出的 cb傳動的模數(shù) 39。按齒根彎曲強度計算 If N = 10000 Then KFN = 39。確定 ac 彎曲疲勞壽命系數(shù) 31 KFN,機械設(shè)計 C 語言程序設(shè)計 P106 ElseIf N 3000000 Then KFN = 1 Else: KFN = 5 * (10 ^ (7)) * N + End If If N2 = 10000 Then KFN2 = 39。確定 cb 彎曲疲勞壽命系數(shù)KFN2,機械設(shè)計 C 語言程序設(shè)計 P106 ElseIf N2 3000000 Then KFN2 = 1 Else: KFN2 = 5 * (10 ^ (7)) * N2 + End If WH = KFN * KH2 / 39。計算彎曲疲勞許用應(yīng)力 WH，彎曲疲勞安全系數(shù)取 K2 = KA * Kv * KA1 * KFb WH2 = KFN2 * KH2 / K22 = KA * Kv * KA1 * KFb2 If Za = 17 Then YFa = YSa = YFa2 = YSa2 = ElseIf Za = 18 Then YFa = YSa = YFa2 = YSa2 = ElseIf Za = 19 Then YFa = YSa = YFa2 = YSa2 = ElseIf Za = 20 Then YFa = YSa = YFa2 = YSa2 = ElseIf Za = 21 Then YFa = YSa = 32 YFa2 = YSa2 = ElseIf Za = 22 Then YFa = YSa = YFa2 = YSa2 = ElseIf Za = 23 Then YFa = YSa = YFa2 = YSa2 = ElseIf Za = 24 Then YFa = YSa = YFa2 = YSa2 = ElseIf Za = 25 Then YFa = YSa = YFa2 = YSa2 = ElseIf Za = 26 Then YFa = YSa = YFa2 = YSa2 = ElseIf Za = 27 Then YFa = YSa = YFa2 = YSa2 = ElseIf Za = 28 Then YFa = YSa = YFa2 = YSa2 = ElseIf Za = 29 Then YFa = YSa = YFa2 = YSa2 = ElseIf Za = 30 Then YFa = 33 YSa = YFa2 = YSa2 = ElseIf Za = 35 Then YFa = YSa = YFa2 = YSa2 = ElseIf Za = 40 Then YFa = YSa = YFa2 = YSa2 = ElseIf Za = 45 Then YFa = YSa = YFa2 = YSa2 = ElseIf Za = 50 Then YFa = YSa = YFa2 = YSa2 = ElseIf Za = 60 Then YFa = YSa = YFa2 = YSa2 = ElseIf Za = 70 Then YFa = YSa = YFa2 = YSa2 = ElseIf Za = 80 Then YFa = YSa = YFa2 = YSa2 = ElseIf Za = 90 Then YFa = YSa = YFa2 = YSa2 = ElseIf Za = 100 Then 34 YFa = YSa = YFa2 = YSa2 = ElseIf Za = 150 Then YFa = YSa = YFa2 = YSa2 = ElseIf Za = 200 Then YFa = YSa = YFa2 = YSa2 = Else YFa = YSa = YFa2 = YSa2 = End If 39。此 if語句求出的是 ac傳動的齒形系數(shù)和應(yīng)力校正系數(shù) m2 = (((KFb * KA * T / (CK1 * Za * Za)) * (YFa * YSa / WH))) ^ (1 / 3) m4 = (((KFb2 * KA * T / (CK2 * Zc * Zc)) * (YFa2 * YSa2 / WH2))) ^ (1 / 3) Dim ms(1 To 4) As Integer, temp As Integer Dim i1, ji As Integer ms(1) = m1 ms(2) = m2 ms(3) = m3 ms(4) = m4 For i1 = 4 To 2 Step 1 For j1 = 1 To i1 1 If ms(j1) ms(j1 + 1) Then temp = ms(j1 + 1): ms(j1 + 1) = ms(j1): ms(j1) = temp End If Next j1 Next i1 m = ms(4) If m Then m = ElseIf m Then 35 m = ElseIf m Then m = ElseIf m Then m = ElseIf m Then m = ElseIf m Then m = ElseIf m Then m = ElseIf m Then m = ElseIf m Then m = ElseIf m 1 Then m = 1 ElseIf m Then m = ElseIf m Then m = ElseIf m 2 Then m = 2 ElseIf m Then m = ElseIf m Then m = ElseIf m 3 Then m = 3 ElseIf m 4 Then m = 4 ElseIf m 5 Then m = 5 ElseIf m 6 Then m = 6 ElseIf m 8 Then m = 8 ElseIf m 10 Then m = 10 ElseIf m 16 Then m = 16 ElseIf m 20 Then m = 20 ElseIf m 25 Then 36 m = 25 ElseIf m 32 Then m = 32 ElseIf m 40 Then m = 40 Else m = 50 End If Da1 = m * Za b1 = Int(CK * Da) Dc1 = m * Zc Db1 = m * Zb VL(x) = * (Da1 * Da1 / 4) * (b1 + 2) + * (Dc1 * Dc1 * 3 / 4) * b1 Else End If Next x x1 = 17 For x = 17 To 99 If VL(x + 1) VL(x) Then x1 = x + 1 Else: End If Next x 39。下面開始計算體積最小時的 m及尺寸參數(shù) Za = x1 39。齒數(shù)計算開始 Zb = (i 1) * Za 39。由傳動比公式得到 39。裝配條件肯定滿足 If (Zb Za) Mod 2 0 Then = 角變位傳動 Else = 標準或高變位傳動 End If Zc = (Zb Za) \ 2 39。同心條件 = Za = Zc = Zb If = 均勻平穩(wěn) Then 39。確定使用系數(shù) KA KA = 1 ElseIf = 輕微沖擊 Then 37 KA = ElseIf = 中等沖擊 Then KA = ElseIf = 嚴重沖擊 Then KA = End If P1 = Val() V =