用vb编写凸轮轮廓线程序及源代码.docVIP

用 vb 编程 凸轮轮廓线。下例是 设计滚子直动凸轮正弦加速 运动的 的具体步骤 基圆半径。滚子半径已知。偏距15mm。推程100mm 。开始计算，然后出图、 Dim s1 As Double, v1 As Double, a1 As Double Dim c1 As Double, c2 As Double, c3 As Double, c4 As Double Dim qu As Double, r0 As Double Dim h As Double, w As Double, i As Integer, fi1 As Double, fi2 As Double Dim xbi As Double, ybi As Double, yali As Double Dim rfa As Double, s0 As Double, wy1 As Double, wy2 As Double Dim x(366) As Double, y(366) As Double, x1(366) As Double, y1(366) As Double Dim s(366) As Double, v(366) As Double, a(366) As Double Const PI = 3.1415926 Sub ZT(h, w, i, fi1, fi2) Dim j As Double j = i * PI / 180 s1 = h * ((j - c1) / fi1 - 1 / (2 * PI) * Sin(2 * PI * (j - c1) / fi1)) v1 = (h * w / fi1) * (1 - Cos(2 * PI * (j - c1) / fi1)) a1 = (2 * PI * h * w ^ 2 / fi1 ^ 2) * Sin(2 * PI * (j - c1) / fi1) wy1 = h / fi1 * (1 - Cos(2 * PI * (j - c1) / fi1)) wy2 = 2 * PI * h / fi1 ^ 2 * Sin(2 * PI * (j - c1) / fi1) End Sub Sub ZH(h, w, i, fi1, fi2) Dim j As Double j = i * PI / 180 s1 = h * (1 - (j - c3) / fi2 + 1 / (2 * PI) * Sin(2 * PI * (j - c3) / fi2)) v1 = -h * w * fi2 * (1 - Cos(2 * PI * (j - c3) / fi2)) a1 = -2 * PI * h / 1000 * w ^ 2 / fi2 ^ 2 * Sin(2 * PI * (j - c3) / fi2) wy1 = -h * fi2 * (1 - Cos(2 * PI * (j - c3) / fi2)) wy2 = -2 * PI * h / fi2 ^ 2 * Sin(2 * PI * (j - c3) / fi2) End Sub Private Sub Command1_Click() c1 = Val(Text1.Text) c1 = c1 * PI / 180 c2 = Val(Text2.Text) c2 = c2 * PI / 180 c3 = Val(Text3.Text) c3 = c3 * PI / 180 c4 = Val(Text4.Text) c4 = c4 * PI / 180 e = Val(Text5.Text) h = Val(Text6.Text) w = Val(Text7.Text) r0 = Val(Text8.Text) f = Val(Text9.Text) f = f * PI / 180 g = Val(Text10.Text) rr = Val(Text11.Text) g = g * PI / 180 p = Val(Text12.Text) fi1 = c2 - c1 fi2 = c4 - c3 s0 = Sqr(r0 ^ 2 - e ^ 2) 100: For i = 0 To 360 Step 1 If i = 30 Then s1 = 0 v1 = 0 a1 = 0 s(i) = s1 v(i) = v1 a(i) = a1 ElseIf i = 150 Then Call ZT(h, w, i, fi1, fi2) s(i) = s1 v(i) = v1 a(i) = a1 ElseIf i = 210