哈工大机械原理大作业

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结构相同，只运动分析过程与其相反。

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机械原理大作业一课程名称：机械原理设计题目：连杆机构运动分析院系：机电学院班级： 1208105分析者：殷琪学号：指导教师：丁刚设计时间：哈尔滨工业大学设计说明书1 、题目如图所示机构，一只机构各构件的尺寸为AB=100mm，BC=4.28AB，CE=4.86AB，BE=8.4AB，CD=2.14AB，AD=4.55AB，AF=7AB，DF=3.32AB，∠BCE=139?。

构件1的角速度为ω1=10rad/s，试求构件2上点E的轨迹及构件5的角位移、角速度和角加速度，并对计算结果进行分析。

2、机构结构分析该机构由6个构件组成，4和5之间通过移动副连接，其他各构件之间通过转动副连接，主动件为杆1，杆2、3、4、5为从动件，2和3组成Ⅱ级RRR基本杆组，4和5组成Ⅱ级RPR 基本杆组。

如图建立坐标系3、各基本杆组的运动分析数学模型1) 位置分析2) 速度和加速度分析 将上式对时间t 求导，可得速度方程：将上式对时间t 求导，可得加速度方程:RRR Ⅱ级杆组的运动分析如下图所示 当已知RRR 杆组中两杆长L BC 、L CD 和两外副B 、D 的位置和运动时，求内副C的位置、两杆的角位置、角运动以及E 点的运动。

1) 位置方程由移项消去j ϕ后可求得i ϕ：式中，可求得j ϕ：E 点坐标方程：其中2) 速度方程两杆角速度方程为式中，点E 速度方程为3) 加速度方程两杆角加速度为式中，点E 加速度方程为RPR Ⅱ级杆组的运动分析（1） 位移方程（2）速度方程其中（3）加速度方程4、 计算编程利用MATLAB 软件进行编程，程序如下:% 点B 和AB 杆运动状态分析>>r=pi/180;w 1=10;e 1=0;l 1=100;Xa=0;Ya=0;Vax=0;Vay=0;aax=0;aay=0;f1=0:1: 360;% B 点位置Xb=Xa+l1*cos(r*f1);Yb=Ya+l1*sin(r*f1);% B点速度Vbx=Vax-w1*l1*sin(r*f1);Vby=Vay+w1*l1*cos(r*f1);% B点加速度abx=aax-l1*w1.^2.*cos(r*f1);aby=aay-l1*w1.^2.*sin(r*f1);% RRR2级杆组运动分析% 输入D点参数l2=428;l3=214;Xd=455;Yd=0;Vdx=0;Vdy=0;adx=0;ady=0;% 计算E点、2杆、3杆运动参数lbe=840;lce=486;a0=2*l2*(Xd-Xb);b0=2*l2*(Yd-Yb);c0=l2^2+(Xb-Xd).^2+(Yb-Yd).^2-l3^2;f2=2*atan((b0+sqrt(a0.^2+b0.^2-c0.^2))./(a0+c0)); % C点位置Xc=Xb+l2*cos(f2);Yc=Yb+l2*sin(f2);% 2杆、3杆运动参数计算dX=Xc-Xd;dY=Yc-Yd;for n=1:length(dX)if dX(n)>0&dY(n)>=0f3(n)=atan(dY(n)/dX(n));elseif dX(n)==0&dY(n)>0f3(n)=pi/2;elseif dX(n)<0&dY(n)>=0f3(n)=pi+atan(dY(n)/dX(n));elseif dX(n)<0&dY(n)<0f3(n)=pi+atan(dY(n)/dX(n));elseif dX(n)==0&dY(n)<0f3(n)=1.5*pi;elseif dX(n)>0&dY(n)<0f3(n)=2*pi+atan(dY(n)/dX(n));endendC2=l2*cos(f2);C3=l3*cos(f3);S2=l2*sin(f2);S3=l3*sin(f3);G1=C2.*S3-C3.*S2;w2=(C3.*(Vdx-Vbx)+S3.*(Vdy-Vby))./G1;w3=(C2.*(Vdx-Vbx)+S2.*(Vdy-Vby))./G1;G2=adx-abx+(w2.^2).*C2-(w3.^2).*C3;G3=ady-aby+(w2.^2).*S2-(w3.^2).*S3;e2=(G2.*C3+G3.*S3)./G1;% E点位置w=acos((l2^2+lbe^2-lce^2)/(2*l2*lbe));Xe=Xb+lbe*cos(f2-w);Ye=Yb+lbe*sin(f2-w);Vex=Vbx-lbe*w2.*sin(f2-w);Vey=Vby+lbe*w2.*cos(f2-w);aex=abx-lbe*(e2.*sin(f2-w)+w2.^2.*cos(f2-w));aey=aby+lbe*(e2.*cos(f2-w)-w2.^2.*sin(f2-w));% 计算杆5运动参数Xf=646.2912088;Yf=-268.9008617;l5=sqrt((Xe-Xf).^2+(Ye-Yf).^2);dX=Xe-Xf;dY=Ye-Yf;for n=1:length(dX)if dX(n)>0&dY(n)>=0f5(n)=atan(dY(n)/dX(n));elseif dX(n)==0&dY(n)>0f5(n)=pi/2;elseif dX(n)<0&dY(n)>=0f5(n)=pi+atan(dY(n)/dX(n));elseif dX(n)<0&dY(n)<0f5(n)=pi+atan(dY(n)/dX(n));elseif dX(n)==0&dY(n)<0f5(n)=1.5*pi;elseif dX(n)>0&dY(n)<0f5(n)=2*pi+atan(dY(n)/dX(n));endendw5=(-Vex.*sin(f5)+Vey.*cos(f5))./l5;a5=(-aex.*sin(f5)+aey.*cos(f5))./l5;% 画出各参数曲线figure(1);plot(Xe,Ye,'k');xlabel('Xe/\mm');ylabel('Ye/mm');grid on;title('E点位置');figure(2);plot(f1,f5,'k');xlabel('f/\circ');ylabel('f5/\circ');grid on;title('5杆角位移');figure(3);plot(f1,w5,'k');xlabel('f/\circ');ylabel('w5/rad/s');grid on;title('5杆角速度');figure(4);plot(f1,a5,'k');xlabel('f/\circ');ylabel('a5/rad/s2');gridon;title('5杆角加速度');Warning: Unable to interpret TeX string "Xe/\mm"5、计算结果图一：E点的运动轨迹图二：5杆角位移图三：5杆角速度图四：5杆角加速度6、计算结果分析由E点位置图像可看出，构件4做周期往复运动，由图二、三、四可看出，构件5的角位移、角速度、角加速度均成周期性变化。

