哈工大机械原理大作业_连杆35.pdfVIP

  1. 1、本文档共14页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多

HarbinInstituteofTechnology

机械原理大作业一

课程名称:机械原理

设计题目:连杆机构设计

院系:机电学院

班级:1308102

分析者:

学号:

指导教师:

设计时间:2015年06月

哈尔滨工业大学

一、连杆机构运动分析题目以及坐标系的建立

题目中的连杆机构可以简化为图示机构

二、机构的结构分析,组成机构的基本杆组划分

该机构由机架、一个原动件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

文档评论(0)

lzy5536lzy + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档