《机械原理凸轮VB编程》由会员分享，可在线阅读，更多相关《机械原理凸轮VB编程（15页珍藏版）》请在金锄头文库上搜索。
1、理论轮廓线与工作轮廓线 Dim r0 As Double 定义基圆半径 Dim e As Double 定义偏心距 Dim h As Double 定义行程 Dim f As Double 定义凸轮转角 Dim ff As Double Dim w As Double 定义凸轮角速度 Dim f0 As Double 定义推程运动角 Dim fs As Double 定义远休止角 Dim f01 As Double 定义回程运动角 Dim fs1 As Double 定义近休止角 Dim s As Double 定义从动件位移 Dim v As Double 定义从动件速度 Dim a As
2、Double 定义从动件加速度 Dim x As Double 定义凸轮理论轮廓上点横坐标 Dim y As Double 定义凸轮理论轮廓上点纵坐标 Dim x1 As Double 定义凸轮实际轮廓上点横坐标 Dim y1 As Double 定义凸轮实际轮廓上点纵坐标 Dim rr As Double 定义滚子半径 Dim pi As Double 定义圆周率 Dim pa As Double 定义角度弧度转换中间变量 Dim T As Double 定义中间变量 Dim s0 As Double 定义中间变量 Dim i As Double 定义中间变量 Dim dsdf As Dou
3、ble 定义 ds/df Dim dxdf As Double 定义 dx/df Dim dydf As Double 定义 dy/df Private Sub push() If f = 0 And f = f0 / 2 And f = f0 + fs And f = f0 + fs + f01 / 2 And f = f0 And f = fs + f0 And f = fs + f0 + f01 And f = f0 And f = fs + f0 And f = fs + f0 + f01 And f = f0 And f = fs + f0 And f = fs + f0 + f01
4、 And f = f0 And f = fs + f0 And f = fs + f0 + f01 And f = f0 And f = fs + f0 And f = fs + f0 + f01 And f l2 + l3 And LBD Abs(l3 - l2) Then val = (l2 2 + LBD 2 - l3 2) / (2 * l2 * LBD) JCBD = Atn(-val / Sqr(-val * val + 1) + 2 * Atn(1) Else End If If LBD = l3 + l2 Then JCBD = 0 Else End If If LBD = A
5、bs(l3 - l2) Then If l2 l3 Then JCBD = 0 Else End If If l2 xB And yD = yB Then 第一象限 fDB = Atn(yD - yB) / (xD - xB) Else End If If xD = xB And yD yB Then fDB = pi / 2 Else End If If xD = yB Then 第二象限 fDB = pi + Atn(yD - yB) / (xD - xB) Else End If If xD xB And yD xD And yC = yD Then 第一象限 f3 = Atn(yC -
6、 yD) / (xC - xD) Else End If If xC = xD And yC yD Then f3 = pi / 2 Else End If If xC = yD Then 第二象限 f3 = pi + Atn(yC - yD) / (xC - xD) Else End If If xC xD And yC = yD Then 第四象限 f2 = 2 * pi + Atn(yC - yD) / (xC - xD) Else End If C2 = l2 * Cos(f2) S2 = l2 * Sin(f2) C3 = l3 * Cos(f3) S3 = l3 * Sin(f3)
7、 G1 = C2 * S3 - C3 * S2 w2 = (C3 * (vxD - vxB) + S3 * (vyD - vyB) / G1 w3 = (C2 * (vxD - vxB) + S2 * (vyD - vyB) / G1 vxC = vxB - w2 * l2 * Sin(f2) vyC = vyB + w2 * l2 * Cos(f2) G2 = axD - axB + w2 2 * C2 - w3 2 * C3 G3 = ayD - ayB + w2 2 * S2 - w3 2 * S3 e2 = (G2 * C2 + G3 * S3) / G1 e3 = (G2 * C2
8、+ G3 * S2) / G1 axC = axB - e2 * l2 * Sin(f2) - w2 2 * l2 * Cos(f2) ayC = ayB + e2 * l2 * Cos(f2) - w2 2 * l2 * Sin(f2) End Sub Private Sub RR1() RR1 基本杆组 xE = xC + l * Cos(f2 + delt1) yE = yC + l * Sin(f2 + delt1) vxE = vxC - w2 * l * Sin(f2 + delt1) vyE = vyC + w2 * l2 * Cos(f2 + delt1) axE = axC
9、- w2 2 * l * Cos(f2 + delt1) - e2 * l * Sin(f2 + delt1) ayE = ayC - w2 2 * l * Sin(f2 + delt1) + e2 * l * Cos(f2 + delt1) End Sub Private Sub RRP() RRP基本杆组 A0 = (yK - yE) * Cos(fj) - (xK - xE) * Sin(fj) val1 = A0 / l4 f4 = Atn(val1 / Sqr(-val1 * val1 + 1) + fj xp = xE + l4 * Cos(f4) yp = yE + l4 * S
10、in(f4) ss = (xp - xK) * Cos(fj) + (yp - yK) * Sin(fj) xF = xK + ss * Cos(fj) yF = yK + ss * Sin(fj) Q1 = vxK - vxE - wj * (ss * Sin(fj) + lj * Cos(fj) Q2 = vyK - vyE + wj * (ss * Cos(fj) - lj * Sin(fj) Q3 = l4 * Sin(f4) * Sin(fj) + l4 * Cos(f4) * Cos(fj) w4 = (-Q1 * Sin(fj) + Q2 * Cos(fj) / Q3 vss =
11、 -(Q1 * l4 * Cos(f4) + Q2 * l4 * Sin(f4) / Q3 vxp = vxE - w4 * l4 * Sin(f4) vyp = vyE + w4 * l4 * Cos(f4) vxF = vxK + vss * Cos(fj) - ss * wj * Sin(fj) vyF = vyK + vss * Sin(fj) + ss * wj * Cos(fj) Q4 = axK - axD + w4 2 * l4 * Cos(f4) - ej * (ss * Sin(fj) + lj * Cos(fj) - wj 2 * (ss * Cos(fj) - lj *
12、 Sin(fj) - 2 * vss * wj * Sin(fj) Q5 = ayK - ayD + w4 2 * l4 * Sin(f4) + ej * (ss * Cos(fj) - lj * Sin(fj) - wj 2 * (ss * Sin(fj) + lj * Cos(fj) + 2 * vss * wj * Cos(fj) e4 = (-Q4 * Sin(fj) + Q5 * Cos(fj) / Q3 ass = (-Q4 * l4 * Cos(f4) - Q5 * l4 * Sin(f4) / Q3 axp = axE - e4 * l4 * Sin(f4) - w4 2 * l4 * Cos(f4) ayp = ayE + e4 * l4 * Cos(f4) - w4 2 * l4 * Sin(f4) axF = axK + ass * Cos(fj) - ss * ej * Sin(fj) - ss * wj 2 * Cos(fj) - 2 * vss * wj * Sin(fj) ayF = ayK + ass * Sin(fj) + ss * ej * Cos(fj) - ss * wj 2 * Sin(fj) + 2 * vss * wj * Cos(fj) End Sub
