【2017年整理】导杆机构.docVIP

导杆机构 Private Sub Form_CLICK() Dim l1, l4, w1, v23, φ3, φ1, S, w3, a23, α3, i As Single l1 = 0.2 l4 = 0.5 w1 = 10 i = 3.14 / 6 For φ1 = 0 To 6.28 Step i φ3 = Atn((l1 * Sin(φ1) + l4) / (l1 * Cos(φ1))) v23 = -l1 * w1 * Sin(φ1 - φ3) S = l1 * Cos(φ1) / Cos(φ3) w3 = l1 * w3 * Cos(φ1 - φ3) / S a23 = S * w3 ^ 3 - l1 * w1 ^ 2 * Cos(φ1 - φ3) α3 = -2 * (2 * v23 * w3 + l1 * w1 ^ 2 * Sin(φ1 - φ3)) / S Print φ1; v23; φ3; S; w3; a23; α3 Next End Sub Private Sub Form_click() Dim e, r1, r2, h, m1, m2, φ, s, v, a, x0, x1, x2, y0, y1, y2, i, w As Single e = 10 r1 = 40 h = 30 m1 = 150 m2 = 120 w = 1 i = 3.14 / 6 For φ = 0 To 6.28 Step i If φ = 3.14 Then s = h / m1 * φ v = h * w / m1 a = 0 Else s = h / (1 - m2 * φ) v = -h * w / m1 a = 0 End If x0 = (s0 + s) * Sin(φ) + e * Cos(φ) y0 = (s0 + s) * Cos(φ) - e * Sin(φ) x1 = x0 + r2 * ((h * Cos(φ) / m - x0) / Sqr(x0 ^ 2 + y0 ^ 2 + (h / m) ^ 2 + 2 * h * y0 * Sin(φ) / m - 2 * x0 * h * Cos(φ) / m)) x2 = x0 - r2 * ((h * Cos(φ) / m - x0) / Sqr(x0 ^ 2 + y0 ^ 2 + (h / m) ^ 2 + 2 * h * y0 * Sin(φ) / m - 2 * x0 * h * Cos(φ) / m)) y1 = y0 - r2 * ((h * Sin(φ) / m + y0) / Sqr(x0 ^ 2 + y0 ^ 2 + (h / m) ^ 2 + 2 * h * y0 * Sin(φ) / m - 2 * x0 * h * Cos(φ) / m)) y2 = y0 + r2 * ((h * Sin(φ) / m + y0) / Sqr(x0 ^ 2 + y0 ^ 2 + (h / m) ^ 2 + 2 * h * y0 * Sin(φ) / m - 2 * x0 * h * Cos(φ) / m)) Print x0, y0, x1, y1 Next φ End Sub ………………………………………………… …………………………………………………装………………………………订………………………………………线……………………………… 密封线内不要答题 学校 学校 班别 姓名_________________ 学号 密封线内不要答题 …………………………………………装………………………………订………………………………………线……………………………………………… 八年级生物试卷 第3页 （共6页） 八年级生物试卷 第4页 （共6页） 八年级生物试卷 第5页 （共6页）