插秧机的主体结构资料.docxVIP

机械原理课程设计说明书设计课题：插秧机的主体结构设计学院：机械工程学院车辆工程系班级：车辆131班姓名：翟文豪学号：139054063 指导老师：苏荭 2015年7月15日机构简介：插秧机机头（如图2-5）的运动轨迹是：1）水平往前取秧；2）垂直往下插秧；3）斜向返回，返回时不能将秧带出。从四杆机构分析图谱查得，当Lab:Lbc:Lcd:Lda:Lbe:Lef=1：2：1.5：2.5：2.6：0.15时，F点的运动轨迹能满足要求。图2-5 插秧机主体机构简图设计要求：本课题要求设计插秧机的主体机构，并对插秧机机头的运动规律进行科学分析。设计数据：已知插秧机曲柄转速ω1=10rad/s，往下插秧行程需达秧高180mm。用程序求杆长：程序代码：Dim o1 As Double 即是论文上的杆ab的角度，此处用弧度表示Dim A As DoubleDim B As DoubleDim C As DoubleDim o2 As Double 即是论文上的杆bc的角度，此处用弧度表示Private Sub Command1_Click() o1 = 0yfmax = 0yfmin = 0 pi = 3.1415926 定义圆周率的大小 A = 4 * Sin(o1) B = 4 * Cos(o1) - 10 C = 9 - 5 * Cos(o1) 求出第一次的坐标 o2 = 2 * Atn((A - Sqr(A ^ 2 + B ^ 2 - C ^ 2)) / (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: xf y: yf Open C:\Users\Administrator\Desktop\ x和y的坐标.txt For Append As #1 Print #1, Text3 Close #1开始进入循环结构For i = 2 To 360 Step 1 将最新的纵坐标赋值给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(A ^ 2 + B ^ 2 - C ^ 2)) / (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: xf y: yf Open C:\Users\Administrator\Desktop\ x和y的坐标.txt For Append As #1 Print #1, Text3 Close #1 找出最大值和最小值 If yf yfmax Thenyfmax = yf End I