人人文库网 > 图纸下载 > 毕业设计 > 非圆齿轮行星轮系引纬机构的反求设计与仿真分析【UG三维图和毕业论文】【答辩优秀】

程序.doc

非圆齿轮行星轮系引纬机构的反求设计与仿真分析【UG三维图和毕业论文】【答辩优秀】

资源目录

非圆齿轮行星轮系引纬机构的反求设计与仿真分析【全套CAD图纸和毕业论文】【答辩优秀】.rar

三维模型与仿真

Adams

test

model_1.bin

frame.avi

MODEL_1.bin

MODEL_1.biq

model_2-2.bin

MODEL_2.bin

newmodified.x_t

RGY111-1.bin

RGY111-3.bin

RGY111-reverserotation.bin

RGY111.bin

RGY1203-02-2.bin

RGY1203-02.bin

RGY1203-1.bin

RGY1203-2.bin

RGY1212-1.bin

RGY1212.bin

video.mpg

yinwei-1.bin

yw0803.bin

UGyinwei

asm-1.x_t

asm-2.x_t

assembly2.prt

bearing-1.prt

bearing.prt

carrier.prt

congdongelliptic.prt

driven-noncircular-gear.prt

falan-1.prt

falan-2.prt

frame.prt

frame2.prt

gear9.prt

JB_362_6200CS_NX.prt

model1.prt

model10.prt

model15.prt

model2.prt

newasm.prt

rgyyinwei.prt

rgyyinwei.x_t

tuoyuan69.8285143876321.dwg

tuoyuanchilun.prt

xingxingjia-1.prt

xingxingjia-2.prt

xingxingzhou-1.prt

yinwei-1.bin

yinwei-jointed.bin

yinwei-solved.bin

yinweijigou.prt

yinweijigou.x_t

zhou1.prt

zhou2.prt

zhou3.prt

zhou4.prt

_asm1.prt

_model12.prt

_model13.prt

附件表格

成绩评定表.jpg

指导教师评语表.jpg

指导记录卡.jpg

答辩小组评语表.jpg

答辩记录表.jpg

评阅教师评语表.jpg

进程安排与考核表.jpg

非圆齿轮行星轮系引纬机构反求设计软件

shuju.txt---(点击预览)

.oca

jigoushiyitu.jpg

MSSCCPRJ.SCC

非圆齿轮行星轮系引纬机构反求设计软件.csi

非圆齿轮行星轮系引纬机构反求设计软件.exe

非圆齿轮行星轮系引纬机构反求设计软件.frm

非圆齿轮行星轮系引纬机构反求设计软件.log

非圆齿轮行星轮系引纬机构反求设计软件.lvw

非圆齿轮行星轮系引纬机构反求设计软件.vbp

非圆齿轮行星轮系引纬机构反求设计软件.vbw

压缩包内文档预览：(预览前20页/共35页)

编号：475524 类型：共享资源大小：99.38MB 格式：RAR 上传时间：2015-08-30 上传人：好资料QQ****51605 IP属地：江苏

50
积分

版权申诉 word格式文档无特别注明外均可编辑修改；预览文档经过压缩，下载后原文更清晰！ 立即下载

关键词：: 齿轮行星轮系引纬机构设计仿真分析全套 cad 图纸以及毕业论文答辩优秀优良

资源描述：

摘要

剑杆织机的引纬机构，是剑杆织机的核心机构之一，其运动性能如何将在很大程度上决定着整台织机的性能与档次。所以，一种结构设计合理的剑杆引纬机构能够改善剑杆织机的工作效率与所生产产品的质量，提高经济效益。本文提出了一种新型的剑杆引纬机构，即非圆齿轮行星轮系剑杆引纬机构。

本文中分析了剑杆织机的引纬工艺要求，得到了剑杆织机引纬时主轴转过不同角度的时候剑杆应该有的位移、速度以及加速度。并以此为依据设定了剑杆的加速度运动曲线为一等腰梯形的形状的曲线，经过进一步计算后得到了剑杆的运动学模型。本文设计的非圆齿轮行星轮系剑杆引纬机构的作用是将主轴的匀速转动转换成剑杆的有规律的往复运动，根据这一模型的传动规律建立运动学分析模型，结合其中非圆齿轮的特性得到节曲线方程。再基于Visual Basic 6.0这个平台编写引纬机构反求设计与仿真软件，利用该软件可以反求出机构中各个参数的值，之后根据仿真的结果调整机构参数，最终得到符合引纬规律的合理的参数，证明本文设计的引纬机构是合理可行的。

关键词：非圆齿轮；引纬机构；反求；剑杆织机

Abstract

The weft insertion mechanism is one of the key mechanism of the rapier loom. Its athletic performance has a lot of impact about the rapier rooms’ performance and its level. So, a weft insertion mechanism of the rapier rooms with reasonable structure can improve a lot of working efficiency, the quality of the product of the rapier rooms and the economic benefit. This paper comes up with a new weft insertion mechanism, named the planetary non-circular gears trains weft insertion mechanism.

