哈工大机械原理大作业.docx
- 文档编号:26971778
- 上传时间:2023-06-24
- 格式:DOCX
- 页数:14
- 大小:64.21KB
哈工大机械原理大作业.docx
《哈工大机械原理大作业.docx》由会员分享,可在线阅读,更多相关《哈工大机械原理大作业.docx(14页珍藏版)》请在冰豆网上搜索。
哈工大机械原理大作业
HarbinInstituteofTechnology
机械原理大作业一
课程名称:
机械原理
设计题目:
连杆机构设计
院系:
机电学院
班级:
分析者:
学号:
指导教师:
设计时间:
哈尔滨工业大学
1、连杆机构运动分析题目以及坐标系的建立
题目中的连杆机构可以简化为图示机构
二、机构的结构分析,组成机构的基本杆组划分
该机构由机架、一个原动件AB和两个II级杆组组成。
有题目分析易知B点的位置、速度和加速度是我们知道的由B点我们可以推导出c点的位移速度加速度从而得到D点的轨迹最终我们可以求得E点的各个参数。
五、计算编程
利用vb软件进行编程,程序如下:
PublicqAsSingle
OptionExplicit
PrivateSubCommand1_Click()
Dimyd,xd,yc,xb,yb,a,b,t,q,iAsSingle
q=0
a1.ScaleWidth=300
a1.ScaleHeight=-300
a1.ScaleLeft=-150
a1.ScaleTop=250
a1.Line(-300,0)-(300,0)
a1.Line(0,-300)-(0,300)
Fori=-300To300
IfiMod50=0Then
a1.Line(-5,i)-(5,i)
a1.Line(i,-5)-(i,5)
a1.CurrentX=0
a1.CurrentY=i
a1.Printi
a1.CurrentX=i
a1.CurrentY=0
a1.Printi
EndIf
Next
Fort=0To200
q=q+t/1000
xb=100*Sin(q)
yb=-100*Cos(q)
xd=3/2*xb
yd=yb+Sqr(40000-xb*xb)/2
a1.Line(a,b)-(xd,yd)
a=xd
b=yd
Next
EndSub
PrivateSubCommand2_Click()
Dimyd,xd,yc,xb,yb,a,b,t,q,i,ve,vc,ye,ye0,yc0,ve0,vc0,ae,ac,ae0,ac0,x1AsSingle
a1.ScaleWidth=10
a1.ScaleHeight=-100
a1.ScaleLeft=150
a1.ScaleTop=50
ve0=0
vc0=0
ye=200
x1=151
Fori=1To15
x1=3.14159/6+x1
a1.Line(x1,1)-(x1,-1)
a1.CurrentX=x1-3.14159/12
a1.CurrentY=-2
a1.Printi*30
Next
Fort=0To3000
q=q+t/10000
xb=100*Sin(q)
yb=-100*Cos(q)
xd=(3/2)*xb
yd=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-ve0
ac=ae-ae0
a1.Line(151,-100)-(151,100)
a1.Line(t-50,0)-(t,0)
IftMod5=0Then
a1.Line(150.9,t)-(151.1,t)
a1.CurrentX=151
a1.CurrentY=t
a1.Printt*55
a1.CurrentX=151
a1.CurrentY=-t
a1.Print-t*55
EndIf
a1.CurrentX=151
a1.CurrentY=0
a1.Line(q-0.2,vc0)-(q,vc)
a1.Line(q-0.2,ve0)-(q,ve)
yc0=yc
ye0=ye
ve0=ve
vc0=vc
ae0=ae
ac0=ac
Next
EndSub
PrivateSubCommand4_Click()
Dimyd,xd,yc,xb,yb,a,b,t,q,i,ve,vc,ye,ye0,yc0,ve0,vc0,ae,ac,ae0,ac0,x1AsSingle
a1.ScaleWidth=10
a1.ScaleHeight=-30
a1.ScaleLeft=150
a1.ScaleTop=15
ve0=0
vc0=0
ye=200
x1=151
Fori=1To15
x1=3.14159/6+x1
a1.Line(x1,0.5)-(x1,-0.5)
a1.CurrentX=x1-3.14159/12
a1.CurrentY=-2
a1.Printi*30
Next
a1.Line(151,-100)-(151,100)
a1.Line(0,0)-(300,0)
Fort=0To3000
q=q+t/10000
xb=100*Sin(q)
yb=-100*Cos(q)
xd=(3/2)*xb
yd=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-ve0
ac=ae-ae0
a1.Line(q-0.2,ae0)-(q,ae)
a1.Line(q-0.2,ac0)-(q,ac)
IftMod2=0Then
a1.Line(150.9,t)-(151.1,t)
a1.CurrentX=151
a1.CurrentY=t
a1.Printt*300
a1.CurrentX=151
a1.CurrentY=-t
a1.Print-t*300
EndIf
yc0=yc
ye0=ye
ve0=ve
vc0=vc
ae0=ae
ac0=ac
Next
EndSub
PrivateSubCommand5_Click()
Dimyd,xd,yc,xb,yb,a,b,t,q,i,ve,vc,ye,ye0,yc0,ve0,vc0,ae,ac,ae0,ac0,x1AsSingle
a1.ScaleWidth=8.5
a1.ScaleHeight=-500
a1.ScaleLeft=25
a1.ScaleTop=300
ye=200
x1=26
Fort=0To3000
q=q+t/10000
xb=100*Sin(q)
yb=-100*Cos(q)
xd=(3/2)*xb
yd=yb+Sqr(40000-xb*xb)/2
ye=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=yc
ye0=ye
IftMod27=0Then
a1.Line(25.8,t)-(26.2,t)
a1.CurrentX=26
a1.CurrentY=t
a1.Print16500*(t/270-1)
EndIf
Next
a1.Line(0,270)-(50,270)
a1.Line(26,2270)-(26,-270)
Fori=1To15
x1=3.14159/6+x1
a1.Line(x1,275)-(x1,265)
a1.CurrentX=x1-3.14159/12
a1.CurrentY=270
a1.Printi*30
Next
EndSub
PrivateSubCommand3_Click()
a1.Cls
Timer1.Enabled=False
EndSub
PrivateSubCommand6_Click()
Timer1.Enabled=True
EndSub
PrivateSubTimer1_Timer()
Dimyd,xd,yc,xb,yb,a,b,i,ve,vc,ye,ye0,yc0,ve0,vc0,ae,ac,ae0,ac0,x1AsSingle
a1.Cls
a1.ScaleWidth=500
a1.ScaleHeight=-700
a1.ScaleLeft=-250
a1.ScaleTop=350
a1.Line(-350,0)-(350,0)
a1.Line(0,-350)-(0,350)
Fori=-7To7
a1.Line(-2,i*50)-(2,i*50)
a1.CurrentX=0
a1.CurrentY=i*50
a1.Printi*50
a1.Line(i*50,-2)-(i*50,2)
a1.CurrentY=0
a1.CurrentX=i*50
a1.Printi*50
Next
ye=200
x1=26
q=q+1/100
xb=100*Sin(q)
yb=-100*Cos(q)
xd=(3/2)*xb
yd=yb+Sqr(40000-xb*xb)/2
ye=yd+Sqr(40000-xd*xd)
yc=yb-Sqr(40000-xb*xb)
yc0=yc
ye0=ye
a1.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)
EndSub
得到如下结果
动画
D点的行程曲线
速度曲线
位移曲线
加速度曲线
六、结果分析
我们从可以看出计算出的曲线与标准答案一致我们可以看出我们的结果是正确的。
从这次作用中我们增强了用计算机解决问题的能力。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 哈工大 机械 原理 作业