機械原理作業(yè)-程序設計-資料下載頁
2025-06-03 18:05本頁面
【正文】 As Double Public s8(3600) As Double Public v8(3600) As Double Public a8(3600) As Double Public XG(3600) As Double Public YG(3600) As Double Public XB(3600) As Double Public YB(3600) As Double Public XC(3600) As Double Public YC(3600) As Double Public pi As Double Public pa As Double Sub main() Dim i As Long Dim f1(3600) As Double Dim RR1 As RR Dim RR2 As RR Dim RRR1 As RRR Dim RRR2 As RRR Dim RRR3 As RRR Dim RPR1 As RPR Dim d1 As Double Dim d2 As Double Dim ss As Double Dim vXG(3600) As Double Dim vYG(3600) As Double Dim aXG(3600) As Double Dim aYG(3600) As Double Dim vG As Double Dim aG As Double Set RR1 = New RR Set RR2 = New RR Set RRR1 = New RRR Set RRR2 = New RRR Set RRR3 = New RRR Set RPR1 = New RPR pi = pa = pi / 180 For i = 0 To 3600 Step 1 = i * pa / 10: = pi = 10: = 0 = 100 = = = 0 = 0 = 0: = 0 XB(i) = : YB(i) = = : = = : = = : = = 303: = 200 = 0 = 0 = 0 = 0 = 273: = 136 = 1 XC(i) = YC(i) = = : = = : = = : = = * pi: = pi = : = = 490 XG(i) = : YG(i) = = : = = : = = : = = : = = 0: = 0 = 0: = 0 = 191: = 136 = 1 f6(i) = / pa: v6(i) = : a6(i) = = : = = : = = : = = 310: = 0 = 0: = 0 = 0: = 0 = 282: = 145 = 1 f8(i) = / pa: v8(i) = : a8(i) = vXG(i) = : vYG(i) = aXG(i) = : aYG(i) = LHG(i) = Sqr((XG(i) 0) ^ 2 + (YG(i) 0) ^ 2) If XG(i) 0 And YG(i) = 0 Then f4(i) = Atn((YG(i) 0) / (XG(i) 0)) vG = vXG(i) * Sin(f4(i)) + vYG(i) * Cos(f4(i)): v4(i) = vG / LHG(i) aG = aXG(i) * Sin(f4(i)) + aYG(i) * Cos(f4(i)): a4(i) = aG / LHG(i) End If If XG(i) = 0 Then f4(i) = pi / 2 v4(i) = vXG(i) / LHG(i) a4(i) = aXG(i) / LHG(i) End If If XG(i) 0 And YG(i) 0 Then ss = Atn((YG(i) 0) / (XG(i) 0)) f4(i) = pi + Atn((YG(i) 0) / (XG(i) 0)) vG = vXG(i) * Cos(ss) + vYG(i) * Sin(ss): v4(i) = vG / LHG(i) aG = aXG(i) * Cos(ss) + aYG(i) * Sin(ss): a4(i) = aG / LHG(i) End If f4(i) = f4(i) / pa Next i 位移顯示 . Show End Sub
畢業(yè)設計相關推薦
鄂ICP備17016276號-1