Some research about the technological requirements of the rapier loom has been done in this paper. The displacement, velocity and acceleration of the rapier was obtained when the spindle has different angle. And the motion curve of acceleration of the rapier has been designed as a isosceles trapezoid curve based on the research. Then the kinematics model of the rapier was worked out. The planetary non-circular gears trains weft insertion mechanism is used to change the uniform rotation of the spindle to reciprocating motion of rapier. According to the transmission rule of the planetary non-circular gears trains weft insertion mechanism the kinematics analytical model was finished. Combining with the character of non-circular gear its pitch curve was obtained. Meanwhile a reverse design and kinematic simulation software was compiled based on Visual Basic 6.0. The parameters of mechanism can be obtained by the software. Then these parameters were adjusted based on the result of simulation. The reasonable parameters which fit the law of weft insertion will be obtained at last, which proved that this weft insertion mechanism was reasonable and can be used.

Keywords: Non-circular Gear; Weft Insertion Mechanism; Reverse Solution;

Rapier Loom

第1章绪论1

1.1 课题的研究背景与意义1

1.2 国内外剑杆引纬机构的研究现状及发展趋势2

1.2.1 剑杆引纬机构的简介2

1.2.2 国内外剑杆引纬机构的研究状况及发展趋势2

1.3 非圆齿轮的发展及研究情况5

1.3.1 非圆齿轮的介绍5

1.3.2 非圆齿轮的研究状况5

1.4 本设计的主要内容6

第2章非圆齿轮行星轮系引纬机构运动分析模型的建立8

2.1 剑杆织机的引纬工艺要求8

2.2剑头的理想运动学曲线方程的建立9

2.2.1 剑头理想运动曲线的构造9

2.2.2 剑头运动学曲线方程的建立10

2.3 非圆齿轮行星轮系引纬机构的模型简介13

2.4 非圆齿轮行星轮系引纬机构反求模型的建立15

2.4.1 反求设计思想的简介15

2.4.2 非圆齿轮行星轮系放大轮系的运动模型的建立15

2.4.3 第一级非圆齿轮行星轮系运动模型的建立17

2.4.4 第二级非圆齿轮行星轮系运动模型的建立18

第3章非圆齿轮行星轮系引纬机构反求设计与运动仿真软件的设计20

3.1 计算机辅助设计的简单介绍20

3.2 非圆齿轮行星轮系引纬机构反求设计与仿真软件的介绍20

3.2.1 引纬机构反求设计软件的开发思路20

3.2.2 引纬机构反求程序的关键性思想20

3.2.3 引纬机构参数的设定22

3.2.4 引纬机构反求软件的界面介绍23

3.2.5 引纬机构反求软件各个控件的介绍24

3.2.6 引纬机构反求软件的功能特点28

第4章引纬机构三维模型的建立与仿真29

第5章总结33

参考文献34

第1章绪论

1.1 课题的研究背景与意义

纺织是人类社会最古老的一个生产部门，它与我们的生活息息相关。随着农业的发展和手工编结技术的提高，纺织技术出现并发展起来。随着工业技术的提高，织机以其纺织速度快、产品质量高等优点逐渐取代原始纺织手段开始迅速发展起来。

我国已成为全球第一纺织大国，现有生产能力为1.1亿纺纱锭，加工全球纺织纤维总量的42%～48%，生产的服装占全球服装产量的近二分之一，供应纺织品、服装占全球贸易量的二分之一[1]。但我国却非纺织机械的生产大国，而是纺织机械的进口大国，织造行业对进口设备的依赖度比较大。据统计，我国纺织机械在2011年上半年的进出口累计总额为38.56亿美元，同比增长44.89％，其中纺织机械进口28.00亿美元，同比增长48.48％[2]。我国的织机行业经过几十年的发展，目前已具有一定的生产规模和生产能力[3]，但是与世界先进水平仍有较大的差距，因此纺织机械技术装备的研究和发展对提升我国纺织工业的总体水平和竞争力具有切实的意义[4]。而引纬机构就是其中一项关键的研究内容。

引纬方式分为有梭引纬和无梭引纬，其中无梭引纬可分为喷水引纬、剑杆引纬、喷气引纬和片梭引纬四种[5]。自1963年汉诺威国际纺织机械展览会首次展出了商业性剑杆织机以来，随着新材料和新技术的广泛应用，这种织机的工艺性能日趋完善。80年代末，剑杆织机进入了全盛时期。用剑杆织机加工织物的范围，从中厚织物发展到轻薄织物，从服装面料发展到装饰和产业用织物，由单层织物发展到毛圈及双层起绒织物，从狭幅发展到4.6m的阔幅，由低速发展到高速。现今剑杆织机的最高入纬量已突破1100m/min，纬纱的选色从单色发展到最多达16色(德国Dornier剑杆织机)。这是其他几种无梭织机不可比拟的[6]。

剑杆织机它是利用往复移动的剑状杆将检口外因定筒子上的纬纱引入梭口，与有梭织机相比，它的入纬串高，织物质量优，机器噪声低，劳动生产率高。剑杆织机引纬过程纬纱始终受到剑头的积极控制，可适应强捻纬纱的织造，不会出现纬纱的退捻和纬缩疵点。剑杆引纬具有极强的多色纬纱织造功能，能十分方便地进行多色任意换纬，并且选纬(换色)运动对织机速度不产生任何影响，在装饰织物加工、毛织物加工和棉型色织物等加工中都得到了广泛使用[7]。