Harbin Institute of Technology机械原理大作业一课程名称： 机械原理 设计题目： 连杆机构运动分析 院 系： 机电工程学院 班 级： 设 计 者： 学 号： 指导教师： 设计时间：1.运动分析题目(11)在图所示的六杆机构中，已知：AB l =150mm, AC l =550mm, BD l =80mm, DE l =500mm,曲柄以等角速度1w =10rad/s 沿逆时针方向回转，求构件3的角速度、角加速度和构件5的位移、速度、加速度。

2.机构的结构分析2.1建立以点A 为原点的固定平面直角坐标系A-x, y,如下图： 2.2机构结构分析该机构由Ⅰ级杆组RR （原动件1）、Ⅱ级杆组RPR （杆2及滑块3）和Ⅱ级杆组RRP （杆4及滑块5）组成。

3.建立组成机构的各基本杆组的运动分析数学模型3.1原动件1（Ⅰ级杆组RR ）由图所示，原动件杆1的转角a=0-360°，角速度1w =10rad/s ，角加速度1a =0,运动副A 的位置坐标A x =A y =0,速度(A ，A)，加速度（A ，A ），原动件1的长度AB l =150mm 。

求出运动副B 的位置坐标（B x , B y ）、速度（B ，B ）和加速度（B ，B ）。

3.2杆2、滑块3杆组（RPR Ⅱ级杆组）已出运动副B 的位置（B x , B y ）、速度（B ，B ）和加速度（B ，B ），已知运动副C 的位置坐标C x =0, C y =550mm,速度，加速度，杆长AC l =550mm 。

求出构件2的转角b,角速度2w 和角加速度2a . 3.3构件二上点D 的运动已知运动副B 的位置（B x , B y ）、速度（B ，B ）、加速度（B ，B ），已经求出构件2的转角b ，角速度2w 和角加速度2a ，杆BD 的长度BD l =80mm 。

根据Ⅰ级杆组RR 的运动分析数学模型求出点D 的位置坐标（D x ,D y ）、速度（D ，D ）和加速度（D ，D ）。

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%画网格线。

Harbin Institute of Technology机械原理大作业三课程名称：设计题目：院系：班级：设计者：学号：指导教师：设计时间：哈尔滨工业大学大作业3 齿轮传动设计 1、设计题目1.1机构运动简图1.2机械传动系统原始参数2、传动比的分配计算由已知条件，电动机转速n=1450r/min ，输出转速n 1=27 r/min ，n 2=31 r/min ，n 3=37 r/min ，带传动最大传动比max p i =2.5,滑移齿轮传动最大传动比=4，定轴齿轮传动最大 传动比=4。

可求得：传动系统的总传动比为:11n ni == 1450/27=53.70322n ni == 1450/31=46.774 33n ni == 1450/37=39.189 传动系统的总传动比分别由带传动、滑移齿轮传动和定轴齿轮传动三部分实现。

设带传的传送比为其最大传送比5.2max =p i ，滑移齿轮的传动比为321,,v v v i i i ，定轴齿轮传动的传动比为f i ，则总传动比由于1i > 2i > 3i ，故取1max 4v v i i ==则定轴齿轮传动部分的传动比为1max max5.37f p v i i i i ==滑移齿轮传动的传动比22max3.49v f p i i i i ==33m a x2.92v f p i i i i ==定轴齿轮传动由3对齿轮传动组成， 每对齿轮的传动比为：1.754d i ==≤3、齿轮齿数的确定滑移齿轮齿数3=v i 65622.9521z z == 2=v i 8766 3.4719z z ==1=v i 10967 3.9417z z ==齿轮7，齿轮8：719z = 866z =781()852a m z z =+=齿轮9，齿轮10：917z =1067z =此时已知条件为'a =85mm ，910211()842()ni i a m z z X X ==+=-∑mm ''arccos(cos )21.78a aαα==总变位系数：'910()0.552tan z z x inv inv ααα∑+=-=根据x ∑值和1093.94 3.0z uz ==>，按选择变位系数线图左部斜线⑤分配变位系数，得90.45x =齿轮5，齿轮6：5=21z662z =此时已知'a =85mm ，561()832a m z z =+= ''arccos(cos )23.42a a αα==100.10x =总变位系数：'65() 1.082tan z z x inv inv ααα∑+=-=根据x ∑值和652.953z u z ==>，按选择变位系数线图左部斜线④分配变位系数，得 50.5x =60.58x =定轴圆柱齿轮齿数=d i 1214111326 1.5317z z z z ===齿轮11，齿轮12：角度变位正传动。

