哈工大机械原理大作业1-第27题
哈尔滨工业大学机械原理大作业_连杆26题
1.运动分析题目如图所示机构，已知机构各构件的尺寸为AB=108mm，EF=320mm，BC=CE=CD=200mm，FG=162mm，AD=258mm，AG=514mm，DG=384mm，β=80º，构件1的角速度为ω1=10rad/s，试求构件2上点E的轨迹及构件5的角位移、角速度和角加速度，并对计算结果进行分析。
2.机构的结构分析，组成机构的基本杆组划分3.各基本杆组的运动分析数学模型（1）RR基本杆组：delt=0xB = xA + AB * Cos(f + delt)yB = yA + AB* Sin(f + delt)vxB = vxA - w * AB * Sin(f + delt)vyB = vyA + w * AB* Cos(f + delt)axB = axA - w ^ 2 * AB * Cos(f + delt):ayB = ayA - w ^ 2 * AB* Sin(f + delt)(2)RRR基本杆组Ci = lbc * Cos(fbc)Si = lbc * Sin(fbc)Cj = lcd * Cos(fcd)Sj = lcd * Sin(fcd)G1 = Ci * Sj - Cj * Siwbc = (Cj * (vxD - vxB) + Sj * (vyD - vyB)) / G1wcd = (Ci * (vxD - vxB) + Si * (vyD - vyB)) / G1vxC = vxB - wbc * lbc * Sin(fbc)vyC = vyB + wbc * lbc * Cos(fbc)G2 = axD - axB + wbc ^ 2 * Ci - wcd ^ 2 * CjG3 = ayD - ayB + wbc ^ 2 * Si - wcd ^ 2 * Sjebc = (G2 * Cj + G3 * Sj) / G1ecd = (G2 * Ci + G3 * Si) / G1axC = axB - ebc * lbc * Sin(fbc) - wbc ^ 2 * lbc * Cos(fbc)ayC = ayB + ebc * lbc * Cos(fbc) - wbc ^ 2 * lbc * Sin(fbc)EB = 2 * BC * Cos(febc)xE = xB + EB* Cos(fbc + febc)yE = yB + EB * Sin(fbc + febc)vxE = vxB – wbc * EB* Sin(fbc + febc)vyE = vyB + wbc * EB* Cos(fbc + febc)axE = axB - wbc ^ 2 * EB * Cos(fbc + delt) - ebc * EB * Sin(fbc + febc)ayE = ayB - wbc ^ 2 * leb * Sin(fbc + delt) + ebc * leb * Sin(fbc + febc) Ci = lef * Cos(fef)Si = lef * Sin(fef)Cj = lfg * Cos(ffg)Sj = lfg * Sin(ffg)G1 = Ci * Sj - Cj * Siwef = (Cj * (vxG - vxE) + Sj * (vyG - vyE)) / G1wfg = (Ci * (vxG - vxE) + Si * (vyG - vyE)) / G1vxF = vxE - wef * lef * Sin(fef)vyF = vyE + wef * lef * Cos(fef)G2 = axG - axE + wef ^ 2 * Ci - wfg ^ 2 * CjG3 = ayG - ayE + wef ^ 2 * Si - wfg ^ 2 * Sjeef = (G2 * Cj + G3 * Sj) / G1efg = (G2 * Ci + G3 * Si) / G1axF = axE - eef * lef * Sin(fef) - wef ^ 2 * lef * Cos(fef)ayF = ayE + eef * lef * Cos(fef) - wef ^ 2 * lef * Sin(fef)4.计算编程Dim xA As DoubleDim yA As DoubleDim vxA As DoubleDim vyA As DoubleDim axA As Double 'A '点加速度x轴分量Dim ayA As Double 'A '点加速度y轴分量Dim xB As Double 'B'点'x轴坐标Dim yB As Double 'B点y轴坐标Dim vxB As Double 'B点速度x轴分量Dim vyB As Double 'B点速度y轴分量Dim axB As Double 'B点加速度x轴分量Dim ayB As Double 'B点加速度y轴分量Dim xC As Double 'C点x轴坐标Dim yC As Double C'点y轴坐标Dim vxC As Double 'C点速度x轴分量Dim vyC As Double 'C点速度y轴分量Dim axC As Double 'C点加速度x轴分量Dim ayC As Double 'C点加速度y轴分量Dim xD As Double 'D点x轴坐标Dim yD As Double 'D点y轴坐标Dim vxD As Double 'D点速度x轴分量Dim vyD As Double 'D点速度y轴分量Dim axD As Double 'D点加速度x轴分量Dim ayD As Double 'D点加速度y轴分量Dim xE As Double 'E点x轴坐标Dim yE As Double 'E点y轴坐标Dim vxE As Double 'E点速度x轴分量Dim vyE As Double 'E点速度y轴分量Dim axE As Double 'E点加速度x轴分量Dim ayE As Double 'E点加速度y轴分量Dim xF As Double 'F点x轴坐标Dim yF As Double 'F点y轴坐标Dim vxF As Double 'F点速度x轴分量Dim vyF As Double 'F点速度y轴分量Dim axF As Double 'F点加速度x轴分量Dim ayF As Double 'F点加速度y轴分量Dim xG As Double 'G点x轴坐标Dim yG As Double 'G点y轴坐标Dim vxG As Double 'G点速度x轴分量Dim vyG As Double 'G点速度y轴分量Dim axG As Double 'G点加速度x轴分量Dim ayG As Double 'G点加速度y轴分量Dim delt As Double ' AB杆初始转角Dim lab As Double 'AB杆长Dim lbc As Double 'BC杆长Dim lcd As Double ' CD杆长Dim lce As Double 'CE杆长Dim lef As Double 'EF杆长Dim lfg As Double 'FG杆长Dim leb As Double 'ED杆长Dim f As Double 'AB杆转角Dim fbc As Double 'BC杆转角Dim fcd As Double 'CD杆转角Dim fce As Double 'CE杆转角Dim fef As Double 'EF杆转角Dim ffg As Double 'FG杆转角Dim fge As Double 'ge杆转角Dim w As Double 'AB杆角速度Dim wbc As Double ' BC角速度Dim wcd As Double 'CD角速度Dim wce As Double 'CE角速度Dim wef As Double 'EF角速度Dim wfg As Double 'FG角速度Dim e As Double 'AB杆角加速度Dim ebc As Double ' BC杆角加速度Dim ecd As Double 'CD杆角加速度Dim ece As Double 'CE杆角加速度Dim eef As Double 'EF杆角加速度Dim efg As Double 'FG杆角加速度Dim LBD As Double 'BD距离Dim leg As Double 'EG距离Dim JCBD As Double '角CBDDim jfeg As Double '角FEGDim fBD As Double 'BD转角Dim feg As Double 'EG转角Dim Ci As DoubleDim Cj As DoubleDim Si As DoubleDim Sj As DoubleDim G1 As DoubleDim G2 As DoubleDim G3 As DoubleDim val As DoubleDim pi As DoubleDim pa As DoubleDim febc As Double '角EBCDim i As DoubleDim fj1 As DoublePrivate Sub Command1_Click() '求点E的轨迹Picture1.Scale (-300, 400)-(10, -15)Picture1.Line (-300, 0)-(10, 0) 'XPicture1.Line (0, 400)-(0, -15) 'YFor i = -300 To 0 Step 50 'X轴坐标Picture1.DrawStyle = 2Picture1.Line (i, 400)-(i, 0)Picture1.CurrentX = i - 10: Picture1.CurrentY = 0 Picture1.Print iNext iFor i = 0 To 350 Step 50 'Y轴坐标Picture1.DrawStyle = 2Picture1.Line (0, i)-(-400, i)Picture1.CurrentX = -20: Picture1.CurrentY = i + 7 Picture1.Print iNext iFor fj1 = 0 To 360 Step 0.01f = fj1 * paCall RR1Call RRR1Call RR2Picture1.PSet (xE, yE)Next fj1End SubPrivate Sub Command2_Click() '求构件5的角位移Picture2.Scale (-20, 5)-(380, -0.5)Picture2.Line (-20, 0)-(380, 0) 'XPicture2.Line (0, 3)-(0, -0.5) 'YFor i = 0 To 360 Step 30 'X轴坐标Picture2.DrawStyle = 2Picture2.Line (i, 3)-(i, 0)Picture2.CurrentX = i - 10: Picture2.CurrentY = 0 Picture2.Print iNext iFor i = -0.5 To 3 Step 0.5 'Y轴坐标Picture2.Line (0, i)-(380, i)Picture2.CurrentX = -25: Picture2.CurrentY = i Picture2.Print iNext iFor fj1 = 0 To 360 Step 0.01f = fj1 * paCall RR1Call RRR1Call RR2Call RRR2Picture2.PSet (fj1, ffg)Next fj1End SubPrivate Sub Command3_Click() '求构件5的角速度Picture3.Scale (-20, 10)-(380, -10)Picture3.Line (-20, 0)-(380, 0) 'XPicture3.Line (0, 10)-(0, -10) 'YFor i = 0 To 360 Step 30 'X轴坐标Picture3.DrawStyle = 2Picture3.Line (i, 10)-(i, -10)Picture3.CurrentX = i - 10: Picture3.CurrentY = 0 Picture3.Print iNext iFor i = -8 To 8 Step 2 'Y轴坐标Picture3.Line (0, i)-(380, i)Picture3.CurrentX = -20: Picture3.CurrentY = i Picture3.Print iNext iFor fj1 = 0 To 360 Step 0.01f = fj1 * paCall RR1Call RRR1Call RR2Call RRR2Picture3.PSet (fj1, wfg)Next fj1End SubPrivate Sub Command4_Click() '求构件5的角加速度Picture4.Scale (-20, 300)-(380, -200)Picture4.Line (-20, 0)-(380, 0) 'XPicture4.Line (0, 300)-(0, -200) 'YFor i = 0 To 360 Step 30 'X轴坐标Picture4.DrawStyle = 2Picture4.Line (i, 300)-(i, -200)Picture4.CurrentX = i - 10: Picture4.CurrentY = 0 Picture4.Print iNext iFor i = -200 To 300 Step 50 'Y轴坐标Picture4.Line (0, i)-(380, i)Picture4.CurrentX = -25: Picture4.CurrentY = i + 5 Picture4.Print iNext iFor fj1 = 0 To 360 Step 0.01f = fj1 * paCall RR1Call RRR1Call RR2Call RRR2Picture4.PSet (fj1, efgNext fj1End SubPrivate Sub Form_Load() '赋初值lab = 108lce = 200lbc = 200lcd = 200lef = 320lfg = 162w = 10e = 0delt = 0xA = 0yA = 0vyA = 0axA = 0ayA = 0xD = -178.311284yD = 186.464704vxD = 0vyD = 0axD = 0ayD = 0xG = -514yG = 0vxG = 0vyG = 0axG = 0ayG = 0pi = 3.1415926pa = pi / 180febc = pa * 50End SubPrivate Sub RR1() 'RR基本杆组xB = xA + lab * Cos(f + delt)yB = yA + lab * Sin(f + delt)vxB = vxA - w * lab * Sin(f + delt)vyB = vyA + w * lab * Cos(f + delt)axB = axA - w ^ 2 * lab * Cos(f + delt) - e * lab * Sin(f + delt)ayB = ayA - w ^ 2 * lab * Sin(f + delt) + e * lab * Sin(f + delt)End SubPrivate Sub RR2() 'RR基本杆组leb = 2 * lbc * Cos(febc)xE = xB + leb * Cos(fbc + febc)yE = yB + leb * Sin(fbc + febc)vxE = vxB - wbc * leb * Sin(fbc + febc)vyE = vyB + wbc * leb * Cos(fbc + febc)axE = axB - wbc ^ 2 * leb * Cos(fbc + delt) - ebc * leb * Sin(fbc + febc) ayE = ayB - wbc ^ 2 * leb * Sin(fbc + delt) + ebc * leb * Sin(fbc + febc) End SubPrivate Sub RRR1() 'RRR基本杆组LBD = Sqr((xD - xB) ^ 2 + (yD - yB) ^ 2)If LBD > lbc + lcd And LBD < Abs(lbc - lcd) ThenIf MsgBox("RRR杆组杆长不符合要求", vbOKOnly, "提示") = 1 Then EndEnd IfElseEnd IfIf LBD < lbc + lcd And LBD > Abs(lbc - lcd) Then val = (lbc ^ 2 + LBD ^ 2 - lcd ^ 2) / (2 * lbc * LBD) JCBD = Atn(-val / Sqr(-val * val + 1)) + 2 * Atn(1) ElseEnd IfIf LBD = lbc + lcd ThenJCBD = 0ElseEnd IfIf LBD = Abs(lbc - lcd) ThenIf lbc > lcd ThenJCBD = 0ElseEnd IfIf lbc < lcd ThenJCBD = piElseEnd IfElseEnd IfIf xD > xB And yD >= yB Then '第一象限fBD = Atn((yD - yB) / (xD - xB))ElseEnd IfIf xD = xB And yD > yB ThenfBD = pi / 2ElseEnd IfIf xD < xB And yD >= yB Then '第二象限fBD = pi + Atn((yD - yB) / (xD - xB))ElseEnd IfIf xD < xB And yD < yB Then '第三象限fBD = pi + Atn((yD - yB) / (xD - xB))ElseEnd IfIf xD = xB And yD < yB ThenfBD = 3 * pi / 2ElseEnd IfIf xD > xB And yD <= yB Then '第四象限fBD = 2 * pi + Atn((yD - yB) / (xD - xB))ElseEnd Iffbc = fBD - JCBDxC = xB + lbc * Cos(fbc)yC = yB + lbc * Sin(fbc)If xC > xD And yC >= yD Then '第一象限fcd = Atn((yC - yD) / (xC - xD))ElseEnd IfIf xC = xD And yC >= yD Thenfcd = pi / 2ElseEnd IfIf xC < xD And yC >= yD Then '第二象限fcd = pi + Atn((yC - yD) / (xC - xD))ElseEnd IfIf xC < xD And yC < yD Then '第三象限fcd = pi + Atn((yC - yD) / (xC - xD))ElseEnd IfIf xC = xD And yC < yD Thenfcd = 3 * pi / 2ElseEnd IfIf xC > xD And yC <= yD Then '第四象限fcd = 2 * pi + Atn((yC - yD) / (xC - xD))ElseEnd IfCi = lbc * Cos(fbc)Si = lbc * Sin(fbc)Cj = lcd * Cos(fcd)Sj = lcd * Sin(fcd)G1 = Ci * Sj - Cj * Siwbc = (Cj * (vxD - vxB) + Sj * (vyD - vyB)) / G1 wcd = (Ci * (vxD - vxB) + Si * (vyD - vyB)) / G1 vxC = vxB - wbc * lbc * Sin(fbc)vyC = vyB + wbc * lbc * Cos(fbc)G2 = axD - axB + wbc ^ 2 * Ci - wcd ^ 2 * CjG3 = ayD - ayB + wbc ^ 2 * Si - wcd ^ 2 * Sj ebc = (G2 * Cj + G3 * Sj) / G1ecd = (G2 * Ci + G3 * Si) / G1axC = axB - ebc * lbc * Sin(fbc) - wbc ^ 2 * lbc * Cos(fbc)ayC = ayB + ebc * lbc * Cos(fbc) - wbc ^ 2 * lbc * Sin(fbc)End SubPrivate Sub RRR2() 'RRR基本杆组leg = Sqr((xG - xE) ^ 2 + (yG - yE) ^ 2)If leg > lef + lfg And leg < Abs(lef - lfg) ThenIf MsgBox("RRR杆组杆长不符合要求", vbOKOnly, "提示") = 1 Then EndElseEnd IfElseEnd IfIf leg < lef + lfg And leg > Abs(lef - lfg) Thenval = (lef ^ 2 + leg ^ 2 - lfg ^ 2) / (2 * lef * leg)jfeg = Atn(-val / Sqr(-val * val + 1)) + 2 * Atn(1)ElseEnd IfIf leg = lef + lfg Thenjfeg = 0ElseEnd IfIf leg = Abs(lef - lfg) ThenIf lef > lfg Thenjfeg = 0ElseEnd IfIf lef < lfg Thenjfeg = piElseEnd IfElseEnd IfIf xG > xE And yG >= yE Then '第一象限feg = Atn((yG - yE) / (xG - xE))ElseEnd IfIf xG = xE And yG > yE Thenfeg = pi / 2ElseEnd IfIf xG < xE And yG >= yE Then '第二象限feg = pi + Atn((yG - yE) / (xG - xE))ElseEnd IfIf xG < xE And yG < yE Then '第三象限feg = pi + Atn((yG - yE) / (xG - xE)) ElseEnd IfIf xG = xE And yG < yE Thenfeg = 3 * pi / 2ElseEnd IfIf xG > xE And yG <= yE Then '第四象限feg = 2 * pi + Atn((yG - yE) / (xG - xE)) ElseEnd Iffef = feg - jfegxF = xE + lef * Cos(fef)yF = yE + lef * Sin(fef)If xF > xG And yF >= yG Then '第一象限ffg = Atn((yF - yG) / (xF - xG))ElseEnd IfIf xF = xG And yF >= yG Thenffg = pi / 2ElseEnd IfIf xF < xG And yF >= yG Then '第二象限ffg = pi + Atn((yF - yG) / (xF - xG)) ElseEnd IfIf xF < xG And yF < yG Then '第三象限ffg = pi + Atn((yF - yG) / (xF - xG)) ElseEnd IfIf xF = xG And yF < yG Thenffg = 3 * pi / 2ElseEnd IfIf xF > xG And yF <= yG Then '第四象限ffg = 2 * pi + Atn((yF - yG) / (xF - xG)) ElseEnd IfCi = lef * Cos(fef)Si = lef * Sin(fef)Cj = lfg * Cos(ffg)Sj = lfg * Sin(ffg)G1 = Ci * Sj - Cj * Siwef = (Cj * (vxG - vxE) + Sj * (vyG - vyE)) / G1wfg = (Ci * (vxG - vxE) + Si * (vyG - vyE)) / G1vxF = vxE - wef * lef * Sin(fef)vyF = vyE + wef * lef * Cos(fef)G2 = axG - axE + wef ^ 2 * Ci - wfg ^ 2 * CjG3 = ayG - ayE + wef ^ 2 * Si - wfg ^ 2 * Sjeef = (G2 * Cj + G3 * Sj) / G1efg = (G2 * Ci + G3 * Si) / G1axF = axE - eef * lef * Sin(fef) - wef ^ 2 * lef * Cos(fef)ayF = ayE + eef * lef * Cos(fef) - wef ^ 2 * lef * Sin(fef)End Sub5．结果及分析图1 E点的运动轨迹（1）由图1所示，E点的运动轨迹呈稍倾斜“8字形”。
哈工大机械原理大作业1 连杆机构运动分析 牛头刨床 学号5号
大作业1 连杆机构运动分析运动分析题目图1-13 牛头刨床机构简图一、按比例画出机构运动简图见A3图纸二、机构的结构分析及基本杆组的划分（1）机构的结构分析该机构为平面连杆机构，活动构件数n=5；有A、B、C、E、F五个转动副和B、F两个移动副，没有高副，故低副数PL=7，高副数PH=0。
机构的自由度F=3n-2PL-PH=3*5-2*7=1。
机构有确定运动轨迹。
（2）基本杆组的划分图1-13中，原动件构件1为Ⅰ级杆组，移除之后按照拆杆组法对机构进行拆分，可得由滑块2和杆3组成的RPRⅡ级杆组，以及由杆4和滑块5组成的RRPⅡ级杆组。
拆分图如下：图1-13-1 Ⅰ级杆组图1-13-2 RPRⅡ级杆组图1-13-3 RRPⅡ级杆组三、各杆组的运动分析数学模型图1-13-1 Ⅰ级杆组 x B =x A +l AB cos ϕy B =y A +l AB sin ϕ图1-13-2 RPR Ⅱ级杆组 x E =x B +(l CE -s)cos ϕj y E =y B +(l CE -s)sin ϕjϕj =arctan(B 0/A 0)A 0=xB -x CB 0=y B -y CS =2020B A + 图1-13-3 RRP Ⅱ级杆组F 的位置 x F =x E -l EF cos ϕiy F =y E +l EF sin ϕi ϕi =arcsin(A 1/l EF )A 1=H-H 1-y EF 的速度F 的加速度四、建立坐标系以A 为原点建立坐标系，则A （0,0）五、编程使用MATLAB 编写程序如下lAB=108;lCD=620;lEF=300;H1=350;H=635;xC=0;yC=-350;syms t;f=(255*pi/30)*t;xB=lAB*cos(f);yB=lAB*sin(f);A0=xB-xC;B0=yB-yC;S=sqrt(A0^2+B0^2);f1=atan(B0/A0);xE=xB+(lAB-S)*cos(f1);yE=yB+(lAB-S)*sin(f1);A1=H-H1-yE;f2=asin(A1/lEF);xF=xE-lEF*cos(f2);yF=yE+lEF*sin(f2);a=0:0.001:0.5;xF=subs(xF,t,a);plot(a,xF)title('位移x随时间t变化图像') xlabel('t(s)'),ylabel(X')lAB=108;lCD=620;lEF=300;H1=350;H=635;xC=0;yC=-350;syms t;f=(255*pi/30)*t;xB=lAB*cos(f);yB=lAB*sin(f);A0=xB-xC;B0=yB-yC;S=sqrt(A0^2+B0^2);f1=atan(B0/A0);xE=xB+(lAB-S)*cos(f1);yE=yB+(lAB-S)*sin(f1);A1=H-H1-yE;f2=asin(A1/lEF);xF=xE-lEF*cos(f2);yF=yE+lEF*sin(f2);vF=diff(xF,t);a=0:0.001:0.5;vF=subs(vF,t,a);plot(a,vF)title('速度v随时间t变化图像') xlabel('t(s)'),ylabel(V')lAB=108;lCD=620;lEF=300;H1=350;H=635;xC=0;yC=-350;syms t;f=(255*pi/30)*t;xB=lAB*cos(f);yB=lAB*sin(f);A0=xB-xC;B0=yB-yC;S=sqrt(A0^2+B0^2);f1=atan(B0/A0);xE=xB+(lAB-S)*cos(f1);yE=yB+(lAB-S)*sin(f1);A1=H-H1-yE;f2=asin(A1/lEF);xF=xE-lEF*cos(f2);yF=yE+lEF*sin(f2);aF=diff(xF,t,2);a=0:0.001:0.5;aF=subs(aF,t,a);plot(a,aF)title('加速度a随时间t变化图像') xlabel('t(s)'),ylabel(A')六、位移、速度、加速度图像位移xE随时间t变化图像速度vE随时间t变化图像加速度aE随时间t变化图像七、运动分析由MATLAB编程后绘制所得图线分析可知，牛头刨床的刨头F行程约为500mm，在0.06s~0.17s之间速度和加速度波动较大，在0.17s~0.29s 之间速度和加速度波动较小，这就保证了刨头在空行程时有急回运动，而在工作行程是由较均匀的切削速度，运动连续，且运动性能良好稳定。
哈工大机械原理大作业连杆机构设计28
Harbin Institute of Technology机械原理大作业(一)课程名称：机械原理设计题目：连杆机构设计28院系：班级：设计者：学号：指导教师：丁刚陈明设计时间：2014年6月哈尔滨工业大学能源科学与工程学院一．题目（1-28）如图所示机构，已知机构各构件的尺寸为AB=61mm，EF=132mm，BC=CE=CD=200mm，FG=160mm，AD=152mm，AG=472mm，DG=332mm，114β=︒，构建1的角速度为110/ rad sω=，试求构件2上点E的轨迹及构件5的角位移、角速度和角加速度，并对计算结果进行分析。
二．连杆机构结构分析该机构由包括机架在内的6个构件组成的，各构件之间运动约束都是转动副，其中，杆1为机构的原动件，杆2、3、4、5为从动件。
杆2和杆3组成了1个RRR型Ⅱ级基本杆组，杆4和杆5组成了1个RRR型Ⅱ级基本杆组。
图1 原动件图 2 RRR型II级杆组图表 1 RRR型II级杆组三．组成机构各基本杆组的运动分析数学模型1．原动件杆1的数学模型图 4 原动件杆11) 位置分析 ⎩⎨⎧+=+=ii A B ii A B l y y l x x ϕϕsin cos 2) 速度和加速度分析将上式对时间t 求导，可得速度方程： ⎪⎪⎩⎪⎪⎨⎧+==-==i i A B B i i A B Bl y y dt dy l x x dtdx ϕϕϕϕcos cos 将上式对时间t 求导，可得加速度方程: ⎪⎪⎩⎪⎪⎨⎧+-==--==i i i i i i A B B i i i i i iA B B l l y y dt y d l l x x dt x d ϕϕϕϕϕϕϕϕcos sin sin cos 222222 (2) RRR Ⅱ级杆组的运动分析如下图所示，当已知RRR 杆组中两杆长l i 、l j 和两外副B 、D 的位置和运动时，求内副C 的位置及运动以及两杆的角位置、角运动。
哈工大、机械原理大作业、凸轮机构设计20题
Harbin Institute of Technology机械原理大作业二课程名称：机械原理设计题目：凸轮机构设计院系：能源科学与工程学院班级：1102301设计者：刘平成学号：1110200724指导教师：唐德威设计时间：2013年6月7日凸轮机构设计1．设计题目(1) 凸轮机构运动简图：(2)凸轮机构的原始参数表2-1.凸轮机构原始参数 序号 升程（mm ）升程运动角 升程运动规律升程许用压力角20 110 120° 正弦加速度35°回程运动角回程运动规律 回程许用压力角 远休止角近休止角 90°正弦加速度 65°90°60°（二）凸轮运动方程及相关图像、程序凸轮推杆升程、回程运动方程及推杆位移、速度、加速度线图： ○1 凸轮推杆升程、回程方程 πϕπϕϕs)650(πϕ≤≤140)(2=ϕs 511()69πφπ≤≤pi))*5708)/(23.2289)/1.-(sin(2+57083.2289)/1.-(-140(1)(3ϕπϕϕ=s1116()99πφπ≤≤)2914(πϕπ≤≤ 0)(4=ϕs ○2速度方程/2.0944;/2.09440))cos(2-140(1)(1πϕϕ=v 16(2)9πφπ≤≤ 0)(2=ϕv 511()69πφπ≤≤ 708;5708))/1.53.2289)/1.-(cos(2-140(1)(3ϕπϕ=v 1116()99πφπ≤≤ 0)(4=ϕv 16(2)9πφπ≤≤○3加速度方程 .0944^2;/2.0944)/2sin(2280)(1πϕπϕ=a )650(πϕ≤≤0)(2=ϕa 511()69πφπ≤≤08^25708)/1.573.2289)/1.-(sin(2280)(3ϕππϕ=a 1116()99πφπ≤≤ 0)(4=ϕa 16(2)9πφπ≤≤推杆位移、速度、加速度线图matlab编程clear,clcpu=0*pi/180:0.0001:120*pi/180; %升程运动角范围pf=120*pi/180:0.0001:210*pi/180; %远休止角范围pd=210*pi/180:0.0001:300*pi/180; %回程运动角范围pn=300*pi/180:0.0001:2*pi; %近休止角范围h=110e-3; %升程w=10; %凸轮角速度p0=120*pi/180; %升程运动角p01=90*pi/180; %回程运动角ps=90*pi/180; %远休止角%----------推程-----------------------------------------su=h.*(pu./p0-sin(2.*pi.*pu./p0)/(2*pi)); %推杆位移vu=h*w/p0*(1-cos(2*pi*pu./p0)); %推程速度au=2*pi*h*w^2/p0^2*sin(2*pi*pu./p0); %推程加速度%------------远休止----------------------------nf=size(pf);sf=h*ones(nf); %推杆位移vf=zeros(nf); %推程速度af=zeros(nf); %推程加速度%---------------回程------------------------------T=pd-(p0+ps);sd=h/2*(1+cos(pi/p01*T)); %回程位移vd=-pi*h*w/(2*p01)*sin(pi/p01*T); %回程速度ad=-pi^2*h*w^2/(2*p01^2)*cos(pi/p01*T); %回程加速度%--------------------近休止---------------------------------nn=size(pn);sn=zeros(nn); %推杆位移vn=zeros(nn); %推程速度an=zeros(nn); % 推程加速度%------画出推杆位移、速度、加速度线图---------------p=[pu,pf,pd,pn];s=[su,sf,sd,sn];subplot(2,3,1),hold onplot(p,s*1e3,'linewidth',2),xlabel('\phi/rad'),ylabel('s/mm'),grid on,title('推杆位移'),axis([0,2*pi,1.1*min(s)*1e3,1.1*max(s)*1e3]) subplot(2,3,2) v=[vu,vf,vd,vn];plot(p,v,'linewidth',2),xlabel('\phi/rad'),ylabel('v/m/s'),grid on,title('推杆速度'),axis([0,2*pi,1.1*min(v),1.1*max(v)]) subplot(2,3,3) a=[au,af,ad,an];plot(p,a,'linewidth',2),xlabel('\phi/rad'),ylabel('a/m/s^2'),grid on,title('推杆加速度'),axis([0,2*pi,1.1*min(a),1.1*max(a)]) hold off（三）凸轮机构s d ds-ϕ图像及程序代码 %--------------------求ds/d_phi-------------------subplot(2,3,4),plot(v/w*1e3,s*1e3,'linewidth',2),xlabel('ds/d\phi/mm'),ylabel('s/mm'),axis equal,grid on,title('ds/d\phi —s')%---------------------凸轮轴心许用区域--------------------------- alpha_up=35*pi/180; %升程许用压力角 alpha_down=65*pi/180; %回程许用压力角 p1=pi/2-alpha_up; %推程斜率角 p2=alpha_down-pi/2; %回程斜率角 ku=tan(p1); %推程切线斜率 kd=tan(p2); %回程切线斜率 R2=[cos(-p2),-sin(-p2);sin(-p2),cos(-p2)];%推程旋转矩阵 R1=[cos(-p1),-sin(-p1);sin(-p1),cos(-p1)];%推程旋转矩阵 nu=size(pu); for i=1:nu(2)Temp=R1*[vu(i)/w;su(i)];vut(i)=Temp(1); %旋转推程ds/dp-s 曲线 sut(i)=Temp(2); endnd=size(pd); for i=1:nd(2)Temp=R2*[vd(i)/w;sd(i)];vdt(i)=Temp(1); %旋转回程ds/dp-s 曲线 sdt(i)=Temp(2); endfor j=1:nu(2)if sut(j)==min(sut)temu=j; %旋转推程ds/dp-s 曲线后求最低点 end endfor j=1:nd(2)if sdt(j)==min(sdt)temd=j; %旋转回程ds/dp-s曲线后求最低点endendt1=1.2*min(vd/w):0.01:1.2*max(vu/w); %切线定义域t2=min(vd/w)/6:0.01:1.2*max(vu/w);t3=0:0.01:1.2*max(vu/w);s1=ku*(t2-vu(temu)/w)+su(temu); %推程切线s2=kd*(t1-vd(temd)/w)+sd(temd); %回程切线s3=tan(-p1)*t3; %推程起点压力角限制线subplot(2,3,5) %画图hold on,axis equal,grid onplot(v/w*1e3,s*1e3,'linewidth',2)plot(t2*1e3,s1*1e3,'linewidth',1,'color','r')plot(t1*1e3,s2*1e3,'linewidth',1,'color','r')plot(t3*1e3,s3*1e3,'linewidth',1,'color','r')xlabel('ds/d\phi/mm'),ylabel('s/mm'),hold off,title('ds/d\phi—s，轴向许用范围')（四）确定凸轮的基圆半径和偏距、绘制凸轮机圆、偏距圆、理论轮廓曲线---------------画理论廓线图-------------------------e=36e-3;s0=52e-3;r0=sqrt(s0^2+e^2);x=(s0+s).*cos(p)-e.*sin(p);y=(s0+s).*sin(p)+e.*cos(p);x1=r0*cos(p);y1=r0*sin(p);subplot(2,3,6)plot(x*1e3,y*1e3,'linewidth',1),axis equal,grid on,hold on,title('廓线图')plot(x1*1e3,y1*1e3,'linewidth',1,'color','r')%-------------求最小曲率半径-----------------------nx=size(x);nx1=nx(2)-2;dydp=diff(y)./diff(p);%求微分dxdp=diff(x)./diff(p);d2ydp2=diff(dydp)./diff(p(1:nx1+1));d2xdp2=diff(dxdp)./diff(p(1:nx1+1));rho=(dxdp(1:nx1).^2+dydp(1:nx1).^2).^1.5./abs((dxdp(1:nx1).*d2ydp2(1:nx1)-dydp(1:nx1).*d2x dp2(1:nx1)));%理论廓线曲率半径rhomin=min(rho);%最小曲率半径rr=rhomin-3e-3;%----------------实际廓线图----------------X=x(1:nx(2)-1)-rr*dydp./(dxdp.^2+dydp.^2).^0.5;%求实际廓线坐标Y=y(1:nx(2)-1)+rr*dxdp./(dxdp.^2+dydp.^2).^0.5;plot(X*1e3,Y*1e3,'linewidth',2,'color','k')%画实际廓线图Legend('理论廓线','基圆','实际廓线'),axis([1.1*min(x)*1e3,1.1*max(x)*1e3,1.1*min(y)*1e3,1.1*max(y)*1e3])得到基圆半径311mm、偏距36mm。
机械原理大作业1连杆机构27题
大作业1 连杆机构运动分析1、运动分析题目如图所示机构，已知机构各构件的尺寸为280mm AB =,350mm BC =,320mm CD =,160mm AD =，175mm BE = 220mm EF =，25mm G x =，80mm G y =，构件1的角速度为110rad/s ω=，试求构件2上点F 的轨迹及构件5的角位移、角速度和角加速度，并对计算结果进行分析。
2、建立坐标系建立以点A 为原点的固定平面直角坐标系图 13、对机构进行结构分析该机构由I级杆组RR（原动件1）、II级杆组RRR（杆2、杆3）和II级杆组RPR（滑块4及杆5）组成。
I级杆组RR，如图2所示；II 级杆组RRR，如图3所示；II级杆组RPR，如图4所示。
图2图 3图 44、各基本杆组运动分析的数学模型（1）同一构件上点的运动分析：图 5如图5所示的构件AB,,已知杆AB 的角速度=10/rad s ω，AB 杆长i l =280mm,可求得B 点的位置B x 、B y ，速度xB v 、yB v ，加速度xB a 、yB a 。
=cos =280cos B i x l ϕϕ; =sin =280sin B i y l ϕϕ;==-sin =-BxB i B dx v l y dt ωϕω； ==cos =;B yB i B dyv l x dt ωϕω222B 2==-cos =-BxB i d x a l x dt ωϕω；2222==-sin =-ByB i B d y a l y dtωϕω。
（2）RRRII 级杆组的运动分析：图 6如图6所示是由三个回转副和两个构件组成的II 级组。
已知两杆的杆长2l 、3l 和两个外运动副B 、D 的位置（B x 、B y 、D x 、D y ）、速度（xB yB xD yD v v v v 、、、）和加速度（xB yB xD yD a a a a 、、、）。
求内运动副C 的位置（C C x 、y ）、速度（xC yC v 、v ）、加速度（xC yC a 、a ）以及两杆的角位置（23ϕϕ、）、角速度（23ϕϕ、）和角加速度（23ϕϕ、）。
哈工大机械原理大作业24题
班级1013102学号 6机械原理大作业说明书题目 1、连杆机构运动分析2、凸轮机构设计3、齿轮传动设计学生姓名1连杆机构运动分析1.设计题目：一、先建立如下坐标系：二、划分杆组如下，进行结构分析：该机构由I级杆组RR（如图1）、II级杆组RPR（如图2、3）和II级杆组RRP（如图4）组成。
（1）（2）（3）（4）三、运动分析数学模型：（1）同一构件上点的运动分析：如右图所示的原动件1,已知杆1的角速度=10/rad s ω，杆长1l =170mm,A y =0，A x =110mm 。
可求得下图中B 点的位置B x 、B y ，速度xB v 、yB v ，加速度xB a 、yB a 。
θcos 1l xB =，θsin 1l yB =θωυsin 1l xB -=，θωυcos 1l yB =，222B2==-cos =-B xB i d x a l x dt ωϕω2222==-sin =-B yB i B d y a l y dtωϕω。
（2）RPRII 级杆组的运动分析：a. 如右图所示是由2个回转副和1个移动副组成的II 级组。
已知两个外运动副C 、B 的位置（B x 、B y 、c x =110mm 、C y =0）、速度（xB υ，yB υ，xC υ=0，yC υ=0）和加速度（0,0,,==yC xC yB xB a a a a ）。
可确定下图中D 点的位置、速度和加速度。
确定构件3的角位移1ϕ、角速度1ω、角加速度1α。
1sin 31..ϕϕl x dtdx C B-= 1sin 131cos 13.....2ϕϕϕϕl l x dt x d C B --= 1cos 31..ϕϕl y dtdy C B+=1cos 131sin 13.....2ϕϕϕϕl l y dt y d C B +-= 根据关系：1111d 122..11.αϕϕωϕϕ====dtd dt ， 故可得出：D x =)1cos(4βϕ++l x C D y =)1sin(4βϕ++l y Cb. 如右图所示是由2个回转副和1个移动副组成的II级组。
哈工大机械原理连杆和凸轮大作业24题
班级学号机械原理大作业说明书题目 1、连杆机构运动分析2、凸轮机构设计学生姓名1连杆机构运动分析1.设计题目：一、先建立如下坐标系：二、划分杆组如下，进行结构分析：该机构由I级杆组RR（如图1）、II级杆组RPR（如图2、3）和II级杆组RRP（如图4）组成。
（1）（2）（3）（4）三、运动分析数学模型：（1）同一构件上点的运动分析：如右图所示的原动件1,已知杆1的角速度=10/rad s ω，杆长1l =170mm,A y =0，A x =110mm 。
可求得下图中B 点的位置B x 、B y ，速度xB v 、yB v ，加速度xB a 、yB a 。
θcos 1l xB =，θsin 1l yB =θωυsin 1l xB -=，θωυcos 1l yB =，222B2==-cos =-BxB i d x a l x dt ωϕω2222==-sin =-B yB i B d y a l y dtωϕω。
（2）RPRII 级杆组的运动分析：a. 如右图所示是由2个回转副和1个移动副组成的II 级组。
已知两个外运动副C 、B 的位置（B x 、B y 、c x =110mm 、C y =0）、速度（xB υ，yB υ，xC υ=0，yC υ=0）和加速度（0,0,,==yC xC yB xB a a a a ）。
可确定下图中D 点的位置、速度和加速度。
确定构件3的角位移1ϕ、角速度1ω、角加速度1α。
1sin 31..ϕϕl x dt dx C B -= 1s i n 131c o s 13.....2ϕϕϕϕl l x dt x d C B --= 1cos 31..ϕϕl y dt dy C B += 1c o s 131s i n 13.....2ϕϕϕϕl l y dty d C B +-= 根据关系：1111d 122..11.αϕϕωϕϕ====dtd dt ， 故可得出： D x =)1cos(4βϕ++l x CD y =)1sin(4βϕ++l y Cb. 如右图所示是由2个回转副和1个移动副组成的II级组。
哈工大-机械原理大作业-连杆机构运动分析
机械原理大作业（一）作业名称：连杆机构运动分析设计题目： 20院系：英才学院班级： XXXXXXX设计者：邵广斌学号： XXXXXXXXXX指导教师：林琳设计时间： 2013年05月19日哈尔滨工业大学机械设计1.运动分析题目如图所示机构，已知机构各构件的尺寸为150AB mm =，97β=︒，400BC mm =，300CD mm =，320AD mm =，100BE mm =，230EF mm =，400FG mm =，构件1的角速度为110/rad s ω=,试求构件2上点F 的轨迹及构件5上点G 的位移、速度和加速度，并对计算结果进行分析。
2. 机构分析该机构由原动件AB （Ⅰ级杆组）、BCD （RRR Ⅱ级杆组）和FG （RRP Ⅱ级杆组）组成。
3. 建立坐标系如图3，建立以定点A 为原点的平面直角坐标系A-xy 。
图1 运动机构结构图4. 运动分析数学模型4.1 原动件AB原动件AB 的转角： 10~2ψπ= 原动件AB 的角速度：110/rad s ω=原动件AB 的角加速度： 10α= 运动副A 的位置坐标： 0A x = 0A y =运动副A 的速度： 0xA v = 0yA v = 运动副A 的加速度： 0xA a = 0yA a =原动件AB 长度：150AB l mm =运动副B 的位置坐标： 1B A AB x x l cos ψ=+1B A AB y x l sin ψ=+运动副B 的速度： 11 xB xA AB v v l sin ωψ=-11 yB yA AB v v l cos ωψ=+运动副B 的加速度： 2 1111 xBxA AB AB a a l cos l sin ωψαψ=--21111yB yA AB AB a a l sin l cos ωψαψ=-+4.2 RRR Ⅱ级杆组BCD运动副D 的位置坐标： 320D x mm = 0D y = 运动副D 的速度： 0xD v = 0yD v = 运动副D 的加速度： 0xD a = 0yD a = 杆BC 长度： 400BC l mm = 杆CD 长度：300CD l mm =BC 相对于x 轴转角：200ψ=其中02BC D B A l x x =-（） 0 2 BC D B B l y y =-（）2220B B C C l C l D l D =+- 222())(BDD B D B l x x y y =-+- CD 相对于x 轴转角： 3C DC Dy y arctanx x ψ-=-求导可得BC 角速度2ω、角加速度2α以及CD 角速度3ω、角加速度3α。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
哈工大机械原理大作业1-第27题Harbin Institute of Technology机械原理大作业设计说明书（论文）课程名称：机械原理设计题目：连杆机构运动分析院系：能源科学与工程学院班级：1002101设计者：学号：指导教师：赵永强设计时间：2012年6月10日—6月24日运动分析题目——第二十七题27 如图所示机构，已知机构各构件的尺寸为AB=280mm ，BC=350mm ，CD=320mm, AD=160mm, BE=175mm, EF=220mm, xc=25mm, yg=80mm, 构件一的角速度为w1=10rad/s, 试求构件2上点F 的轨迹及构件5的角位移，角速度和角加速度，并对计算结果进行分析。
‘XyGDG F AEBCXY一、建立坐标系以A 点为原点建立如图所示坐标系x-y ，如上图所示二、机构结构分析该机构可认为由一个I 级杆组RR （杆AB ）、II 级杆组RRR （杆2、3）、II 级杆组RPR （杆5及滑块4）组成。
如下图所示。
II 级杆组RRA BDII 级杆组RRRII 级杆组RPR E F G三、确定已知参数和设计流程一）AB （I 级杆组RR ）运动副A 的位置坐标为AB=28OmmB 的位置坐标二）BCD 杆（II 级杆组RRR ）运动副D 的位置坐标BC=350mm,CD=320mm 由余弦定理，可求得）（2cos *222πϕ+-+=AB AD AB AD BD 由正弦定理得BD AB rc ADB )2sin(sin a ϕπ+=∠ 由余弦定理得DB DC BC BD CD CDB ⨯⨯-+=∠2arccos 222)-sin(x BDC ADB CD ∠-∠=π)cos(y CDB ADB CD AD ∠-∠-+=π由此可以求出运动副C 的位置坐标（X,Y ）,速度（vx ，vy ）和加速度(ax,ay),杆BC 与x 轴的夹角，杆BC 的角速度，杆BC 的角加速度，杆CD 与x 轴的夹角，角速度，角加速度。
三）GF （II 级杆组RPR ）G 点的位置坐标 由此可以求出构件GF 的转角，角速度和角加速度四）构件BC 上E 点的运动BE=175mm ，根据前面求出的量，可以得到E 的位置坐标，速度和加速度，同理可以得到F 点的运动规律。
四、编程计算编程语言为VB ，编程环境为visual basic6.0精简版.0,0,0,0,0,0x ======yA xA yA xA A A a a v v y 加速度速度ϕϕϕϕϕϕsin 280,cos 280,cos 280,sin 280,sin 280,cos 280-=-==-===yB xB yB xB B B a a v v y x 加速度速度.0,0,0,0,0,0======yD xD yD xD D D a a v v y x 加速度速度.0,0,0,0,80,25x =====-=yG xG yG xG G G a a v v y 加速度速度源代码如下Dim xA As Double '点A的坐标，速度，加速度Dim yA As DoubleDim vxA As DoubleDim vyA As DoubleDim axA As DoubleDim ayA As DoubleDim xB As Double '点B的坐标，速度，加速度Dim yB As DoubleDim vxB As DoubleDim vyB As DoubleDim axB As DoubleDim ayB As DoubleDim xC As Double '点C的坐标，速度，加速度Dim yC As DoubleDim vxC As DoubleDim vyC As DoubleDim axC As DoubleDim ayC As DoubleDim xD As Double '点D的坐标，速度，加速度Dim yD As DoubleDim vxD As DoubleDim vyD As DoubleDim axD As DoubleDim ayD As DoubleDim xE As Double '点E的坐标，速度，加速度Dim yE As DoubleDim vxE As DoubleDim vyE As DoubleDim axE As DoubleDim ayE As DoubleDim xF As Double '点F的坐标，速度，加速度Dim yF As DoubleDim vxF As DoubleDim vyF As DoubleDim axF As DoubleDim ayF As DoubleDim xG As Double '点G的坐标，速度，加速度Dim yG As DoubleDim vxG As DoubleDim vyG As DoubleDim axG As DoubleDim ayG As DoubleDim delt As Double '构件1的初始角位移Dim lab As Double '杆AB的长度Dim lbc As Double '杆BC的长度Dim lcd As Double '杆CD的长度Dim lad As Double '杆AD的长度Dim lbe As Double '杆BE的长度Dim lef As Double '杆EF的长度Dim lbf As Double 'BF两点间的距离Dim fab As Double '杆AB的角位移Dim fbc As Double '杆BC的角位移Dim fcd As Double '杆CD的角位移Dim fef As Double '杆EF的角位移Dim ffg As Double '杆FG的角位移Dim febf As Double '角EBF的角度Dim fj1 As DoubleDim wab As Double '杆AB的角速度Dim wbc As Double '杆BC的角速度Dim wcd As Double '杆CD的角速度Dim wce As Double '杆CE的角速度Dim wef As Double '杆EF的角速度Dim wfg As Double '杆FG的角速度Dim eab As Double '杆AB的角加速度Dim ebc As Double '杆BC的角加速度Dim ecd As Double '杆CD的角加速度Dim ece As Double '杆CE的角加速度Dim eef As Double '杆EF的角加速度Dim efg As Double '杆FG的角加速度Dim LBD As Double 'BD的长度Dim LGF As Double 'GF的长度Dim JCBD As Double '角CBD的角度Dim fbd As Double '杆BD的角位移Dim Ci As Double 'RRR杆组的中间变量Dim Cj As DoubleDim Si As DoubleDim Sj As DoubleDim G1 As DoubleDim G2 As DoubleDim G3 As DoubleDim val As Double '角CBD的余弦值Dim pi As Double '圆周率Dim pa As Double '角度与弧度转换的系数Dim i As Double '循环变量Private Sub Form_Load() '附值lab = 280lbc = 350lcd = 320lad = 160lbe = 175lef = 220wab = 10eab = 0delt = 0xA = 0yA = 0vxA = 0vyA = 0axA = 0ayA = 0xD = 0yD = 160vxD = 0vyD = 0axD = 0ayD = 0xG = -25yG = 80vxG = 0vyG = 0axG = 0ayG = 0pi = 3.1415926pa = pi / 180fj1 = 0End SubPrivate Sub Command1_Click() '点F的轨迹Picture1.Scale (-200, 250)-(100, -50)Picture1.Line (-200, 0)-(100, 0) 'XPicture1.Line (0, 250)-(0, -50) 'YFor i = -180 To 120 Step 30 'X轴坐标Picture1.DrawStyle = 2Picture1.Line (i, 250)-(i, -50)Picture1.CurrentX = i - 10: Picture1.CurrentY = 0 Picture1.Print iNext iFor i = -60 To 240 Step 30 'Y轴坐标Picture1.DrawStyle = 2Picture1.Line (-200, i)-(100, i)Picture1.CurrentX = -10: Picture1.CurrentY = i Picture1.Print iNext iFor fj1 = 0 To 360 Step 0.01fab = fj1 * paCall RR1Call RRRCall RR2Picture1.PSet (xF, yF)Next fj1End SubPrivate Sub Command2_Click() '杆5的角位移Picture2.Scale (-10, 8)-(380, -2)Picture2.Line (-10, 0)-(380, 0) 'XPicture2.Line (0, 8)-(0, -2) 'YFor i = -30 To 390 Step 30 'X轴坐标Picture2.DrawStyle = 2Picture2.Line (i, 8)-(i, -2)Picture2.CurrentX = i - 10: Picture2.CurrentY = 0 Picture2.Print iNext iFor i = -2 To 8 Step 1 'Y轴坐标Picture2.DrawStyle = 2Picture2.Line (-10, i)-(380, i)Picture2.CurrentX = -10: Picture2.CurrentY = i Picture2.Print iNext iFor fj1 = 0 To 360 Step 0.01fab = fj1 * paCall RR1Call RRRCall RR2Call RPRPicture2.PSet (fj1, ffg)Next fj1End SubPrivate Sub Command3_Click() '杆5的角速度Picture3.Scale (-20, 90)-(380, -10)Picture3.Line (-20, 0)-(380, 0) 'XPicture3.Line (0, 90)-(0, -10) 'YFor i = 0 To 360 Step 30 'X轴坐标Picture3.DrawStyle = 2Picture3.Line (i, 90)-(i, -10)Picture3.CurrentX = i - 10: Picture3.CurrentY = 0 Picture3.Print iNext iFor i = -10 To 90 Step 5 'Y轴坐标Picture3.Line (0, i)-(380, i)Picture3.CurrentX = -20: Picture3.CurrentY = i Picture3.Print iNext iFor fj1 = 0 To 360 Step 0.01fab = fj1 * paCall RR1Call RRRCall RR2Call RPRPicture3.PSet (fj1, wfg)Next fj1End SubPrivate Sub Command4_Click() '杆5的角加速度Picture4.Scale (-20, 800)-(380, -800)Picture4.Line (-20, 0)-(380, 0) 'XPicture4.Line (0, 800)-(0, -800) 'YFor i = 0 To 360 Step 30 'X轴坐标Picture4.DrawStyle = 2Picture4.Line (i, 800)-(i, -800)Picture4.CurrentX = i - 10: Picture4.CurrentY = 0 Picture4.Print iNext iFor i = -800 To 800 Step 80 'Y轴坐标Picture4.Line (0, i)-(380, i)Picture4.CurrentX = -25: Picture4.CurrentY = i + 5 Picture4.Print iNext iFor fj1 = 0 To 360 Step 0.01fab = fj1 * paCall RR1Call RRRCall RR2Call RPRPicture4.PSet (fj1, efg)Next fj1End SubPrivate Sub RR1() 'Ⅰ级杆组RR1（原动件1）xB = xA + lab * Cos(fab + delt)yB = yA + lab * Sin(fab + delt)vxB = vxA - wab * lab * Sin(fab + delt)vyB = vyA + wab * lab * Cos(fab + delt)axB = axA - wab ^ 2 * lab * Cos(fab + delt) - eab * lab * Sin(fab + delt) ayB = ayA - wab ^ 2 * lab * Sin(fab + delt) + eab * lab * Sin(fab + delt) End SubPrivate Sub RR2() '构件2上点F的运动分析lbf = Sqr(lbe ^ 2 + lef ^ 2)febf = Atn(lef / lbe)xF = xB + lbf * Cos(fbc + febf)yF = yB + lbf* Sin(fbc + febf)vxF = vxB - wbc * lbf * Sin(fbc + febf)vyF = vyB + wbc * lbf* Cos(fbc + febf)axF = axB - wbc ^ 2 * lbf * Cos(fbc + febf) - ebc * lbf * Sin(fbc + febf) ayF = ayB - wbc ^ 2 * lbf * Sin(fbc + febf) + ebc * lbf* Sin(fbc + febf) End SubPrivate Sub RRR() Ⅱ级杆组RRR（杆2、杆3）xB = xA + lab * Cos(fab + delt)yB = yA + lab * Sin(fab + delt)LBD = Sqr((xD - xB) ^ 2 + (yD - yB) ^ 2)val = ((lbc ^ 2 + LBD ^ 2 - lcd ^ 2) / (2 * lbc * LBD))JCBD = Atn(-val / Sqr(-val * val + 1)) + 2 * Atn(1)If xD > xB And yD > yB Then '第一象限fbd = Atn((yD - yB) / (xD - xB))fbc = fbd - JCBDElseEnd IfIf xD < xB And yD >= yB Then '第二象限fbd = Atn((yD - yB) / (xD - xB)) + pifbc = fbd - JCBDElseEnd Iffbd = Atn((yD - yB) / (xD - xB)) + pifbc = fbd - JCBDElseEnd IfIf xD > xB And yD <= yB Then '第四象限fbd = Atn((yD - yB) / (xD - xB)) + pi * 2 fbc = fbd - JCBDElseEnd IfIf xB = xD And yD > yB Then 'y轴正向fcd = 0.5 * piElseEnd IfIf xB = xD And yD < yB Then 'y轴负向fcd = 1.5 * piElseEnd IfxC = xB + lbc * Cos(fbc)yC = yB + lbc * Sin(fbc)If xC > xD And yC >= yD Then '第一象限fcd = Atn((yC - yD) / (xC - xD))ElseEnd IfIf xC < xD And yC >= yD Then '第二象限fcd = Atn((yC - yD) / (xC - xD)) + pi ElseEnd IfIf xC < xD And yC < yD Then '第三象限fcd = Atn((yC - yD) / (xC - xD)) + pi ElseEnd IfIf xC > xD And yC <= yD Then '第四象限fcd = 2 * pi + Atn((yC - yD) / (xC - xD)) ElseEnd Iffcd = 0.5 * piElseEnd IfIf xC = xD And yC < yD Then 'y轴负向fcd = 1.5 * piElseEnd IfCi = lbc * Cos(fbc)Si = lbc * Sin(fbc)Cj = lcd * Cos(fcd)Sj = lcd * Sin(fcd)G1 = Ci * Sj - Cj * Siwbc = (Cj * (vxD - vxB) + Sj * (vyD - vyB)) / G1wcd = (Ci * (vxD - vxB) + Si * (vyD - vyB)) / G1vxC = vxB - wbc * lbc * Sin(fbc)vyC = vyB + wbc * lbc * Cos(fbc)G2 = axD - axB + wbc ^ 2 * Ci - wcd ^ 2 * CjG3 = ayD - ayB + wbc ^ 2 * Si - wcd ^ 2 * Sjebc = (G2 * Cj + G3 * Sj) / G1ecd = (G2 * Ci + G3 * Si) / G1axC = axB - ebc * lbc * Sin(fbc) - wbc ^ 2 * lbc * Cos(fbc) ayC = ayB - ebc * lbc * Cos(fbc) - wbc ^ 2 * lbc * Sin(fbc) End SubPrivate Sub RPR() 'Ⅱ级杆组RPR（滑块4、杆5）LGF = Sqr((xG - xF) ^ 2 + (yG - yF) ^ 2)If xF > xG And yF > yD Then '第一象限ffg = Atn((yF - yG) / (xF - xG))ElseEnd IfIf xF < xG And yF >= yD Then '第二象限ffg = Atn((yF - yG) / (xF - xG)) + piElseEnd IfIf xF < xG And yF < yD Then '第三象限ffg = Atn((yF - yG) / (xF - xG)) + piElseEnd IfIf xF > xG And yF <= yD Then '第四象限ffg = Atn((yF - yG) / (xF - xG)) + 2 * piElseEnd IfIf xF = xG And yF > yG Then 'y轴正向ffg = 0.5 * piElseEnd IfIf xF = xG And yF < yG Then 'y轴负向ffg = 1.5 * piElseEnd Ifwfg = (vyF * Cos(ffg) - vxF * Sin(ffg)) / LGFefg = (ayF * Cos(ffg) - axF * Sin(ffg) - 2 * (vxF * Cos(ffg) + vyF * Sin(ffg)) * wfg) / LGFEnd Sub点F的运动轨迹点F的x坐标随杆AB角位移的变化点F的y坐标随杆AB角位移的变化点F的速度随杆AB角位移的变化点F的绝对加速度随杆AB角位移的变化杆5的角位移所以1的角位移的变化杆5的角速度杆5的角加速度五、对计算结果的分析1、点F的速度在x方向的分量和在y方向的分量在大小上变化规律基本一致，在AB杆角位移在50°——100°是速度增加很快，其绝对速度增加也较快，从加速度的图像可以明显看出此时加速度增加迅速。