哈工大机械原理大作业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-16
Harbin Institute of Technology机械原理大作业设计说明书（一）课程名称：机械原理设计题目：连杆运动分析（16）院系：能源科学与工程学院班级：1102201设计者：学号：指导教师：赵永强唐德威设计时间：2013年6月8 日哈尔滨工业大学1 连杆机构运动分析题目16：如图所示机构，已知机构各构件的尺寸为AC l =CE l =100mm ，BC l =CD l =200mm ，90BCD ∠=，构件1的角速度为10/rad s ，试求构件5的角位移、角速度和角加速度，并对计算结果进行分析。
2 分析过程2.1 建立坐标系建立以点E 为原点的固定平面直角坐标系x-E-y,如图所示：图2 机构坐标系2.2结构分析将构件BCD 分为杆3和杆4。
该机构由2个Ⅰ级杆组RR （杆1和杆5）和两个Ⅱ级杆组RRP （杆3、杆4和滑块B 、D ）。
其中原动件为杆1。
现将杆组分为如下两部分：图1 机构运动简图RRPRR图3 各级杆组2.3 建立数学模型2.3.1构件1、2、3的分析原动件杆1的转角：1θ=0—360。
原动件杆1的角速度：1ω=.1θ=10/rad s原动件杆1的角加速度：..1αθ==0运动副A 的坐标：0200A A x y mm =⎫⎬=⎭运动副A 的速度及加速度都为零。
构件1为BC （RRP Ⅱ级杆组）上滑块B 的导路 滑块B 的位置为：132cos cos B A C x x s x l θθ=+=+ 132sin sin B A C y y s x l θθ=+=+消去s,得：212arcsinA l θθ=+式中：011()sin ()cos C A C A A x x y y θθ=---构件3的角速度i ω和滑块B 沿导路的移动速度D υ：.211213(Q sin Q cos )/Q ωϕθθ==-+ 1322323(Q cos Q sin )/Q D s l l υθθ⋅==-+式中：..11111211321212Q sin ;Q cos ;Q sin sin cos sin l l l θθθθθθθθ=-==+构件3的角加速度和滑块B 沿导路移动的加速度：..241513(Q sin Q cos )/Q αθθθ==-+..4325323(Q cos Q sin )/Q B s l l υθθ==-+式中：122......21142211111Q cos sin cos 2sin l l l s θθθθθθθθ=---- 122......21152211111Q sin cos sin 2cos l l l s θθθθθθθθ=+-+2.3.2 构件3,4,5的分析构件3,4,5,由1个Ⅰ级基本杆组和一个RRP Ⅱ级杆组组成，与构件1,2,3结构相同，只运动分析过程与其相反。
哈工大机械原理大作业连杆机构设计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 的位置及运动以及两杆的角位置、角运动。
机械原理大作业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ϕϕ、）。
哈工大机械原理大作业
H a r b i n I n s t i t u t e o f T e c h n o l o g y大作业设计说明书课程名称：机械原理设计题目：凸轮机构院系：机电学院班级：姓名：学号：指导教师：丁刚设计时间：2014.5.29哈尔滨工业大学1.设计题目第31题：升程/mm 升程运动角/。
升程运动规律升程许用压力角/。
回程运动角/。
回程运动规律回程许用压力角/。
远休止角/。
近休止角/。
150 90 等加等减速40 80 余弦加速度70 40 1502.运动方程式及运动线图由题目要求凸轮逆时针旋转（1）确定凸轮机构推杆升程、回程运动方程，并绘制推杆位移、速度、加速度线图。
升程第一段：（0 <φ< pi /4）φ0=pi/2;s1 = 73*φ^2;v1=146*w*φ;a1 = 146*w^2;升程第二段：（pi/4 <φ< pi /2）s2 =90-73*(pi/2-φ)^2;v2=146*w*( pi/2-φ);a2 =-146*w.^2;远休止程：（pi/2 <φ< 10*pi/9)s3 = 90;v3 = 0;a3 = 0;回程：(10*pi/9)< φ< ( 14*pi/9)s4 =45*(1+cos(9/4*(φ-10*pi/9)));v4 =-101.25*w*sin(9/4*(φ-10*pi/9)) ;a4 =-227.8*w^2* cos(9/4*(φ-10*pi/9)); 近休止程：(14*pi/9)< φ < ( 2*pi);s5 =0;v5 =0;a5 =0;1.由上述公式通过编程得到位移、速度、加速度曲线如下：（编程见附录）.基圆半径为r0 = (50^2+100^2)0.5=112mm，偏距e = 50mm。
3.凸轮实际轮廓，理论轮廓，基圆，偏距圆绘制4.整体图像附录1.求位移、速度、加速度的程序（matlab）w = input('请输入W=');x = 0:(pi/1000):(pi/4);s1 = 73*x.^2;v1=146*w*x;a1 = 146*w.^2;y = (pi/4):(pi/1000):(pi/2);s2 =90-73*(pi/2-y).^2;v2=146*w*( pi/2-y);a2 =-146*w.^2;z = (pi/2 ):(pi/1000):(10*pi/9);s3 = 90;v3 = 0;a3 = 0;c = (10*pi/9):(pi/1000):( 14*pi/9);s4 =45*(1+cos(9/4*(c-10*pi/9)));v4 =-101.25*w*sin(9/4*( c-10*pi/9)) ;a4 =-227.8*w.^2* cos(9/4*(c-10*pi/9));d=(14*pi/9):(pi/1000):( 2*pi);s5 =0; v5 =0; a5 =0;subplot (2,2,1)plot(x,s1,'b',y,s2,'b',z,s3,'b',c,s4,'b', d,s5,'b');xlabel('转角/rad')ylabel('位移/(mm/s)')title('位移与转角曲线')grid onsubplot (2,2,2)plot(x,v1,'g',y,v2,'g',z,v3,'g ',c,v4,'g', d,v5,'g')ds4 =45*9/4*sin(9/4*(c-10*pi/9));d=(14*pi/9):(pi/1000):( 2*pi);s5 =0;ds5 =0;plot(ds1,s1,'b',ds2,s2,'b',ds3,s3,'b',ds4,s4,'b',ds5,s5,'b'); xlabel('ds/dp');ylabel('(位移s/mm)')title('ds/dp 与位移s曲线')grid onhold onx3=-150:0.001:0;y3 = 0.577*x3;plot (x3,y3,'r');hold onx1=-150:0.001:150;for i=1:1:250;k1=(s1(i+1)-s1(i))/ (ds1(i+1)-ds1(i));if(k1>=-1.733 && k1<=-1.731)y1=k1*(x1-ds1(i))+s1(i);plot (x1,y1,'r');end3.确定滚子半径（1）先求凸轮理论轮廓曲线，程序如下：Clc；clear;w = input('请输入w=');s0 = 100;s = 90;e = 50; x = 0:(pi/100):(pi/4);x1 = (s + s0)*cos(x)-e*sin(x);y1 = (s0 + s)*sin(x) - e*cos(x);y = (pi/4):(pi/100):(pi/2);x2 = (s + s0)*cos(y)-e*sin(y);y2 = (s0 + s)*sin(y) - e*cos(y);z = (pi/2 ):(pi/100):(10*pi/9);x3 = (s + s0)*cos(z)-e*sin(z);y3 = (s0 + s)*sin(z) - e*cos(z);c = (10*pi/9):(pi/1000):( 14*pi/9);x4 = (s + s0)*cos(c)-e*sin(c);y4 = (s0 + s)*sin(c) - e*cos(c);d=(14*pi/9):(pi/1000):( 2*pi);x5 = (s + s0)*cos(d)-e*sin(d);y5 = (s0 + s)*sin(d) - e*cos(d);plot(x1,y1,'b',x2,y2,'b',x3,y3,'b',x4,y4,'b',x5,y5,'b');xlabel('x/mm')ylabel('y/mm')title('理论轮廓曲线')grid on（2）理论轮廓线最小曲率半径编程代码：由下程序结果可知pmin =81.6667这里滚子半径为 r r < pmin-ΔΔ=3~5mm；取r r=10mm;clear;clc;v=[];syms x1 x2 x3 x4 x5s0 = 100;e = 50;s1 = 73*x1.^2;t1 = (s1 + s0)*cos(x1)-e*sin(x1);y1 = (s0 + s1)*sin(x1) - e*cos(x1);tx1=diff(t1,x1);txx1=diff(t1,x1,2);yx1=diff(y1,x1);yxx1=diff(y1,x1,2);for xx1= 0:(pi/100):(pi/4);k1=subs(abs((tx1*yxx1-txx1*yx1)/(tx1^2+yx1^2)^1.5),{x1},{xx1}); v=[v,1/k1];ends2 =90-73*(pi/2-x2).^2;t2 = (s2 + s0)*cos(x2)-e*sin(x2);y2 = (s0 + s2)*sin(x2) - e*cos(x2);tx2=diff(t2,x2);txx2=diff(t2,x2,2);yx2=diff(y2,x2);yxx2=diff(y2,x2,2);for xx2=(pi/4):(pi/100):(pi/2);k2=subs(abs((tx2*yxx2-txx2*yx2)/(tx2^2+yx2^2)^1.5),{x2},{xx2});k4=subs(abs((tx4*yxx4-txx4*yx4)/(tx4^2+yx4^2)^1.5),{x4},{xx4}); v=[v,1/k4];ends5 =0;t5 = (s5 + s0)*cos(x5)-e*sin(x5);y5 = (s0 + s5)*sin(x5) - e*cos(x5);tx5=diff(t5,x5);txx5=diff(t5,x5,2);yx5=diff(y5,x5);yxx5=diff(y5,x5,2);for xx5=(10*pi/9):(pi/100):( 4*pi/3);k5=subs(abs((tx5*yxx5-txx5*yx5)/(tx5^2+yx5^2)^1.5),{x5},{xx5}); v=[v,1/k5];endpmin=min(v)4.绘制凸轮轮廓曲线clear ;clc;syms x y z c dw= input('请输入w=');n3 = diff(x3);m3 = diff(y3);xt3= subs(x3 + (r*m3)./sqrt(m3.^2+n3.^2),z,zz);yt3 = subs(y3 - (r*n3)./sqrt(m3.^2+n3.^2),z,zz);cc= (10*pi/9):(pi/1000):( 14*pi/9);s4 =45*(1+cos(9/4*(c-10*pi/9)));x4 = (s4 + s0).*cos(c)-e*sin(c);y4 = (s0 +s4).*sin(c) - e*cos(c);n4 = diff(x4);m4 = diff(y4);xt4= subs(x4 + (r*m4)./sqrt(m4.^2+n4.^2),c,cc);yt4 =subs( y4 - (r*n4)./sqrt(m4.^2+n4.^2),c,cc);dd=(14*pi/9):(pi/1000):( 2*pi);s5 =0;x5 = (s5 + s0).*cos(d)-e*sin(d);y5 = (s0 +s5).*sin(d) - e*cos(d);n5 = diff(x5);m5 = diff(y5);xt5= subs(x5 + (r*m5)./sqrt(m5.^2+n5.^2),d,dd);yt5 =subs( y5 - (r*n5)./sqrt(m5.^2+n5.^2),d,dd);plot(xt1,yt1,'b',xt2,yt2,'b',xt3,yt3,'b',xt4,yt4,'b',xt5,yt5,'b')for i=1:3601if yy(1,i)<=y0/2s(1,i)=2*h*(yy(i)./y0).^2;v(1,i)=4*h*w*yy(i)./(y0.^2);a(1,i)=4*h*w.^2./(y0.^2);elseif yy(1,i)>y0/2 && yy(1,i)<y0s(1,i)=h-2*h./y0.^2.*(y0-yy(i)).^2;v(1,i)=4*h*w*(y0-yy(i))./(y0.^2);a(1,i)=-4*h*w.^2./(y0.^2);elseif yy(1,i)>=y0 && yy(1,i)<y0+yss(1,i)=h;v(1,i)=0;a(1,i)=0;elseif yy(1,i)>=y0+ys && yy(1,i)<y0+ys+y01s(1,i)=h/2*(1+cos(pi/y01*(yy(1,i)-y0-ys)));v(1,i)=-pi*h*w/2/y01*sin(pi/y01*(yy(1,i)-y0-ys));a(1,i)=-pi^2*h*w^2/2/y01^2*cos(pi/y01*(yy(1,i)-y0-ys)); elseif yy(1,i)>=y0+ys+y01 && yy(1,i)<=360s(1,i)=0;v(1,i)=0;a(1,i)=0;subplot(2,3,5) ;plot(x,y,'r',xt,yt,eex,eey,'g',r0x,r0y,'k')%画图title('实际理论轮廓线')axis equal%使坐标轴比例相等grid on%画网格线。
哈工大机械原理大作业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级组。
哈工大-机械原理大作业-连杆机构运动分析
机械原理大作业（一）作业名称：连杆机构运动分析设计题目： 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α。
哈工大机械原理大作业一连杆-15题
Harbin Institute of Technology机械原理大作业一课程名称：机械原理设计题目：连杆传动设计院系：船舶与海洋工程学院班级：1513102班分析者：刘康哲学号：*********指导教师：***设计时间：2017.06.051.题目：如图所示机构，已知机构各构件的的尺寸为l AB=100mm,l BD=400mm,l AE=400mm,l BC=200mm,曲柄AB的角速度为w1=10rad/s,试求构件2上点D的轨迹，构件5的角位移、角速度和角加速度，并对结果进行分析。
（题中构件尺寸满足l BD-l AB<l AE<l BD+l AB）。
2．机构的结构分析及基本杆组划分机构各构件都在同一平面内运动，可拆分成一个原动件（构件1），一个RRPⅡ级基本杆组（构件2、3）和一个RPR Ⅱ级基本杆组（构件4、5）。
活动构件数n=5，P L，P H，因此，机构的自由度为F=3*n-2* P L- P H =3*5-2*7=1原动件：RRPⅡ级基本杆组：RPR Ⅱ级基本杆组:3．坐标系的建立以A点为坐标原点，AE方向为x轴正方向，建立平面直角坐标系。
4．各基本杆组的运动分析数学模型（1）原动件：位置分析： X B = X A + L AB * cos(wt) Y B = Y A + L AB * sin(wt) 其中，X A = Y A = 0 ，w = 10rad/s , L AB = 100 mm 速度分析：将上式分别对时间求导，可得速度方程,V XB = V XA – w*L AB *sin(wt)V YB = V YA + w*L AB *cos(wt)其中，V XA = V YA = 0 加速度分析:将上式分别对时间求导，可得速度方程,a XA = a XA – α* L AB * sin(wt) – w*w*L AB *cos(wt)a YA = a YA + α* L AB * cos(wt) – w*w*L AB *sin(wt)其中，a XA = a YA = 0 α= dw/dt（2）RRP Ⅱ级基本杆组:位置分析： X C = LAB*cos(wt)+wt Lab Lbc 222sin *Y C = 0 可求得，β= arcsin (Y B / L BC ) 速度分析：将上式分别对时间求导，可得速度方程,V XC =-w* LAB*cos(wt) – (wt Lab Lbc 222sin * )-1/2 * sin(wt)*wV YC = 0加速度分析：将上式分别对时间求导，可得加速度方程, （3）RPR Ⅱ级基本杆组位置分析： X D = X C + L CD * cos βY D = - L CD * sin β可求得， θ = arctan (-YD / (LAE -XD) ) 速度分析：将上式分别对时间求导，可得速度方程,5．计算编程在MATLAB 中编写如下程序：function [ XD,YD,Q,Q1,Q2] = calculate(t) %UNTITLED4 Summary of this function goes here % Detailed explanation goes here Lab=100; Lbc=200; Lcd=200; Lae=400; w=10;XB=Lab*cos(w.*t); YB=Lab*sin(w.*t); P=asin(YB./Lbc); XC=sqrt(Lbc.^2-YB.^2)+XB; XD=Lcd.*cos(P)+XC; YD=-Lcd.*sin(P); Q=atan(YD./(Lae-XD)); Q1=diff(Q); Q2=diff(Q1); end5．计算结果t 时间 XD D 点横坐标YD D 点纵坐标Q构件5角度Q1 构件5角速度 Q2构件5角加速度5000.10050.003008D点运动轨迹：构件5的角位移线图：构件5的角速度图：构件5的角加速度线图：6．计算结果分析原动件1可做整周回转，同时构件5也可做整周运动。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
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的角位移，角速度和角加速度，并对计算结果进行分析。
一、建立坐标系以A 点为原点建立如图所示坐标系x-y ，如上图所示二、机构结构分析该机构可认为由一个I 级杆组RR （杆AB ）、II 级杆组RRR （杆2、3）、II 级杆组RPR （杆5及滑块4）组成。
如下图所示。
I 级杆组RRXII 级杆组RRRII 级杆组RPR三、确定已知参数和设计流程一）AB （I 级杆组RR ）运动副A 的位置坐标为AB=28OmmB 的位置坐标.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 加速度速度二）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 精简版源代码如下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 Double.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 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 =pa = pi / 180fj1 = 0End SubPrivate Sub Command1_Click() '点F的轨迹(-200, 250)-(100, -50)(-200, 0)-(100, 0) 'X(0, 250)-(0, -50) 'YFor i = -180 To 120 Step 30 'X轴坐标= 2(i, 250)-(i, -50)= i - 10: = 0iNext iFor i = -60 To 240 Step 30 'Y轴坐标= 2(-200, i)-(100, i)= -10: = iiNext iFor fj1 = 0 To 360 Stepfab = fj1 * paCall RR1Call RRRCall RR2(xF, yF)Next fj1End SubPrivate Sub Command2_Click() '杆5的角位移(-10, 8)-(380, -2)(-10, 0)-(380, 0) 'X(0, 8)-(0, -2) 'YFor i = -30 To 390 Step 30 'X轴坐标= 2(i, 8)-(i, -2)= i - 10: = 0iNext iFor i = -2 To 8 Step 1 'Y轴坐标= 2(-10, i)-(380, i)= -10: = iiNext iFor fj1 = 0 To 360 Stepfab = fj1 * paCall RR1Call RRRCall RR2Call RPR(fj1, ffg)Next fj1End SubPrivate Sub Command3_Click() '杆5的角速度(-20, 90)-(380, -10)(-20, 0)-(380, 0) 'X(0, 90)-(0, -10) 'YFor i = 0 To 360 Step 30 'X轴坐标= 2(i, 90)-(i, -10)= i - 10: = 0iNext iFor i = -10 To 90 Step 5 'Y轴坐标(0, i)-(380, i)= -20: = iiNext iFor fj1 = 0 To 360 Stepfab = fj1 * paCall RR1Call RRRCall RR2Call RPR(fj1, wfg)Next fj1End SubPrivate Sub Command4_Click() '杆5的角加速度(-20, 800)-(380, -800)(-20, 0)-(380, 0) 'X(0, 800)-(0, -800) 'YFor i = 0 To 360 Step 30 'X轴坐标= 2(i, 800)-(i, -800)= i - 10: = 0iNext iFor i = -800 To 800 Step 80 'Y轴坐标(0, i)-(380, i)= -25: = i + 5iNext iFor fj1 = 0 To 360 Stepfab = fj1 * paCall RR1Call RRRCall RR2Call RPR(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 IfIf xD < xB And yD < yB Then '第三象限fbd = Atn((yD - yB) / (xD - xB)) + pifbc = fbd - JCBDElseEnd IfIf xD > xB And yD <= yB Then '第四象限fbd = Atn((yD - yB) / (xD - xB)) + pi * 2fbc = fbd - JCBDElseEnd IfIf xB = xD And yD > yB Then 'y轴正向fcd = * piElseEnd IfIf xB = xD And yD < yB Then 'y轴负向fcd = * 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 IfIf xC = xD And yC > yD Then 'y轴正向fcd = * piElseEnd IfIf xC = xD And yC < yD Then 'y轴负向fcd = * 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 = * piElseEnd IfIf xF = xG And yF < yG Then 'y轴负向ffg = * 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°是速度增加很快，其绝对速度增加也较快，从加速度的图像可以明显看出此时加速度增加迅速。