【正文】 畫λ 1f 線 = λ1B + λ1f / 2 : = 2400: λ1f End If Next λ End Sub 49 Private Sub Command2_Click() End End Sub Private Sub Command3_Click() fm = Val(Text28) β = Val(Text24) z = Val(Text29) D1 = Val(Text31) D11 = Val(Text32) Temax = Val(Text30) A = * (D1 ^ 2 D11 ^ 2) / 4 P0 = 16 * β * Temax / ( * fm * z * (D1 ^ 2 D11 ^ 2) * (D1 + D11)) F = P0 * A = F = P0 / 10 ^ 6 End Sub Private Sub Form_Load() WindowState = 2 39。確定 C 點位置 F1 = ( * e * h0 * λ1C / (6 * (1 u ^ 2))) * (Log(R0 / r00) / Log(10) / (R1 r11) ^ 2) * ((H λ1C * (R0 r00) / (R1 r11)) * (H λ1C / 2 * (R0 r00) / (R1 r11)) + h0 ^ 2) = RGB(150, 50, 100) (λ1C, 0)(λ1C, F1) = λ1C + : = 400: λ1C = λ1C: = F1 + 450: C = F1 39。確定 A 點位置 F1 = ( * e * h0 * λ1A / (6 * (1 u ^ 2))) * (Log(R0 / r00) / Log(10) / (R1 r11) ^ 2) * ((H λ1A * (R0 r00) / (R1 r11)) * (H λ1A / 2 * (R0 r00) / (R1 r11)) + h0 ^ 2) 48 = vbGreen = λ1A : = 400: λ1A (λ1A, 0)(λ1A, F1) (0, F1)(λ1A, F1) = : = F1 + 700: F1A = λ1A: = F1 + 500: A = F1A = λ1A (λ 1A, 2021)(λ 1B, 2021), vbYellow 39。求 B點 = : = F1 300: F1B = λ1B: = F1 + 400: B = λ1H = λ1B = F1 39。求拐點 H B = * e * H ^ 2 * h0 * Log(R0 / r00) / Log(10) / (R1 r11) ^ 2 / 6 / (1 u ^ 2) C = * e * h0 ^ 3 * Log(R0 / r00) / Log(10) / 6 / (1 u ^ 2) / (R1 r11) ^ 2 D = (R0 r00) * (R1 ^ 2 2 * R1 * r11 + r11 ^ 2 R0 + r00) * * e * h0 * Log(R0 / r00) / Log(10) / 12 / (1 u ^ 2) / (R1 r11) ^ 4 47 F2 = 6 * D * λ 2 * A 39。求 極大值 (λ, 0)(λ, F1) = λ: = 400: λ1M = λ: = F1 + 400: M λ1M = λ = λ1M End If If F11 F1 And F12 F1 Then 39。λ1f= Zc*ΔS, For λ = 0 To 10 Step F1 = ( * e * h0 * λ / (6 * (1 u ^ 2))) * (Log(R0 / r00) / Log(10) / (R1 r11) ^ 2) * ((H λ * (R0 r00) / (R1 r11)) * (H λ / 2 * (R0 r00) / (R1 r11)) + h0 ^ 2) (λ, F1), vbRed = 2 39。畫縱坐標軸刻度線 (0, 1000 * i)(, 1000 * i) = 1: = 1000 * i + 150: 1000 * i Next i 45 = : = 200: 0 = : = 10700: F1(N) = : = 200: λ(mm) R0 = Val(Text1) r00 = Val(Text2) e = 210000 u = H = Val(Text5) h0 = Val(Text6) R1 = Val(Text7) r11 = Val(Text8) = H / h0 = R0 / r00 Zc = Val(Text19) ΔS0 = Val(Text20) ΔS = Val(Text21) Δλ = Zc * ΔS0 λ1f = Zc * ΔS = Δλ 39。畫縱坐標箭頭 (, 10500)(0, 11000) For i = 1 To 10 39。 35 36 37 38 39 40 41 42 43 程序截圖： 44 程序代碼： Option Explicit Dim e, u, i Dim R0, r00, H, h0 Dim R1, r11 Dim F1, F2, λ, F11, F12, A1, B, C, D, m, n, x, λ1M, λ1N, λ1B, λ1H, λ1f, λ1A, λ1C, ΔS0, ΔS, Zc, Δλ, ε, F, fm, β, D1, D11, Temax, z, P01, A Dim p Dim P0 As Single Private Sub Command1_Click() (, 12021)(12, 2300) (1, 0)(11, 0): (0, 11000)(0, 2021) (, 150)(11, 0) 39。在制圖過程中，正是他們給了我很多很好的建議。如果不是他們及時地指出我錯誤，我就會花費大得多的精力，卻只是事倍功半。 33 參考文獻： [1] 紀名剛，濮良貴 機械設計 第八版 高等教育出版社 1996 年 [2] 鞏云鵬 ,田萬祿 ,張祖立 機械設計課程設計 第 1 版 東北大學出版社 2021 年 [3] 王望予 汽車設計 第 4版 機械工業(yè)出版社 2021 年 [4] 陳家瑞 汽車構造 (下冊 ) 第 2 版 機械工業(yè)出版社 [5] 劉惟信 汽車設計 清華大學出版社 第 1版 清華大學出版社 [6] 徐安石 江發(fā)潮編著 汽車離合器 清華大學出版社 [7]紀名剛，陳國定，吳立言 機械設計 第 8 版 高等教育出版社 2021 年 34 致 謝 本次課程設計是大學里的最后一次課程設計，也是學生時代的最后一次設計。計算得分離離合器所做的功 WL為 WL=（ +）2103/85%= J 在規(guī)定的踏板力和行程的允許范圍內，駕駛員分離離合器所作的功不應大于 30 J。所設計踏板力 Ff= N 符合要求。 校核踏板力 踏板力 Ff可按下式計算： 式中， F＇為離合器分離時，壓盤上的總工作壓力根據膜片彈簧各參數可得 F＇ =F1C=； i∑為操縱機構總傳動比 15165033 222111122222 ???? ?????? dcba dcbai N； η為機械效率， η=80%～ 90%，我們取 η=85%； Fs克服膜片彈簧的拉力所需的踏板力，在初步設計時可忽略之。從有關方面獲得的人體工程學資料可知，踏板總行程應在80～ 150mm 范圍內。綜上所述并根據校核 S1= 符合 25mm＜ S1＜ 50mm 的要求。 校核踏板行程（自由行程，工作行程，總行程） （ 1） 自由行程校核 由 61 公式可知，自由行程 S1為 S1 =Sofa2b2（ d2） 2/[ a1b1（ d1） 2] =324075（ 3350152） = 為了使離合器在所有情況下都能徹底分離以免造成變速器換擋時的齒輪撞擊、換擋力增加等，至少應留 25mm 的踏板行程，即自由行程。其中 r1=c2+rf=103mm,R1=c1+c2+rf=119 mm。d =10 4. 操縱機構設計 操縱機構結構形式選擇 本次設計采用機械操縱機構。 39。則 ?2R (12) 限位銷直徑 限位銷直徑 39。m in0 ????