Harbin Institute of Technology机械原理大作业3课程名称：机械原理设计题目：齿轮传动设计哈尔滨工业大学一、设计题目：如下图一个机械传动系统，运动运动由电动机1输入，经过机械传动系变速后由圆锥齿轮16输出三种不同转速。

选择一组传动系统的原始参数，据此设计该传动系统。

序号电机转速〔r/min〕输出轴转速〔r/min〕带传动最大传动比滑移齿轮传动定轴齿轮传动最大传动比模数圆柱齿轮圆锥齿轮一对齿轮最大传动比模数一对齿轮最大传动比模数7 1450 17 23 30 ≤2.8 ≤4.5 2 ≤4.5 3 ≤4 3二、传动比的分配计算：电动机转速n=1450r/min，输出转速n1=17r/min，n2=23 r/min，n3=30 r/min，带传动的最大传动比=2.8,滑移齿轮传动的最大传动比=4.5，圆柱齿轮传动的最大传动比=4.5，圆锥齿轮最大传动比=4。

根据传动系统的原始参数可知，传动系统的总传动比为：i1=1450/30=48.333i2=1450/23=63.043i3=1450/17=85.294传动系统的总传动比由带传动、滑移齿轮传动和定轴齿轮传动三局部实现。

设带传动的传动比为ipmax =2.8，滑移齿轮的传动比为iv1,iv2和iv3，令iv3=ivmax=4.5,那么定轴的传动比为if =85.294/(4.5*2.8)=6.769，从而iv1=48.333/〔6.769*2.8〕=2.550,iv2=3.326。

定轴齿轮每对的传动比为id==1.89。

三、滑移齿轮变速传动中每对齿轮的几何尺寸及重合度:经过计算、比拟，确定出三对滑移齿轮的齿数，其分别为：z5=17，z6=44，z 7=14,z8=47，z9=11，z10=50。

变位系数确实定：x5=x6=0； x7≥ha*(17-14)/17=0.176，取x7=0.18，x8=-0.18；x9≥ha*(17-11)/17=0.353，取x9=0.36；x10=-0.36。

