【導(dǎo)讀】應(yīng)用了鏈傳動(dòng)傳動(dòng)裝置。因此，對鏈傳動(dòng)的設(shè)計(jì)是十分重要和必要的。的一種相當(dāng)有效的、能尋找出最優(yōu)結(jié)果的設(shè)計(jì)方法。該設(shè)計(jì)仍然運(yùn)用了傳統(tǒng)的機(jī)。軟件，該軟件能極大地提高工作效率和設(shè)計(jì)精度，并能很大程度地減少工作時(shí)間。鏈板疲勞強(qiáng)度限定的額定功率0?

　　

【正文】 J].哈爾濱制藥總廠 ,2020； 310～ 330 ［ 10］陳立周 .機(jī)械設(shè)計(jì)優(yōu)化方法 [J].北京大學(xué)學(xué)報(bào) .1988（ 3）； 370～ 390 ［ 11］周藹如 ,官士鴻 ,林偉建 .《 Visual Basic 程序設(shè)計(jì)》 [M].電子工業(yè)出版社 , ［ 12］李小平 .高轉(zhuǎn)速高精度鏈傳動(dòng)優(yōu)化設(shè)計(jì)的研究 [J].常州信息職業(yè)技術(shù)學(xué)院學(xué)報(bào) ,2020（ 3）； 110～ 140 ［ 13］吳原生 .許和變 .形狀優(yōu)化設(shè)計(jì)算法的探討 [J].華北工學(xué)院?？茖W(xué)校學(xué)報(bào) ,1992（ 6）； 210～ 230 ［ 14］謝新平 .機(jī)械優(yōu)化設(shè)計(jì) [J].江西省農(nóng)業(yè)機(jī)械研究所 ,1998； 70～ 110 ［ 15］胡自化 .基于 Visual Basic 開發(fā)機(jī)械優(yōu)化設(shè)計(jì) CAI 系統(tǒng) [J].湘潭大學(xué)學(xué)報(bào) ,1999（ 5）； 100～ 110 ［ 16］賈瑞芬 ,張翔 .優(yōu)化設(shè)計(jì)方法的發(fā)展與應(yīng)用情況 [J].福建農(nóng)林大學(xué) ,機(jī)電工程學(xué)院學(xué)報(bào) ,2020（ 2）； 102～ 130 附錄 1 程序清單 Public a As Single, z1 As Single, n1 As Single, P1 As Single, p As Single, Pca As Single, i1 As Single, Q1 As Single, q As Single, f As Single, m As Single, w As Single, kz As Single, kf As Single, aa As Single, pp As Single, zz As Single Private Sub Command1_Click() MsgBox 1，從動(dòng)機(jī)平穩(wěn)，主動(dòng)機(jī)平穩(wěn)， ka= 2,從動(dòng)機(jī)平穩(wěn)，主動(dòng)機(jī)輕微沖擊， ka= 3,從動(dòng)機(jī)平穩(wěn)，主動(dòng)機(jī)中等沖擊 ka= 4,從動(dòng)機(jī)中等沖擊，主動(dòng)機(jī)平穩(wěn) ka= 5, 從動(dòng)機(jī)中等沖擊，主動(dòng)機(jī)輕微沖擊 ka= 6,從動(dòng)機(jī)中等沖擊，主動(dòng)機(jī)中等沖擊 ka= 7,從動(dòng)機(jī)嚴(yán)重沖擊，主動(dòng)機(jī)平穩(wěn) ka= 8, 從動(dòng)機(jī)嚴(yán)重沖擊，主動(dòng)機(jī)輕微沖擊 ka= 9, 1從動(dòng)機(jī)嚴(yán)重沖擊，主動(dòng)機(jī)中等沖擊 ka= End Sub Private Sub Command3_Click() 39。計(jì)算按鈕 39。 Q1 = Val() m = Val() q = Val() n1 = Val() P1 = Val() i1 = Val() Select Case m Case 1 ka = 1 Case 2 ka = Case 3 ka = Case 4 ka = Case 5 ka = Case 6 ka = Case 7 ka = Case 8 ka = Case 9 ka = Case Else MsgBox 輸入錯(cuò)誤，請重新輸入 ! End Select Dim min As Double min = 1E+19 Dim i As Single Dim j As Single Dim k As Single For i = 10 To 60 Step 1 For j = 10 To 10000 Step 40 For k = 8 To Step 4 If (10 = i And i = 20) Then kz = / 10 * (i 10) + ElseIf (20 i And i = 30) Then kz = / 10 * (i 20) + ElseIf (30 i And i = 40) Then kz = / 10 * (i 30) + ElseIf (40 i And i = 50) Then kz = / 10 * (i 40) + ElseIf (50 i And i = 60) Then kz = / 10 * (i 50) + End If f = 17 w = f / 100 * j 39。確定垂度系數(shù) 39。 If ( = w And w = ) Then kf = 4 / * (w ) + 30 ElseIf ( w And w = 1) Then kf = 13 / * (w ) + 26 ElseIf (1 w And w = ) Then kf = 5 / * (w 1) + 13 ElseIf ( w And w = 3) Then kf = / * (w ) + 8 ElseIf (3 w And w = 5) Then kf = / 1 * (w 2) + ElseIf (5 w And w = 10) Then kf = / 2 * (w 3) + End If Pca = ka * kz * P1 39。確定計(jì)算功率 39。 If g1(i) = 0 And g2(i) = 0 And g3(j, k) = 0 And g4(j, k) = 0 And g5(i, k) = 0 And g6(i, k) = 0 And g7(j, k, i) 10 And g7(j, k, i) 10 Then If (i1 + 1) / 2 * k ^ 2 * i1 / (Sin( / i)) ^ 2 + j * k * i1 / (Sin( / i)) ^ 2 min Then min = (i1 + 1) / 2 * k ^ 2 * i1 / (Sin( / i)) ^ 2 + j * k * i1 / (Sin( / i)) ^ 2 pp = k aa = j zz = i End If End If Next k Next j Next i = aa = zz = pp End Sub Function g1(x) g1 = x 17 End Function Function g2(x) i1 = Val() g2 = 120 i1 * x End Function Function g3(x, y) g3 = x / y 30 End Function Function g4(x, y) g4 = 50 x / y End Function Function g5(x, y) n1 = Val() g5 = x * y * n1 / 60000 End Function Function g6(x, y) n1 = Val() g6 = 15 x * y * n1 / 60000 End Function Function g7(x, y, z) i1 = Val() zz1 = (z * z / 4) / x zz2 = ((i1 1) * y / ) ^ 2 If (2 * x / z + zz2 * z / x) ^ 2 8 * zz2 0 Then g7 = 1000000000 Else g7 = x * zz1 z / 4 * Sqr((2 * x / z + zz2 * z / x) ^ 2 8 * zz2) End If End Function Function g8(x, y) n1 = Val() g8 = Pca * x ^ * n1 ^ * (y / ) ^ (3 * y) End Function Function g9(x, y, z) q = Val() P1 = Val() Q1 = Val() g9 = Q1 / ((ka * P1 * 60000000 / x * n1 * y) + (q * x ^ 2 * n1 ^ 2 * y ^ 2 / 3600000000) + (kf * q * z * 100)) 6 End Function Private Sub Command2_Click() 39。退出按鈕 End End Sub Private Sub Command4_Click() 39。設(shè)置“清除”按鈕 = = = = = = = = = = End Sub