機(jī)械原理旋轉(zhuǎn)型灌裝機(jī)設(shè)計(jì)-(參考版)
2025-07-03 04:47本頁面
【正文】 判斷BD線段與x軸的夾角 If y21 0 Then fi = pi / 2 ElseIf y21 = 0 Then MsgBox B、D兩點(diǎn)重合，不能確定 Else: fi = 3 * pi / 2 End IfElse If x21 0 Then fi = Atn(y21 / x21) + pi ElseIf y21 = 0 Then fi = Atn(y21 / x21) Else: fi = Atn(y21 / x21) + 2 * pi End IfEnd IfEnd SubSub RRP運(yùn)動(dòng)分析子程序(m, xB, yB, vBx, vBy, aBx, aBy, xP, yP, vPx, vPy, aPx, aPy, _ L2, fi3, omega3, epsilon3, xC, yC, vCx, vCy, _ aCx, aCy, fi2, omega2, epsilon2, sr, vsr, asr)Dim pi, d2, e, F, yCB, xCB, E1, F1, Q, E2, F2pi = Atn(1) * 4d2 = ((xB xP) ^ 2 + (yB yP) ^ 2)e = 2 * (xP xB) * Cos(fi3) + 2 * (yP yB) * Sin(fi3)F = d2 L2 ^ 2If e ^ 2 4 * F ThenMsgBox 此位置不能裝配GoTo n1ElseEnd IfIf m = 1 Thensr = Abs((e + (e ^ 2 4 * F) ^ ) / 2)Else: sr = Abs((e (e ^ 2 4 * F) ^ ) / 2)End IfxC = xP + sr * Cos(fi3)yC = yP + sr * Sin(fi3)yCB = yC yBxCB = xC xBCall atn1(xB, yB, xC, yC, fi2)E1 = (vPx vBx) sr * omega3 * Sin(fi3)F1 = (vPy vBy) + sr * omega3 * Cos(fi3)Q = yCB * Sin(fi3) + xCB * Cos(fi3)omega2 = (F1 * Cos(fi3) E1 * Sin(fi3)) / Qvsr = (F1 * yCB + E1 * xCB) / QvCx = vBx omega2 * yCBvCy = vBy + omega2 * xCBE2 = aPx aBx + omega2 ^ 2 * xCB 2 * omega3 * vsr * Sin(fi3) _ epsilon3 * (yC yP) omega3 ^ 2 * (xC xP)F2 = aPy aBy + omega2 ^ 2 * yCB + 2 * omega3 * vsr * Cos(fi3) _ + epsilon3 * (xC xP) omega3 ^ 2 * (yC yP)epsilon2 = (F2 * Cos(fi3) E2 * Sin(fi3)) / Qasr = (F2 * yCB + E2 * xCB) / QaCx = aBx omega2 ^ 2 * xCB epsilon2 * yCBaCy = aBy omega2 ^ 2 * yCB + epsilon2 * xCBn1: End SubPrivate Sub Command2_Click()Dim b(6), c(6), d(3), xC1(360), vCx1(360), aCx1(360)pai = Atn(1) * 4 / 180 貴州大學(xué)機(jī)械工程與自動(dòng)化學(xué)院 機(jī)械原理課程設(shè)計(jì) 機(jī)械電子工程 劉傳盛 080803110345For fi = 0 To 360 Step 10 Fi1 = fi * pai Call 單桿運(yùn)動(dòng)分析子程序(0, 0, 0, 0, 0, 0, , 0, Fi1, , 0, _ xB, yB, vBx, vBy, aBx, aBy) Call RRP運(yùn)動(dòng)分析子程序(1, xB, yB, vBx, vBy, aBx, aBy, 0, 0, vPx, vPy, aPx, aPy, _ , 0, 0, 0, xC, yC, vCx, vCy, aCx, aCy, fi2, omega2, e
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1