Harbin Institute of Technology机械原理大作业二课程名称：机械原理设计题目：凸轮机构设计院系：机电工程学院班级：设计者：学号：指导教师：设计时间：凸轮机构设计一． 设计题目表1 凸轮机构原始参数二． 凸轮推杆升程、回程运动方程及推杆位移、速度、加速度线图1. 推杆升程运动方程（ϕ为转角）（203ϕπ≤≤） 令1/rad s ω= 位移：001212040[sin()]sin(3)2s h ϕπϕϕϕφπφππ=-=- 速度：1002120120[1cos()]cos(3)h v ωπϕϕφφππ=-=- 加速度：2120022360[sin()]sin(3)h a πωπϕϕφφπ==2. 推杆回程运动方程（ϕ为转角）7563πϕπ≤≤ 位移：''00128001604014[1sin()]sin(4)]233T s h T πϕϕπφπφππ=-+=-+- 速度：1''00216016014[1cos()]cos(4)]3h v T ωπϕϕπφφππ=--=-+- 加速度：21'2'002264014sin()sin(4)]3h a T πωπϕπφφπ=-=-- 式中：027()()326s T πππϕϕϕϕϕ=-+=-+=-由MATLAB编程得到线位移图像：线速度图像：线加速度图像：三．绘制机构的ds sdϕ-线图由dsds vdtdd wtϕϕ==可知线图即vsw-线图，由MATLAB编程后得图四．确定基圆半径和偏距1.画切线图如上页图，得其切线图2.求基圆半径和偏距从图中读取e=50mmr0=111.80mm五．画理论及实际轮廓附：MATLAB编程1.推杆位移线图代码%升程阶段t=0:0.001:2*pi/3;s=120.*t./pi-40./pi.*sin(3.*t);hold onplot(t,s);%远休止阶段t=2*pi/3:0.001:7*pi/6;s=80;hold onplot(t,s);%回程阶段t=7*pi/6:0.001:5*pi/3;s=800/3-160.*t./pi+40./pi.*sin(4.*t-14*pi/3) hold onplot(t,s);%近休止阶段t=5*pi/3:0.001:2*pi;s=0;hold onplot(t,s);grid onhold off2.推杆速度线图代码%升程阶段t=0:0.001:2*pi/3;v=120/pi-120/pi*cos(3.*t);hold onplot(t,s);%远休止阶段t=2*pi/3:0.001:7*pi/6;v=0;hold onplot(t,s);%回程阶段t=7*pi/6:0.001:5*pi/3;v=-160/pi+160/pi*cos(4.*t-14/3*pi) hold onplot(t,s);%近休止阶段t=5*pi/3:0.001:2*pi;v=0;hold onplot(t,s);grid onhold off3.推杆加速度线图代码%升程阶段t=0:0.001:2*pi/3;a=360/pi.*sin(3.*t)hold onplot(t,a);%远休止阶段t=2*pi/3:0.001:7*pi/6;a=0;hold onplot(t,a);%回程阶段t=7*pi/6:0.001:5*pi/3;a=-640/pi.*sin(4.*t-14/3*pi) hold onplot(t,a);%近休止阶段t=5*pi/3:0.001:2*pi;a=0;hold onplot(t,a);grid onhold off4.dssdϕ-线图代码%升程阶段t=0:0.001:2*pi/3;s=120.*t./pi-40./pi.*sin(3.*t);v=120/pi-120/pi*cos(3.*t);hold onplot(v,s);%远休止阶段t=2*pi/3:0.001:7*pi/6;s=80;v=0;hold onplot(v,s);%回程阶段t=7*pi/6:0.001:5*pi/3;s=800/3-160.*t./pi+40./pi.*sin(4.*t-14*pi/3);v=-160/pi+160/pi*cos(4.*t-14/3*pi)hold onplot(v,s);5.最终轮廓线图代码h=80;w=1;e=50;rr=20;s0=100;m=120*pi/180;ms=(120+90)*pi/180;m1=(120+90+90)*pi/180; for i=1:1:120mm(i)=i*pi/180.0;s1=h.*( mm(i)./m -(1/(2*pi)).*sin(2.*pi.*mm(i)./m));v1=(w*h./m)*(1-cos(2*pi*mm(i)/m));x(i)=(s0+s1)*sin(mm(i))+e*cos(mm(i));y(i)=(s0+s1)*cos(mm(i))-e*sin(mm(i));a(i)=(s0+s1)*cos(mm(i))-e*sin(mm(i))+v1/w*sin(mm(i)); b(i)=-(s0+s1)*sin(mm(i))-e*cos(mm(i))+v1/w*cos(mm(i));xx(i)=x(i)+rr*b(i)/sqrt(a(i)*a(i)+b(i)*b(i));yy(i)=y(i)-rr*a(i)/sqrt(a(i)*a(i)+b(i)*b(i));endfor i=121:1:210mm(i)=i*pi/180;s2=h;v2=0;x(i)=(s0+s2)*sin(mm(i))+e*cos(mm(i));y(i)=(s0+s2)*cos(mm(i))-e*sin(mm(i));a(i)=(s0+s2)*cos(mm(i))-e*sin(mm(i))+v2/w*sin(mm(i));b(i)=-(s0+s2)*sin(mm(i))-e*cos(mm(i))+v2/w*cos(mm(i));xx(i)=x(i)+rr*b(i)/sqrt(a(i)*a(i)+b(i)*b(i));yy(i)=y(i)-rr*a(i)/sqrt(a(i)*a(i)+b(i)*b(i));endfor i=211:1:300mm(i)=i*pi/180;s3=800/3-160/pi.*mm(i)+40/pi.*sin(4.*mm(i)-14/3*pi);v3=-160/pi+160/pi.*cos(4*mm(i)-14/3*pi)x(i)=(s0+s3)*sin(mm(i))+e*cos(mm(i));y(i)=(s0+s3)*cos(mm(i))-e*sin(mm(i));a(i)=(s0+s3)*cos(mm(i))-e*sin(mm(i))+v3/w*sin(mm(i));b(i)=-(s0+s3)*sin(mm(i))-e*cos(mm(i))+v3/w*cos(mm(i));xx(i)=x(i)+rr*b(i)/sqrt(a(i)*a(i)+b(i)*b(i));yy(i)=y(i)-rr*a(i)/sqrt(a(i)*a(i)+b(i)*b(i));endfor i=301:1:360mm(i)=i*pi/180;x(i)=(s0+0)*sin(mm(i))+e*cos(mm(i));y(i)=(s0+0)*cos(mm(i))-e*sin(mm(i));a(i)=(s0+0)*cos(mm(i))-e*sin(mm(i))+v3/w*sin(mm(i));b(i)=-(s0+0)*sin(mm(i))-e*cos(mm(i))+v3/w*cos(mm(i));xx(i)=x(i)+rr*b(i)/sqrt(a(i)*a(i)+b(i)*b(i));yy(i)=y(i)-rr*a(i)/sqrt(a(i)*a(i)+b(i)*b(i));endplot(x,y,'r',xx,yy,'g')text(0,20,'实际轮廓线')text(120,100,'理论轮廓线')hold on。

机械原理大作业大作业一：连杆机构运动分析学生姓名：学号：指导教师：丁刚完成时间：机电工程学院机械设计系制二〇一八年四月连杆机构运动分析1题目（9）图1 设计题目在图1所示的机构中，已知l AB=60mm，l BC=180mm，l DE=200mm，l CD=120mm，l EF=300mm，h=80mm，h1=85mm，h2=225mm，构件1以等角速度ω1=100rad/s 转动。

求在一个运动循环中，滑块5的位移、速度和加速度曲线。

2分析结构1、杆1为RR主动件，绕A以ω1 转动，自由度1.2、4杆和滑块5为RRP II级杆组.，自由度0.3、2，3杆组成II级杆组RRR，自由度0.总共自由度为F=5*3-2*7=1 .由上述的杆组类型，确认出所需运动分析数学模型：同一构件上的点、RRP、RRR。

