插秧机的主体结构.docxVIP

机械原理课程设计说

明书

设计课题：插秧机的主体结构设计

学院：机械工程学院车辆工程系

班级：车辆131班

姓名：翟文豪

学号：139054063

指导老师：苏荭

2015年7月15日

1.机构简介:

插秧机机头（如图2-5）的运动轨迹是：

1） 水平往前取秧；

2） 垂直往下插秧；

3） 斜向返回，返回时不能将秧带出。

从四杆机构分析图谱查得，当L:L:L:L:L:L=1：2：abbccddabeef

1.5：2.5：2.6：0.15时，F点的运动轨迹能满足要求。

图2-5插秧机主体机构简图

设计要求：

本课题要求设计插秧机的主体机构，并对插秧机机头的运

动规律进行科学分析。

设计数据：

已知插秧机曲柄转速⑦1=10rad/s，往下插秧行程需达秧高

180mmo

用程序求杆长：

yf最大值

yf最小值

北杆长度

阮杆长度

泌杆长度

M杆长度

1.8591869TH8802

149244756440538

S3.6220T5S9T742T

233.017397334131

134.433113846614

224.0E51S974435T

F点的运动轨迹

r

i开始计算并i1.....画出轨迹图…1

程序代码:

Dimo1AsDouble

即是论文上的杆ab的角度，此处用弧度表示

DimAAsDouble

DimBAsDouble

DimCAsDouble

Dimo2AsDouble

即是论文上的杆bc的角度，此处用弧度表示

PrivateSubCommand1_Click()

o1=0

yfmax=0

yfmin=0

pi=3.1415926

定义圆周率的大小

A=4*Sin(o1)

B=4*Cos(o1)-10

C=9-5*Cos(o1)

求出第一次的坐标

o2=2*Atn((A-Sqr(A2+B2-C2))/(B-C))即bc杆上的角度

yf=Sin(o1)+2.6*Sin(o2)+0.15*Sin(o2-pi/

2) f点纵坐标

xf=Cos(o1)+2.6*Cos(o2)+0.15*Cos(o2-pi/

2) f点横坐标

第一次坐标值不在循环内，单独将第一次的值输入到txt文件中 感觉把数值写入txt文件中没有什

么作用就注释了

Text3=x:xfy:yf

OpenC:\Users\Administrator\Desktop\x和y的坐

标?txtForAppendAs#1

Print#1,Text3

Close#1

开始进入循环结构

Fori=2To360Step1

将最新的纵坐标赋值给yf1

yf1=yf

xf1=xf将最新的横坐标赋值给xf1

o1=o1+0.01745

每一度化为弧度就是0.01745

A=4*Sin(o1)

B=4*Cos(o1)-10

C=9-5*Cos(o1)

o2=2*Atn((A-Sqr(A2+B2-C2))/(B-C))

yf=Sin(o1)+2.6*Sin(o2)+0.15*Sin(o2-pi/

2) 最新的f点纵坐标

xf=Cos(o1)+2.6*Cos(o2)+0.15*Cos(o2-pi/

2) 最新的f点横坐标

画轨迹图

Picture1.Line(1000*xf1,Picture1.Height-1000*yf1)-(1000*xf,Picture1.Height-1000*yf)

将每个对应的xf和yf的坐标输入到txt文件当中如果想知道每点对应的坐标，吧注释去了就行了Text3=x:xfy:yf

OpenC:\Users\Administrator\Desktop\x和y的坐

标?txtForAppendAs#1

Print#1,Text3

Close#1

找出最大值和最小值

IfyfyfmaxThen

yfmax=yf

EndIf

IfyfyfminThen

yfmin=yf

EndIf

Nexti

输出最大值和最小值

Textl.Text=yfmax

Text2.Text=yfmin

求出各个构件的长度

l=180/(yfmax-yfmin)

lab=l*1 ab杆的长度

lbe=2.6*lbe杆的长度

lb