1.2 国内外剑杆引纬机构的研究现状及发展趋势

1.2.1 剑杆引纬机构的简介

剑杆引纬机构是剑杆织机的五大核心机构之一，它将纬纱引入梭口，形成织物所需的纹理。能保证引纬失误少，可靠性高，可以实现对许多引纬比较困难的纱线进行引纬，其制织品种的适应性极其广泛，同时剑杆织机的门幅宽，因此剑杆织机成为应用最广泛的一种无梭织机。现代织机在适应高速、高效的同时，对引纬机构的性能要求越来越高，引纬机构的好坏直接决定整机性能的优劣[8]。正因为剑杆引纬机构在剑杆织机中的重要作用，国内外许多纺织领域内的学者都对

QQ截图20150830172213.png

三维图.gif

内容简介：: 非圆齿轮行星轮系引纬机构反求设计与运动仿真软件（ VB 程序）学院机械与自动控制学院专业班级机械设计制造及其自动化 09（ 4）班姓名蒋程强学号 I09660210 指导教师陈建能 nts 1 附件 1非圆齿轮行星轮系引纬机构反求设计与运动仿真程序本程序是基于 Visual Basic 6.0 进行编程的，操作界面如下图所示主程序如下： Const pi = 3.1415926 Const DotNum = 360 点数 Dim ChangeB(3, 3) As Single 变化位置后椭圆齿轮轮廓上的点，有 3 个齿轮 Const d = 1, r = 3 * 0.001, kk = 10 Dim Ellipse(36, 3) As Single 椭圆齿轮轮廓上的点，有 3 个齿轮 Dim angle As Integer Dim Xd1, Xd2, Xd3, k2, w1, h0, h, t, hx, bl, br As Double Dim feiyuan(360, 2), feiyuan1(360, 2), thta1(360), thta8(360), thta10(360), thta12(360), thta13(360) Dim a, c, b, k1, Radius Dim Xd(1 To DotNum), Ac(1 To DotNum), V(1 To DotNum), S(1 To DotNum), Da(1 To DotNum), AAc(1 To DotNum), VV(1 To DotNum), SS(1 To DotNum), SSZ(1 To DotNum), DDa(1 To DotNum) As Double Dim w2(1 To DotNum), Fai2(1 To DotNum), thta71(1 To DotNum), thta81(1 To DotNum), T2(1 To DotNum), T3(1 To DotNum), T4(1 To DotNum) As Double Dim X, Y As Double nts 2 Dim maxSS, maxVV, maxAA, minSS, minVV, minAA As Double Dim r3(1 To DotNum), r6(1 To DotNum), r7(1 To DotNum), r8(1 To DotNum) As Double Dim xx1(1 To DotNum), yy1(1 To DotNum), xx2(1 To DotNum), yy2(1 To DotNum), xx3(1 To DotNum), yy3(1 To DotNum), xx4(1 To DotNum), yy4(1 To DotNum) As Double 齿轮上的点 Dim i12H(1 To DotNum), i12(1 To DotNum), i4H(1 To DotNum), w21(1 To DotNum), czh1(1 To DotNum), czh2(1 To DotNum) As Double Dim f2(1 To DotNum, 1 To DotNum), f3(1 To DotNum, 1 To DotNum), f4(1 To DotNum, 1 To DotNum), xn3(1 To DotNum, 1 To DotNum), yn3(1 To DotNum, 1 To DotNum), xn4(1 To DotNum, 1 To DotNum), yn4(1 To DotNum, 1 To DotNum) As Double Dim mark As Boolean 正负标志 Dim Xm1(1 To DotNum), Ym1(1 To DotNum) As Double 中间椭圆 2轴心的的坐标 Dim Fai1(1 To DotNum) As Double Dim p, c1, dian1x, dian1y, dian2x, dian2y, rr, stroke, sd, k5, k3, k4, Ji, Angle1, De, r9, r10, r12, r13, z9, z10, z12, z13, module1, module2, izong, qwer As Double Public Sub ReadData() a = Val(txt_a.Text) / 1000 / 2 椭圆长半轴 k1 = Val(txt_k.Text) 椭圆偏心率 c = k1 * a b = Sqr(a 2 - c 2) 椭圆短半轴 qwer = 0 h = Val(Txt_h.Text) 正向加速度最大值 p = Val(Txt_p.Text) 主轴转速 c1 = Val(Txt_C1.Text) 比例系数，用于表示 h0 Xd1 = Val(Txt_x1.Text) * pi / 180 加速度曲线转折时对应的主轴转角 Xd2 = Val(Txt_x2.Text) * pi / 180 Xd3 = Val(Txt_x3.Text) * pi / 180 Radius = Val(txt_radius.Text) / 1000 传剑轮半径 Angle1 = 2 * Val(txt_angle.Text) 接纬提前角 sd = Val(txt_sd.Text) 速度调节 nts 3 Ji = Val(txt_jj.Text) 交接冲程 z9 = Val(txt_z9.Text) z10 = Val(txt_z10.Text) z12 = Val(txt_z12.Text) z13 = Val(txt_z13.Text) 齿数 module1 = Val(txt_module1.Text) module2 = Val(txt_module2.Text) 模数 r9 = module1 * z9 / 1000 / 2 r10 = module1 * z10 / 1000 / 2 r12 = module2 * z12 / 1000 / 2 r13 = module2 * z13 / 1000 / 2 向径 izong = r9 * r12 / r10 / r13 齿轮 9、 10、 12、 13 总传动比 h0 = c1 * h * izong / 18 * Radius / 0.13 加速度初始值 k2 = 2 * pi / DotNum t = 60 / p w1 = 2 * pi * p / 60 hx = (h * (Xd1 - Xd2 - Xd3) - h0 * Xd1) / (2 * pi - Xd2 - Xd3) End Sub Private Sub coequation(k, MC, mark) 方程求根 ,为了求 Fai2 Call ReadData Dim aa As Single Dim bb As Single Dim cc As Single aa = b 2 + a 2 * k 2 bb = -2 * a 2 * k 2 * MC cc = a 2 * k 2 * MC 2 - a 2 * b 2 X = (-bb + mark * Sqr(bb 2 - 4 * aa * cc) / (2 * aa) Y = k * (X - MC) End Sub nts 4 Private Function untn(fx, fy) As Single 自定义的求 arctan 的函数 If fx = 0 Then If fy 0 Then untn = pi / 2 Else untn = 3 * pi / 2 End If Else If fx 0 Then If fy n Then angle2 = 1 End If ReDim p1(n, 2), ChangeB1(2, 2) ChangeB1(1, 1) = Cos(xy(angle2): ChangeB1(1, 2) = Sin(xy(angle2) ChangeB1(2, 1) = -Sin(xy(angle2): ChangeB1(2, 2) = Cos(xy(angle2) For i = 1 To n For j = 1 To 2 For k = 1 To 2 p1(i, j) = p1(i, j) + tempJZ(i, k) * ChangeB1(k, j) Next k Next j Next i For i = 1 To n For j = 1 To 2 nts 6 tempJZ(i, j) = p1(i, j) Next j, i End Sub Sub Draw_Ellipse(X, Y, angle2, color) 画椭圆 ChangeB(1, 1) = Cos(angle2): ChangeB(1, 2) = Sin(angle2): ChangeB(1, 3) = 0 ChangeB(2, 1) = -Sin(angle2): ChangeB(2, 2) = Cos(angle2): ChangeB(2, 3) = 0 ChangeB(3, 1) = -(X + c) * Cos(angle2) + Y * Sin(angle2) + (X + c): ChangeB(3, 2) = -(X + c) * Sin(angle2) - Y * Cos(angle2) + Y: ChangeB(3, 3) = 1 Temp = 2 * pi / 36 For i = 1 To 36 Ellipse(i, 1) = a * Cos(Temp * (i - 1) + X Ellipse(i, 2) = b * Sin(Temp * (i - 1) + Y Ellipse(i, 3) = 1 Next i Call JZCF For k = 2 To 36 PicBox1.Line (Ellipse(k - 1, 1), Ellipse(k - 1, 2)-(Ellipse(k, 1), Ellipse(k, 2), color Next k PicBox1.Line (Ellipse(36, 1), Ellipse(36, 2)-(Ellipse(1, 1), Ellipse(1, 2), color PicBox1.Line (Ellipse(19, 1), Ellipse(19, 2)-(Ellipse(1, 1), Ellipse(1, 2), color RGB(255, 255, 0) PicBox1.Line (Ellipse(10, 1), Ellipse(10, 2)-(Ellipse(28, 1), Ellipse(28, 2), color RGB(255, 255, 0) End Sub Private Sub Calc_Fai() Dim x1(1 To DotNum), y1(1 To DotNum), x2(1 To DotNum), y2(1 To DotNum) Mark1 = 1 Mark2 = 1 nts 7 For i = 1 To DotNum Fai1(i) = i * pi / 180 If i = 90 Then x1(i) = c y1(i) = b 2 / a Else If i = 270 Then x1(i) = c: y1(i) = -b 2 / a Else k = Tan(Fai1(i) Call coequation(k, c, Mark1) x1(i) = X: y1(i) = Y If i 1 Then If (Abs(x1(i) - x1(i - 1) + Abs(y1(i) - y1(i - 1) = 0.005 Then Mark1 = -Mark1 Call coequation(k, c, Mark1) x1(i) = X: y1(i) = Y End If End If End If End If If Abs(x1(i) + c) 0 Then y2(i) = -b 2 / a If y1(i) = 0 Then Ac(j) = h0 + 3 * (h - h0) * Xd(j) 2 / Xd1 2 - 2 * (h - h0) * Xd(j) 3 / Xd1 3 V(j) = (h0 * Xd(j) + (h - h0) * Xd(j) 3 / Xd1 2 - (h - h0) * Xd(j) 4 / Xd1 3 / 2) / w1 S(j) = (h0 * Xd(j) 2 / 2 + (h - h0) * Xd(j) 4 / Xd1 2 / 4 - (h - h0) * Xd(j) 5 / Xd1 3 / 10) / w1 2 Da(j) = 6 * (h - h0) * w1 * Xd(j) * (1 - Xd(j) / Xd1) / Xd1 2 ElseIf Xd(j) = Xd1 Then Ac(j) = h V(j) = (h + h0) * Xd1 / 2 + h * (Xd(j) - Xd1) / w1 nts 9 S(j) = (h0 * Xd1 2 / 2 + 3 * (h - h0) * Xd1 2 / 20 + (h + h0) * (Xd(j) - Xd1) * Xd1 / 2 + h * (Xd(j) - Xd1) 2 / 2) / w1 2 Da(j) = 0 ElseIf Xd(j) = Xd2 Then Ac(j) = h + (Xd2 3 - 3 * Xd2 2 * Xd3) * (h - hx) / (Xd3 - Xd2) 3 + 6 * Xd2 * Xd3 * (h - hx) * Xd(j) / (Xd3 - Xd2) 3 - 3 * (Xd2 + Xd3) * (h - hx) * Xd(j) 2 / (Xd3 - Xd2) 3 + 2 * (h - hx) * Xd(j) 3 / (Xd3 - Xd2) 3 V(j) = (h + h0) * Xd1 / 2 + h * (Xd2 - Xd1) + h * (Xd(j) - Xd2) + (Xd2 3 - 3 * Xd2 2 * Xd3) * (h - hx) * (Xd(j) - Xd2) / (Xd3 - Xd2) 3) / w1 + (3 * Xd2 * Xd3 * (h - hx) * (Xd(j) 2 - Xd2 2) / (Xd3 - Xd2) 3 - (Xd2 + Xd3) * (h - hx) * (Xd(j) 3 - Xd2 3) / (Xd3 - Xd2) 3) / w1 + (h - hx) * (Xd(j) 4 - Xd2 4) / (Xd3 - Xd2) 3 / 2) / w1 S(j) = (h0 * Xd1 2 / 2 + 3 * (h - h0) * Xd1 2 / 20 + (h + h0) * (Xd2 - Xd1) * Xd1 / 2 + h * (Xd2 - Xd1) 2 / 2 + (h + h0) * Xd1 * (Xd(j) - Xd2) / 2) / w1 2 + (h * (Xd2 - Xd1) * (Xd(j) - Xd2) + h * (Xd(j) - Xd2) 2 / 2 + (Xd2 3 - 3 * Xd2 2 * Xd3) * (h - hx) * (Xd(j) - Xd2) 2 / (Xd3 - Xd2) 3 / 2) / w1 2 + (Xd2 * Xd3 * (h - hx) * (Xd(j) 3 + 2 * Xd2 3 - 3 * Xd2 2 * Xd(j) / (Xd3 - Xd2) 3 - (Xd2 + Xd3) * (h - hx) * (Xd(j) 4 + 3 * Xd2 4 - 4 * Xd2 3 * Xd(j) / (Xd3 - Xd2) 3 / 4) / w1 2 + (h - hx) * (Xd(j) 5 + 4 * Xd2 5 - 5 * Xd2 4 * Xd(j) / (Xd3 - Xd2) 3 / 10) / w1 2 Da(j) = 6 * (h - hx) * w1 * (Xd2 * Xd3 - (Xd2 + Xd3) * Xd(j) + Xd(j) 2) / (Xd3 - Xd2) 3 ElseIf Xd(j) = Xd3 Then Ac(j) = hx V(j) = (h0 * Xd1 + h * (Xd3 + Xd2 - Xd1) + hx * (2 * Xd(j) - Xd2 - Xd3) / w1 / 2 S(j) = (h0 * Xd1 2 / 2 + 3 * (h - h0) * Xd1 2 / 20 + (h + h0) * (Xd2 - Xd1) * Xd1 / 2 + h * (Xd2 - Xd1) 2 / 2 + (h + h0) * Xd1 * (Xd3 - Xd2) / 2) / w1 2 + (h * (Xd2 - Xd1) * (Xd3 - Xd2) + h * (Xd3 - Xd2) 2 / 2 + (Xd2 3 - 3 * Xd2 2 * Xd3) * (h - hx) * (Xd3 - Xd2) 2 / (Xd3 - Xd2) 3 / 2) / w1 2 + (Xd2 * Xd3 * (h - hx) * (Xd3 3 + 2 * Xd2 3 - 3 * Xd2 2 * Xd3) / (Xd3 - Xd2) 3 - (Xd2 + Xd3) * (h - hx) * (Xd3 4 + 3 * Xd2 4 - 4 * Xd2 3 * Xd3) / (Xd3 - Xd2) 3 / 4) / w1 2 + (h - hx) * (Xd3 5 + 4 * Xd2 5 - 5 * Xd2 4 * Xd3) / (Xd3 - Xd2) 3 / 10 + h0 * Xd1 * (Xd(j) - Xd3) / 2 + h * (Xd3 + Xd2 - Xd1) * (Xd(j) - Xd3) / 2 + hx * nts 10 (Xd(j) - Xd2) * (Xd(j) - Xd3) / 2) / w1 2 Da(j) = 0 End If Next j For i = 1 To 360 给出 (0,2*pi)段的运动方程的表达式 If i DotNum Then PicBox1.Line (stroke - k4 * SS(angle + Angle1 - DotNum) / maxSS / 8 - 0.125, -0.25 + rr)-(stroke - 0.125, -0.25 + rr), RGB(200, 0, 0) nts 14 PicBox1.Line (stroke - k4 * SS(angle + Angle1 - DotNum) / maxSS / 8 - 0.125, -0.25 + rr)-(stroke - k4 * SS(angle + Angle1 - DotNum) / maxSS / 8 - 0.125 + 0.008, -0.25 + rr + 2 * r), RGB(200, 0, 0) Else PicBox1.Line (stroke - k4 * SS(angle + Angle1) / maxSS / 8 - 0.125, -0.25 + rr)-(stroke - 0.125, -0.25 + rr), RGB(200, 0, 0) PicBox1.Line (stroke - k4 * SS(angle + Angle1) / maxSS / 8 - 0.125, -0.25 + rr)-(stroke - k4 * SS(angle + Angle1) / maxSS / 8 - 0.125 + 0.008, -0.25 + rr + 2 * r), RGB(200, 0, 0) End If PicBox1.Circle (stroke - 0.125 - rr, -0.25 + rr + 6 * r), 0 PicBox1.Print 接纬剑 xzuo = stroke - 0.125 yzuo = -0.25 dian1x = xzuo + rr * Cos(izong * SSZ(angle) * k2 dian1y = yzuo + rr * Sin(izong * SSZ(angle) * k2 dian2x = xzuo + rr * Cos(pi + izong * SSZ(angle) * k2 dian2y = yzuo + rr * Sin(pi + izong * SSZ(angle) * k2 PicBox1.Line (dian1x, dian1y)-(dian2x, dian2y) dian1x = xzuo + rr * Cos(pi / 2 + izong * SSZ(angle) * k2 dian1y = yzuo + rr * Sin(pi / 2 + izong * SSZ(angle) * k2 dian2x = xzuo + rr * Cos(pi / 2 + pi + izong * SSZ(angle) * k2 dian2y = yzuo + rr * Sin(pi / 2 + pi + izong * SSZ(angle) * k2 PicBox1.Line (dian1x, dian1y)-(dian2x, dian2y) PicBox1.Line (stroke / 2 - 0.125, -0.25 + rr + 6 * r)-(stroke / 2 - 0.125, -0.25 - rr - 2 * r), vbRed PicBox1.Circle (0, 0), r9, , 1.7 * pi + thta8(angle), 0.1 * pi + thta8(angle) PicBox1.Circle (0, 0), r9 - 0.01, RGB(255, 0, 0), 1.7 * pi + thta8(angle), 0.1 * pi + thta8(angle) xzuo = 0 yzuo = 0 nts 15 dian1x = xzuo + r9 * Cos(1.7 * pi + thta8(angle) dian1y = yzuo + r9 * Sin(1.7 * pi + thta8(angle) dian2x = xzuo + r9 * Cos(0.1 * pi + thta8(angle) dian2y = yzuo + r9 * Sin(0.1 * pi + thta8(angle) PicBox1.Line (0, 0)-(dian2x, dian2y) PicBox1.Line (0, 0)-(dian1x, dian1y) PicBox1.Circle (r9 + r10, 0), r10 齿轮 10 PicBox1.Circle (r9 + r10, 0), r / 2 xzuo = r9 + r10 yzuo = 0 dian1x = xzuo + r10 * Cos(-thta10(angle) dian1y = yzuo + r10 * Sin(-thta10(angle) dian2x = xzuo + r10 * Cos(pi - thta10(angle) dian2y = yzuo + r10 * Sin(pi - thta10(angle) PicBox1.Line (dian1x, dian1y)-(dian2x, dian2y) dian1x = xzuo + r10 * Cos(pi / 2 - thta10(angle) dian1y = yzuo + r10 * Sin(pi / 2 - thta10(angle) dian2x = xzuo + r10 * Cos(pi / 2 + pi - thta10(angle) dian2y = yzuo + r10 * Sin(pi / 2 + pi - thta10(angle) PicBox1.Line (dian1x, dian1y)-(dian2x, dian2y) PicBox1.Circle (r9 + r10, 0), r12, RGB(255, 158, 128) 齿轮 12 xzuo = r9 + r10 yzuo = 0 dian1x = xzuo + r12 * Cos(-thta12(angle) dian1y = yzuo + r12 * Sin(-thta12(angle) dian2x = xzuo + r12 * Cos(pi - thta12(angle) dian2y = yzuo + r12 * Sin(pi - thta12(angle) PicBox1.Line (dian1x, dian1y)-(dian2x, dian2y), RGB(255, 158, 128) dian1x = xzuo + r12 * Cos(pi / 2 - thta12(angle) dian1y = yzuo + r12 * Sin(pi / 2 - thta12(angle) nts 16 dian2x = xzuo + r12 * Cos(pi / 2 + pi - thta12(angle) dian2y = yzuo + r12 * Sin(pi / 2 + pi - thta12(angle) PicBox1.Line (dian1x, dian1y)-(dian2x, dian2y), RGB(255, 158, 128) PicBox1.Circle (r9 + r10, -r13 - r12), r13, RGB(255, 158, 128) 齿轮 13 PicBox1.Circle (r9 + r10, -r13 - r12), r / 2, RGB(255, 158, 128) xzuo = r9 + r10 yzuo = -r13 - r12 dian1x = xzuo + r13 * Cos(thta13(angle) dian1y = yzuo + r13 * Sin(thta13(angle) dian2x = xzuo + r13 * Cos(pi + thta13(angle) dian2y = yzuo + r13 * Sin(pi + thta13(angle) PicBox1.Line (dian1x, dian1y)-(dian2x, dian2y), RGB(255, 158, 128) dian1x = xzuo + r13 * Cos(pi / 2 + thta13(angle) dian1y = yzuo + r13 * Sin(pi / 2 + thta13(angle) dian2x = xzuo + r13 * Cos(pi / 2 + pi + thta13(angle) dian2y = yzuo + r13 * Sin(pi / 2 + pi + thta13(angle) PicBox1.Line (dian1x, dian1y)-(dian2x, dian2y), RGB(255, 158, 128) Call Draw_Ellipse(-c, 0, qwer * pi / 180, RGB(0, 0, 200) 调用画中心椭圆子程序 Call Draw_Ellipse(Xm1(angle) - c, Ym1(angle), -Fai2(angle) + qwer * pi / 180 - (angle) * pi / 180, RGB(0, 0, 200) End Sub Private Sub Draw_curve() 加速度，速度，位移图像的输出 Call Calc_curve Picbox2.Scale (-d / 4, maxAA * (1 + d / 2)-(2 * pi + d, minAA * (1 + d / 2) 图画框原点设置 Picbox3.Scale (-d / 4, maxVV * (1 + d / 2)-(2 * pi + d, minVV * (1 + d / 2) Picbox4.Scale (-d / 4, maxSS * (1 + d / 2)-(2 * pi + d, -maxSS * d / 2) For j = 2 To DotNum Picbox2.Line (Xd(j - 1), AAc(j - 1)-(Xd(j), AAc(j), vbRed nts 17 Picbox3.Line (Xd(j - 1), VV(j - 1)-(Xd(j), VV(j), RGB(255, 158, 128) Picbox4.Line (Xd(j - 1), SS(j - 1)-(Xd(j), SS(j), vbBlue Next j End Sub Function Calc_Max(Data(), Nf) 求一组 n 个数据中的最大值 Max = Data(1) For i = 1 To Nf If Max Data(i) Then Min = Data(i) Next i Calc_Min = Min End Function Private Sub Draw_coord() Picbox2.Line (0, 1.3 * maxAA)-(0, 1.3 * minAA) Picbox2.Line (0, 1.3 * maxAA)-(-d / 10, 1.1 * maxAA) Picbox2.Line (0, 1.3 * maxAA)-(d / 10, 1.1 * maxAA) Picbox2.Line (0, 0)-(2 * pi + 0.8 * d, 0) Picbox2.Line (2 * pi + 0.8 * d, 0)-(2 * pi + 0.5 * d, 40) Picbox2.Line (2 * pi + 0.8 * d, 0)-(2 * pi + 0.5 * d, -40) Picbox2.Circle (0.1, 0), 0 Picbox2.Print 0 Picbox2.Circle (pi * 0.5, 0), 0 nts 18 Picbox2.Print 0.5 & Picbox2.Circle (pi, 0), 0 Picbox2.Print Picbox2.Line (0, maxAA)-(d / 8, maxAA) Picbox2.Print Fix(kk * maxAA) / kk Picbox2.Line (0, maxAA / 2)-(d / 8, maxAA / 2) Picbox2.Print Fix(kk * maxAA) / kk / 2 Picbox2.Line (0, -maxAA / 2)-(d / 8, -maxAA / 2) Picbox2.Print Fix(-kk * maxAA) / kk / 2 Picbox2.Line (0, -maxAA)-(d / 8, -maxAA) Picbox2.Print (Fix(-kk * maxAA) / kk Picbox2.Circle (0.2, maxAA * (1 + d / 2.2), 0 Picbox2.Print 加速度 A(m/s2) Picbox2.Circle (1.9 * pi, -maxAA / 3), 0 Picbox2.Print x(rad) Picbox3.Line (0, 1.3 * maxVV)-(0, 1.3 * minVV) Picbox3.Line (0, 1.3 * maxVV)-(-d / 10, 1.1 * maxVV) Picbox3.Line (0, 1.3 * maxVV)-(d / 10, 1.1 * maxVV) Picbox3.Line (0, 0)-(2 * pi + 0.8 * d, 0) Picbox3.Line (2 * pi + 0.8 * d, 0)-(2 * pi + 0.5 * d, 1.7) Picbox3.Line (2 * pi + 0.8 * d, 0)-(2 * pi + 0.5 * d, -1.8) Picbox3.Circle (0.1, 0), 0 Picbox3.Print 0 Picbox3.Circle (pi * 0.5, 0), 0 Picbox3.Print 0.5 & Picbox3.Circle (pi, 0), 0 Picbox3.Print Picbox3.Line (0, maxVV)-(d / 8, maxVV) Picbox3.Print Fix(kk * maxVV) / kk Picbox3.Line (0, maxVV / 2)-(d / 8, maxVV / 2) nts 19 Picbox3.Print Fix(kk * maxVV) / kk / 2 Picbox3.Line (0, -maxVV / 2)-(d / 8, -maxVV / 2) Picbox3.Print Fix(-kk * maxVV) / kk / 2 Picbox3.Line (0, -maxVV)-(d / 8, -maxVV) Picbox3.Print Fix(-kk * maxVV) / kk Picbox3.Circle (0.2, maxVV * (1 + d / 2.2), 0 Picbox3.Print 速度 V(m/s) Picbox3.Circle (1.9 * pi, -maxVV / 3), 0 Picbox3.Print x(rad) Picbox4.Line (0, 1.3 * maxSS)-(0, -maxSS / 3) Picbox4.Line (0, 1.3 * maxSS)-(-d / 10, 1.18 * maxSS) Picbox4.Line (0, 1.3 * maxSS)-(d / 10, 1.18 * maxSS) Picbox4.Line (0, 0)-(2 * pi + 0.8 * d, 0) Picbox4.Line (2 * pi + 0.8 * d, 0)-(2 * pi + 0.5 * d, 0.06) Picbox4.Line (2 * pi + 0.8 * d, 0)-(2 * pi + 0.5 * d, -0.06) Picbox4.Circle (0.1, 0), 0 Picbox4.Print 0 Picbox4.Circle (pi * 0.5, 0), 0 Picbox4.Print 0.5 & Picbox4.Circle (pi, 0), 0 Picbox4.Print Picbox4.Line (0, maxSS)-(d / 8, maxSS) Picbox4.Print Fix(kk * maxSS) / kk Picbox4.Line (0, 0.75 * maxSS)-(d / 8, 0.75 * maxSS) Picbox4.Print Fix(kk * 0.75 * maxSS) / kk Picbox4.Line (0, maxSS / 2)-(d / 8, maxSS / 2) Picbox4.Print 0 & Fix(kk * maxSS) / kk / 2 Picbox4.Line (0, 0.25 * maxSS)-(d / 8, 0.25 * maxSS) Picbox4.Print 0 & Fix(kk * 0.25 * maxSS) / kk Picbox4.Circle (0.2, maxSS * (1 + d / 2.2), 0 nts 20 Picbox4.Print 位移 S(m) Picbox4.Circle (1.9 * pi, -maxSS / 5), 0 Picbox4.Print x(rad) ii = Int(4000 / (pi * 300) For i = 0 To ii If i 2 Then Picbox2.Line (i * pi / 2, 30)-(i * pi / 2, 0) Picbox2.Print i / 2 & Picbox3.Line (i * pi / 2, 1.5)-(i * pi / 2, 0) Picbox3.Print i / 2 & Picbox4.Line (i * pi / 2, 0.05)-(i * pi / 2, 0) Picbox4.Print i / 2 & Else Picbox2.Line (i * pi / 2, 30)-(i * pi / 2, 0) Picbox3.Line (i * pi / 2, 1.5)-(i * pi / 2, 0) Picbox4.Line (i * pi / 2, 0.05)-(i * pi / 2, 0) End If Next i If angle = 1 Then SSZ(angle) = 0 thta13(angle) = 0 End If txt_thta81.Text = Format$(SSZ(angle) * 180 / pi, .#) txt_wheel.Text = Format$(thta13(angle) * 180 / pi, .#) txt_izong.Text = Format$(izong, .#) txt_stroke.Text = Format$(maxSS * 1000, .#) De = maxSS - Ji / 1000 If angle + Angle1 DotNum Then txt_jtwy.Text = Format$(SS(angle + Angle1 - DotNum) * 1000, .#) Else nts 21 txt_jtwy.Text = Format$(SS(angle + Angle1) * 1000, .#) End If End Sub Private Sub cmd1_Click() 参数计算按钮 angle = 1 PicBox1.Cls Picbox2.Cls Picbox3.Cls Picbox4.Cls Timer1.Enabled = False cmd2.Caption = 运动模拟 cmd3.Enabled = False cmd4.Enabled = False cmd6.Enabled = True Call Draw_curve Call Draw_coord End Sub Private Sub cmd2_Click() 运动模拟按钮 If cmd2.Caption = 暂停 Then Timer1.Enabled = False cmd2.Caption = 继续 cmd3.Enabled = True cmd4.Enabled = True Else PicBox1.Cls Picbox2.Cls Picbox3.Cls nts 22 Picbox4.Cls Timer1.Enabled = True Call Draw_curve Call Calc_ratio cmd1.Enabled = False cmd2.Caption = 暂停 cmd3.Enabled = False cmd4.Enabled = False End If End Sub Private Sub cmd3_Click() 步进功能 If

温馨提示:
1: 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。