3.杆组法对平面连杆机构进行运动分析3.1对主动件杆1 RR I级构件的分析主动杆1转角：φ= [0°,360°) δ=0°,则φ’=ω1=100 rad/s角加速度φ’’=0.已知h2=225mm, h=80mm, l AB=60mm 所以A（225mm,80mm）A点速度(0,0),加速度(0,0)B点位置(x A+l AB*cos(φ), Y A+l AB*sin(φ))B点速度(-l AB*sin(φ), l AB*cos(φ)),加速度(-l AB*cos(φ), -l AB*sin(φ))3.2RRRII 级杆组分析（模型参考教材P37-38）图3 如图所示两个构件组成II 级杆组。

已知了B 的位置（x B ，y B ）= (x A +l AB *cos(φ), Y A +l AB *sin(φ)),速度（x ’B ，y ’B ） 和加速度（x ’’B ,y ’’B ）, 已知运动副D （0,0）， 还可知，x ’D =y ’D =0, x ’’D =y ’’D =0. l BC =180 mm, l CD = 120mm所以，x c =x D +l CD *cos(φi)= x B +l BC *cos(φj) y c =x D +l CD *sin(φi)= x B +l BC *sin(φi) 对于φ的求解： A 0=2*l CD （x B -x D ） B 0=2*l BC （y B -y D ） C 0=l CD 2+ l BD 2- l BC 2为了保证机构的装配正常：l BD ≤l CD + l BC AND l BD ≥Abs （l CD - l BC ）可求3杆的转角φi=2*arctan(（B 0±sqrt （A 02 + B 02- C 02））/（A 02+ C 02)），角速度w3=φi ’和角加速度α3= φi ’’3.3 同一构件上的点(模型参考书P35-36)Φiφjφi已知D(0,0),速度(0,0),加速度(0,0),3杆转角φi 角速度φi’角加速度φi’’，Φi和它的导数在3.2都有体现LDE= 200mm可求出E的坐标,速度,加速度.x E =x c+lCE*cos(φi)y E =x C+lCE*sin(φi)同样地，速度、加速度通过求导即可得出算式，可以编出程序。

机械原理大作业二课程名称：机械原理设计题目：凸轮机构设计院系：机电工程学院班级：完成者：学号：指导教师：设计时间：设计说明书1 设计题目：如图所示直动从动件盘形凸轮机构，其原始参数见表2-1。

从表2-1中选择一组凸轮机构的原始参数，据此设计该凸轮机构。

注： 5题参数有误，我将远休止角改为45 ，将近休止角改为105 .2、推杆升程、回程运动方程及位移、速度、加速度线图：2.1凸轮运动分析： 推程运动方程; 01cos 2h s πϕ⎡⎤⎛⎫=-⎢⎥ ⎪Φ⎝⎭⎣⎦100sin 2h v πωπϕ⎛⎫=⎪ΦΦ⎝⎭序号 升程 （mm ） 升程运 动角（ ） 升程运 动规律 升程 许用压力角 （） 回程运动角 （） 回程运 动规律 回程许用 压力角 （ ） 远休 止角 （ ） 近休 止角 （ ） 5（改）60120余弦加速度3590等速6545105ω221200cos 2h a πωπϕ⎛⎫=⎪ΦΦ⎝⎭回程运动方程： ()0'01s s h ϕ-Φ+Φ⎡⎤=-⎢⎥Φ⎣⎦1'0h v ω=-Φ 0a =2.2求位移、速度、加速度线图MATLAB 源程序： pi=3.1415926; c=pi/180; h=60; f0=120; fs=45; f01=90; fs1=105;f=0:1:360; %升程阶段 for n=0:f0s(n+1)=h/2*(1-cos(pi/f0*f(n+1)));v(n+1)=pi*h/(2*f0*c)*sin(pi/f0*f(n+1));a(n+1)=pi^2*h/(2*f0^2*c^2)*cos(pi/f0*f(n+1)); end%远休止阶段 for n=f0:f0+fs s(n+1)=60; v(n+1)=0; a(n+1)=0; endfor n=f0+fs:f0+fs+f01 %回程阶段 s(n+1)=h*(1-(f(n+1)-(f0+fs))/f01); v(n+1)=-h/(f01*c); a(n+1)=0; end;for n=f0+fs+f01:360; %近休止阶段 s(n+1)=0; v(n+1)=0; a(n+1)=0; endfigure(1);plot(f,s,'r');xlabel('\phi/\circ');ylabel('s/mm');grid on;title('推杆位移线图')figure(2);plot(f,v,'r');xlabel('\phi/\circ');ylabel('v/\ommiga');grid on;title('推杆速度线图')figure(3);plot(f,a,'r');xlabel('\phi/\circ');ylabel('a/\ommiga');grid on;title('推杆加速度线图')2.3位移、速度、加速度线图：3 凸轮机构的dss d ϕ-线图，确定基圆半径和偏心距： 3.1理论分析：机构压力角α应按下式计算： 0-tan =+ds d es sϕα作出-ds d s ϕ曲线，因凸轮机构压力角0-tan =+ds d e s sϕα，式中，2200=-s r e ，右侧为升程，作与s 轴夹角等于升程许用压力角35的切界线D d t t ，则在直线上或其右下方取凸轮轴心时，可使[]0-=arctan+ds d es sϕαα≤，同理左侧回程，作与s 轴夹角等于回程许用压力角65的切界线D 'd 't t ，则在直线上或其左下方取凸轮轴心时，使[]0-=arctan+ds d es sϕαα≤。

