機械原理課程設計牛頭刨床設計1(編輯修改稿)
2025-07-22 19:44 本頁面
【文章內容簡介】 V3VCBvCVB4vaA3aKA4A3anA4atA4anCBac大小方向4順時針1. 根據(jù)以上方法同樣可以求出位置九的速度和加速度5項目位置v2vA23 vA2A3V3VCBvCVB4vaA3aKA4A3anA4atA4anCBac大小方向4.0829順時針90單位1/sm/s1/sm/s2 電算的程序FORM1Private Sub Command1_Click() Unload MeEnd SubPrivate Sub Command2_Click() EndEnd SubFORM2Option ExplicitDim n1, n2, m, z1, z2, l1, h, k, l2, l3, l4, l5, φ As DoubleDim v(), a(), sh() As DoubleDim d1, d2, ha, hf, hq, da1, da2, df1, df2, db1, db2, p, s, e, ao, c As DoubleDim hap, cp, α, i, θ, ω1, φ1, x1, x2, ch, sa, hgAs DoubleConst pi = Private Sub Command1_Click() If = Or = Or = Or = Or = Or = Or = Or = Or = Or = Then Beep MsgBox 請輸入全部數(shù)據(jù)！, 48, 提示！ Exit Sub End If n1 = Val() m = Val() z1 = Val() z2 = Val() l1 = Val() h = Val() k = Val() l2 = Val() l3 = Val() φ = Val() α = 20 hap = 1 cp = Dim aa1, aa2, aa3 As Double i = z2 / z1 d1 = m * z1: d2 = m * z2 ha = hap * m hf = (hap + cp) * m hg = ha + hf da1 = d1 + 2 * hap * m: da2 = d2 + 2 * hap * m df1 = d1 2 * hf: df2 = d2 2 * hf db1 = d1 * Cos(α * pi / 180): db2 = d2 * Cos(α * pi / 180) p = pi * m s = p / 2 e = s ao = (d1 + d2) / 2 c = cp * m θ = 180 * ((k 1) / (k + 1)) x1 = (17 z1) / 17 x2 = (17 z2) / 17 aa1 = Atn(da1 * Sqr(1 (db1 / da1) ^ 2) / db1) aa2 = Atn(da2 * Sqr(1 (db2 / da2) ^ 2) / db2) aa3 = aa1 ch = * (z1 * (Tan(aa1) Tan(α * pi / 180)) + z2 * (Tan(aa2) Tan(α * pi / 180))) / pi sa = (pi * m / 2) * da1 / d1 da1 * (Tan(aa3) aa3 Tan(α * pi / 180) + pi / 9) l4 = l3 * Sin(θ * pi / 360) l5 = h / (2 * Sin(θ * pi / 360)) n2 = z1 / z2 * n1 ω1 = n2 * 360 * pi /175/ 60 ReDim Preserve sh(0 To 360), v(0 To 360), a(0 To 360) For φ1 = 0 To 360 Call (φ1, v(φ1), sh(φ1), a(φ1)) Next φ1 = v(φ) = sh(φ) = a(φ) = True = True = True = True = True = TrueEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Command3_Click() 齒輪1分度圓直徑=。 d1 齒輪2分度圓直徑=。 d2 齒頂高=。 ha 齒根高=。 hf 齒全高=。 ho 齒輪1齒頂圓直徑=。 da1 齒輪2齒頂圓直徑=。 da2 齒輪1齒根圓直徑=。 df1 齒輪2齒根圓直徑=。 df2 齒輪1基圓直徑=。 db1 齒輪2基圓直徑=。 db2 齒距=。 p 齒厚=。 s 齒槽寬=。 E
環(huán)評公示相關推薦
鄂ICP備17016276號-1