资源描述：
《哈工大机械原理大作业-连杆.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、HarbinInstituteofTechnology机械原理大作业一课程名称：机械原理设计题目：连杆运动分析院系：机电工程学院班级：设计者：学号：指导教师：明设计时间：2013年6月25日1、运动分析题目在图1-10中所示的干草压缩机中，已知LAB=150mm,LBC=600mm,LCE=120mm,LCD=500mm,LEF=600mm,XD=400mm,YD=500mm,YF=600mm,曲柄1作等速转动，其转速n1=50r/min。求在一个运动循环中活塞5的位移、速度和加速度的变化曲线。图1-102、机构的结构分析（1）基
2、本杆组的划分①AB即杆件1为原动件②DECB即杆件2、3为RRR型II级杆组，其中CE为同一构件上点。①EF和滑块即4、5为RRP型II级杆组（2）、建立以点A为原点的固定平面直角系3、确定已知参数和求解流程(1)原动件1（I级杆组RR）如图所示，已知原动件1的转角原动件杆1的角速度原动件1的角加速度运动副A的位置坐标运动副A的速度运动副A的加速度原动件杆I的长度可求出B的位置B的速度B的加速度(2)构件2、3（II级杆组RRR）D的位置D的速度D的加速度杆长，由关系其中可解得由上面两个式子可以得到两杆的角速度其中，，，，可得E的
3、位置E的速度E的加速度（3)、构件4、5杆组（II级杆组RRP）在建立的坐标系中取一参考点K则速度加速度杆长,设F位移为s由由上面两个式子可以得到所以：F点位移速度加速度四、编程计算并输出结果（VB编程）主程序：PrivateSubCommand1_Click()Dims5(3600)AsDoubleDimv5(3600)AsDoubleDima5(3600)AsDoubleDimpiAsDoubleDimpaAsDoublepi=3.1415926pa=pi/180DimiAsLongDimf1(3600)AsDoubleDim
4、RR1AsRRDimRR2AsRRDimRRR1AsRRRDimRRP1AsRRPSetRR1=NewRRSetRR2=NewRRSetRRR1=NewRRRSetRRP1=NewRRPFori=0To3600Step1f1(i)=i*pa/10RR1.delt=0RR1.f=f1(i)RR1.w=5.24RR1.e=0RR1.L=150RR1.xA=0RR1.yA=0RR1.vxA=0RR1.vyA=0RR1.axA=0RR1.ayA=0RR1.calRRR1.Li=600RRR1.Lj=500RRR1.xB=RR1.xBRRR
5、1.yB=RR1.yBRRR1.vxB=RR1.vxBRRR1.vyB=RR1.vyBRRR1.axB=RR1.axBRRR1.ayB=RR1.ayBRRR1.xD=400RRR1.yD=500RRR1.vxD=0RRR1.vyD=0RRR1.axD=0RRR1.ayD=0RRR1.M=1RRR1.calRRRRR2.delt=0RR2.f=RRR1.fiRR2.w=RRR1.wiRR2.e=RRR1.eiRR2.L=480RR2.xA=RR1.xBRR2.yA=RR1.yBRR2.vxA=RR1.vxBRR2.vyA=RR1.v
6、yBRR2.axA=RR1.axBRR2.ayA=RR1.ayBRR2.calRRP1.Li=600RRP1.Lj=0RRP1.fj=piRRP1.wj=0RRP1.ej=0RRP1.xB=RR2.xBRRP1.yB=RR2.yBRRP1.vxB=RR2.vxBRRP1.vyB=RR2.vyBRRP1.axB=RR2.axBRRP1.ayB=RR2.ayBRRP1.xK=0RRP1.yK=600RRP1.vxK=0RRP1.vyK=0RRP1.axK=0RRP1.ayK=0RRP1.M=1RRP1.cals5(i)=RRP1.ss
7、v5(i)=RRP1.vssa5(i)=RRP1.assNextiPicture1.Scale(-30,700)-(360,580)Picture1.Line(0,0)-(360,0)'XPicture1.Line(0,580)-(0,700)'YFori=0To360Step10'X轴坐标Picture1.DrawStyle=2Picture1.Line(i,700)-(i,580)Picture1.CurrentX=i-10:Picture1.CurrentY=0Picture1.PrintiNextiFori=580To70
8、0Step10'Y轴坐标Picture1.DrawStyle=2Picture1.Line(0,i)-(360,i)Picture1.CurrentX=-10:Picture1.CurrentY=iPicture1.PrintiNextiFori=