机械原理大作业（二）作业名称：凸轮机构设计设计题目：23题院系：班级：设计者：学号：指导教师：设计时刻：哈尔滨工业大学机械设计1.运动分析题目：设计直动从动件盘形凸轮机构，其原始参数见下表2.确信凸轮机构推杆升程、回程运动方程（设定角速度为ω=10 rad/s）升程：0°< Φ < 120°由公式可得：s=60-60*cos(3*Φ/2)；v=90*ω*sin(3*Φ/2)；a=135*ω2 *cos(3*Φ/2)；远停止：120°< Φ < 200°由公式可得：s=120；v=0；a=0；回程：200°< Φ < 290°由公式可得：s=h[1-(10T23-15T24+6T25)]v=(-30hω1/Φ0')T22(1–2T2+T22)a=(-60hω12/Φ0'2)T2(1–3T2+2T22)式中：T2=(Φ-Φ0-Φs)/ Φ0'近停止： 290°< Φ < 360°由公式可得：s=0；v=0；a=0；3.绘制推杆位移、速度、加速度线图(设ω=10rad/s）1) 推拉位移曲线代码：%推杆位移曲线;x=0:(pi/1000):(2*pi/3);s1=60-60*cos(1.5*x);y=(2*pi/3):(pi/1000):(10*pi/9);s2=120;z=(10*pi/9):(pi/1000):(29*pi/18);T2=(z-10*pi/9)*2/pi;s3=120*(1-(10*T2.^3-15*T2.^4+6*T2.^5));m=(29*pi/18):(pi/1000):(2*pi);s4=0;plot(x,s1,'b',y,s2,'b',z,s3,'b',m,s4,'b'); xlabel('角度(rad)');ylabel('行程(mm)');title('推杆位移曲线');grid;2）推杆速度曲线代码：%推杆速度曲线;w=10;x=0:(pi/1000):(2*pi/3);v1=90*w*sin(1.5*x);y=(2*pi/3):(pi/1000):(10*pi/9);v2=0;z=(10*pi/9):(pi/1000):(29*pi/18);T2=(z-10*pi/9)*2/pi;v3=(-30*120*w/(pi/2))*T2.^2.*(1-2*T2.^2+T2.^2); % v3=-120*w*sin(2*z-20*pi/9);m=(29*pi/18):(pi/1000):(2*pi);v4=0;plot(x,v1,'r',y,v2,'r',z,v3,'r',m,v4,'r'); xlabel('角度(rad)');ylabel('速度(mm/s)');title('推杆速度曲线(w=10rad/s)');grid;3）凸轮推杆加速度曲线代码：%凸轮推杆加速度曲线;w=10;x=0:(pi/1000):(2*pi/3);a1=135*w^2*cos(3*x/2);y=(2*pi/3):(pi/1000):(10*pi/9);a2=0;z=(10*pi/9):(pi/1000):(29*pi/18);T2=(z-10*pi/9)*2/pi;a3=(-60*120*w^2/(pi/2)^2)*T2.*(1-3*T2.^2+2*T2.^2); m=(29*pi/18):(pi/1000):(2*pi);a4=0;plot(x,a1,'m',y,a2,'m',z,a3,'m',m,a4,'m');xlabel('角度(rad)');ylabel('加速度(mm/s^2)');title('凸轮推杆加速度曲线(w=10rad/s)');grid;4）绘制凸轮机构的dd/dd−d线图，并依次确信凸轮的基圆半径和偏距代码：%dd/dd−d线图，确信e，s0;x=0:(pi/1000):(2*pi/3);s1=60-60*cos(1.5*x);ns1=90*sin(1.5*x);y=(2*pi/3):(pi/1000):(10*pi/9);s2=120;ns2=0;z=(10*pi/9):(pi/1000):(29*pi/18);T2=(z-10*pi/9)*2/pi;s3n=120*(1-(10*T2.^3-15*T2.^4+6*T2.^5));ns3=-120*10*3*T2.^2+120*15*4*T2.^3-120*6*5*T2.^4 ;m=(29*pi/18):(pi/1000):(2*pi);s4=0;ns4=0;x1=0:pi/36000:pi/2;s1n=60-60*cos(1.5*x1);v1=90*sin(1.5*x1);m1=diff(s1n);%求切线1n1=diff(v1);z=m1./n1;for i=1:length(z);if abs(z(i)+tan(-55*pi/180))<0.001;breakendendb11=s1n(i)-z(i)*v1(i);x1=-300:200;y01=z(i)*x1+b11;%切线1k1=z(i);plot(x1,y01)x3=10*pi/9:pi/36000:14*pi/9;%求切线2s3n=120*(1-(10*T2.^3-15*T2.^4+6*T2.^5));v3=-120*10*3*T2.^2+120*15*4*T2.^3-120*6*5*T2.^4 ;m3=diff(s3n);n3=diff(v3);p=m3./n3;for o=1:length(p);if abs(p(o)-tan(-25*pi/180))<0.01;breakendendo;b33=s3n(o)-p(o)*v3(o);x3=-300:700;y03=p(o)*x3+b33;%切线2plot(x3,y03);sym uv[u,v]=solve('u= 1.4281*v-81.7665','u=-0.4663*v-59.6715');%v=11.66332347972972972972972972973 x%u=-65.110107738597972972972972972973 yplot(ns1,s1,'m',ns2,s2,'b',ns3,s3n,'b',ns4,s4,'b',x1,y01,'g',x3,y03,'g',v,u,'*'); xlabel('ds/d¦µ');ylabel('S');axis([-300,200,-300,300]);title('s0,e 的确信');grid;确信凸轮基圆半径与偏距：偏距e=90mm，d020mm；基圆半径为d0=150mm。

Harbin Institute of Technology机械原理大作业一课程名称：机械原理设计题目：连杆机构设计院系：机电学院班级：1308102分析者：学号：指导教师：设计时间：2015年06月哈尔滨工业大学一、连杆机构运动分析题目以及坐标系的建立题目中的连杆机构可以简化为图示机构二、机构的结构分析，组成机构的基本杆组划分该机构由机架、一个原动件AB和两个II级杆组组成。

有题目分析易知B点的位置、速度和加速度是我们知道的由B点我们可以推导出c点的位移速度加速度从而得到D点的轨迹最终我们可以求得E点的各个参数。

五、计算编程利用vb软件进行编程，程序如下：Public q As SingleOption ExplicitPrivate Sub Command1_Click()Dim yd, xd, yc, xb, yb, a, b, t, q, i As Singleq = 0a1.ScaleWidth = 300a1.ScaleHeight = -300a1.ScaleLeft = -150a1.ScaleTop = 250a1.Line (-300, 0)-(300, 0)a1.Line (0, -300)-(0, 300)For i = -300 To 300If i Mod 50 = 0 Thena1.Line (-5, i)-(5, i)a1.Line (i, -5)-(i, 5)a1.CurrentX = 0a1.CurrentY = ia1.Print ia1.CurrentX = ia1.CurrentY = 0a1.Print iEnd IfNextFor t = 0 To 200q = q + t / 1000xb = 100 * Sin(q)yb = -100 * Cos(q)xd = 3 / 2 * xbyd = yb + Sqr(40000 - xb * xb) / 2 a1.Line (a, b)-(xd, yd)a = xdb = ydNextEnd SubPrivate Sub Command2_Click()Dim yd, xd, yc, xb, yb, a, b, t, q, i, ve, vc, ye, ye0, yc0, ve0, vc0, ae, ac, ae0, ac0, x1 As Singlea1.ScaleWidth = 10a1.ScaleHeight = -100a1.ScaleLeft = 150a1.ScaleTop = 50ve0 = 0vc0 = 0ye = 200x1 = 151For i = 1 To 15x1 = 3.14159 / 6 + x1a1.Line (x1, 1)-(x1, -1)a1.CurrentX = x1 - 3.14159 / 12a1.CurrentY = -2a1.Print i * 30NextFor t = 0 To 3000q = q + t / 10000xb = 100 * Sin(q)yb = -100 * Cos(q)xd = (3 / 2) * xbyd = yb + Sqr(40000 - xb * xb) / 2ye = yd + Sqr(40000 - xd * xd)yc = yb - Sqr(40000 - xb * xb)ve = (ye - ye0)vc = (yc - yc0)ae = ve - ve0ac = ae - ae0a1.Line (151, -100)-(151, 100)a1.Line (t - 50, 0)-(t, 0)If t Mod 5 = 0 Thena1.Line (150.9, t)-(151.1, t)a1.CurrentX = 151a1.CurrentY = ta1.Print t * 55a1.CurrentX = 151a1.CurrentY = -ta1.Print -t * 55End Ifa1.CurrentX = 151a1.CurrentY = 0a1.Line (q - 0.2, vc0)-(q, vc)a1.Line (q - 0.2, ve0)-(q, ve)yc0 = ycye0 = yeve0 = vevc0 = vcae0 = aeac0 = acNextEnd SubPrivate Sub Command4_Click()Dim yd, xd, yc, xb, yb, a, b, t, q, i, ve, vc, ye, ye0, yc0, ve0, vc0, ae, ac, ae0, ac0, x1 As Singlea1.ScaleWidth = 10a1.ScaleHeight = -30a1.ScaleLeft = 150a1.ScaleTop = 15ve0 = 0vc0 = 0ye = 200x1 = 151For i = 1 To 15x1 = 3.14159 / 6 + x1a1.Line (x1, 0.5)-(x1, -0.5)a1.CurrentX = x1 - 3.14159 / 12a1.CurrentY = -2a1.Print i * 30Nexta1.Line (151, -100)-(151, 100)a1.Line (0, 0)-(300, 0)For t = 0 To 3000q = q + t / 10000xb = 100 * Sin(q)yb = -100 * Cos(q)xd = (3 / 2) * xbyd = yb + Sqr(40000 - xb * xb) / 2 ye = yd + Sqr(40000 - xd * xd)yc = yb - Sqr(40000 - xb * xb)ve = (ye - ye0)vc = (yc - yc0)ae = ve - ve0ac = ae - ae0a1.Line (q - 0.2, ae0)-(q, ae)a1.Line (q - 0.2, ac0)-(q, ac)If t Mod 2 = 0 Thena1.Line (150.9, t)-(151.1, t)a1.CurrentX = 151a1.CurrentY = ta1.Print t * 300a1.CurrentX = 151a1.CurrentY = -ta1.Print -t * 300End Ifyc0 = ycye0 = yeve0 = vevc0 = vcae0 = aeac0 = acNextEnd SubPrivate Sub Command5_Click()Dim yd, xd, yc, xb, yb, a, b, t, q, i, ve, vc, ye, ye0, yc0, ve0, vc0, ae, ac, ae0, ac0, x1 As Singlea1.ScaleWidth = 8.5a1.ScaleHeight = -500a1.ScaleLeft = 25a1.ScaleTop = 300ye = 200x1 = 26For t = 0 To 3000q = q + t / 10000xb = 100 * Sin(q)yb = -100 * Cos(q)xd = (3 / 2) * xbyd = yb + Sqr(40000 - xb * xb) / 2ye = yd + Sqr(40000 - xd * xd)yc = yb - Sqr(40000 - xb * xb)a1.Line (q - 1 / 10, yc0 + 300)-(q, yc + 300) a1.Line (q - 1 / 10, ye0 - 150)-(q, ye - 150) yc0 = ycye0 = yeIf t Mod 27 = 0 Thena1.Line (25.8, t)-(26.2, t)a1.CurrentX = 26a1.CurrentY = ta1.Print 16500 * (t / 270 - 1)End IfNexta1.Line (0, 270)-(50, 270)a1.Line (26, 2270)-(26, -270)For i = 1 To 15x1 = 3.14159 / 6 + x1a1.Line (x1, 275)-(x1, 265)a1.CurrentX = x1 - 3.14159 / 12a1.CurrentY = 270a1.Print i * 30NextEnd SubPrivate Sub Command3_Click()a1.ClsTimer1.Enabled = FalseEnd SubPrivate Sub Command6_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()Dim yd, xd, yc, xb, yb, a, b, i, ve, vc, ye, ye0, yc0, ve0, vc0, ae, ac, ae0, ac0, x1 As Singlea1.Clsa1.ScaleWidth = 500a1.ScaleHeight = -700a1.ScaleLeft = -250a1.ScaleTop = 350a1.Line (-350, 0)-(350, 0)a1.Line (0, -350)-(0, 350)For i = -7 To 7a1.Line (-2, i * 50)-(2, i * 50)a1.CurrentX = 0a1.CurrentY = i * 50a1.Print i * 50a1.Line (i * 50, -2)-(i * 50, 2)a1.CurrentY = 0a1.CurrentX = i * 50a1.Print i * 50Nextye = 200x1 = 26q = q + 1 / 100xb = 100 * Sin(q)yb = -100 * Cos(q)xd = (3 / 2) * xbyd = yb + Sqr(40000 - xb * xb) / 2ye = yd + Sqr(40000 - xd * xd)yc = yb - Sqr(40000 - xb * xb)yc0 = ycye0 = yea1.Line (0, 0)-(xb, yb)a1.Line (0, yc)-(xd, yd)a1.Line (10, yc + 10)-(-10, yc + 10) a1.Line (10, yc - 10)-(-10, yc - 10) a1.Line (-10, yc + 10)-(-10, yc - 10) a1.Line (10, yc + 10)-(10, yc - 10)a1.Line (0, ye)-(xd, yd)a1.Line (10, ye + 10)-(-10, ye + 10) a1.Line (10, ye - 10)-(-10, ye - 10) a1.Line (-10, ye + 10)-(-10, ye - 10) a1.Line (10, ye + 10)-(10, ye - 10) End Sub得到如下结果动画D点的行程曲线速度曲线位移曲线加速度曲线六、结果分析我们从可以看出计算出的曲线与标准答案一致我们可以看出我们的结果是正确的。

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字形”。

大作业2 凸轮机构设计
1.设计题目
如图2-1所示直动从动件盘形凸轮机构，其原始参数见表2-1。

从表2-1中选择一组凸轮机构的原始参数，据此设计该凸轮机构。

表2-1 凸轮机构原始参数
2.凸轮机构的设计要求
（1）确定凸轮推杆升程、回程运动方程，并绘制推杆位移、速度、加速度线图；
（2）绘制凸轮机构的s s -ϕ
d d 线图； （3）确定凸轮基圆半径和偏距；
（4）确定滚子半径；
图2-1
（5）绘制凸轮轮廓曲线。

3.要求提交的设计文件
（1）机构运动简图1张，凸轮轮廓图1张（标注凸轮的各部分参数），A3图纸；
（2）设计说明书1份，A4幅面。

4.设计说明书内容要求
设计说明书的封面按机械原理课程网站提供的格式制作。

设计说明书包含以下内容：
（1）设计题目，包括机构运动简图和凸轮机构的原始参数；
（2）凸轮推杆升程、回程运动方程及推杆位移、速度、加速度线图；
（3）凸轮机构的s s -ϕ
d d 线图，并依次确定凸轮的基圆半径和偏距； （4）滚子半径的确定及凸轮理论廓线和实际廓线的绘制。

5.凸轮机构的设计流程
（1）计算推杆的位移、速度和加速度线图；
（2）绘制凸轮机构的s s -ϕ
d d 线图； （3）确定凸轮的基圆半径和偏距；
（4）绘制凸轮理论廓线；
（5）确定滚子半径并绘制凸轮实际廓线。