精编机械原理作业旋转型灌装机

1、（精编）机械原理作业旋 转型灌装机机械原理课程设计任务书旋转型灌装机1.1设计题目及原始数据设计旋转型灌装机。在转动工作台上对包装容器（如玻璃瓶）连续灌装流体（如 饮料、酒、冷霜等），转台有多工位停歇，以实现灌装、封口等工序。为保证在这些 工位上能够准确地灌装、封口，应有定位装置。如图1中，工位1:输入空瓶；工位2 :灌装；工位3 :封口；工位4 :输出包装好的容器。该机采用电动机驱动，传动方式为机械传动。技术参数见下表。旋转型灌装机技术参数表万案号转台直径mm电动机转速r/mi n灌装速度r/minA600144010B550144012C50096010表1-11.2设计方案提示1. 采用

2、灌瓶泵灌装流体，泵固定在某工位的上方。2. 采用软木塞或金属冠盖封口，它们可由气泵吸附在压盖机构上，由压盖机构 压入（或通过压盖模将瓶盖紧固在）瓶口。设计者只需设计作直线往复运动的压盖 机构。压盖机构可采用移动导杆机构等平面连杆机构或凸轮机构。3. 此外，需要设计间歇传动机构，以实现工作转台间歇传动。为保证停歇可靠， 还应有定位（锁紧）机构。间歇机构可采用槽轮机构、不完全齿轮机构等。定位（锁 紧）机构可采用凸轮机构等。1.3设计任务1. 旋转型灌装机应包括连杆机构、凸轮机构、齿轮机构等三种常用机构；2. 设计传动系统并确定其传动比分配，并在图纸上画出传动系统图；3. 图纸上画出旋转型灌装机的运

3、动方案简图，并用运动循环图分配各机构运动 节拍；4. 电算法对连杆机构进行速度、加速度分析，绘出运动线图。图解法或解析法 设计平面连杆机构；5. 凸轮机构的设计计算。按凸轮机构的工作要求选择从动件的运动规律，确定 基圆半径，校核最大压力角与最小曲率半径。对盘状凸轮要用电算法计算出理论廓 线、实际廓线值。画出从动件运动规律线图及凸轮廓线图；6. 齿轮机构的设计计算；7. 编写设计计算说明书；2旋转型灌装机的工作功能原理2.1 旋转型灌装机工作原理如图 2-1 所示，在按照工作要求下，旋转型灌装机在同一个原动机的带动 下，输入传送带将待灌装和封口压盖的容器输入工位 1 ，同时旋转工作台作间隙旋 转

4、运动，将空容器和已灌的容器分别送至工位 2 和工位 3 ，在定位夹紧之 图 2-1 后，固定于工作台上方的灌装设备和封口压盖设备分别对空容器进行灌装和已灌装 容器进行封口压盖。灌装，封口压盖工序完成后，容器随着旋转工作台的间隙旋转 运动至 4 位置，由于输出传送带的作用，在 4 位置的容器将随着输出传送带被带至 下一个工序的位置上。2.2 旋转型灌装机功能原理 （1）基于上述设计任务书的要求以及旋转型灌装机的工作原理，为了实现旋 转型灌装机的总功能要求，我们将旋转型灌装机要实现的功能分解为如下分功能： 容器输入与传送功能； 容器定位功能； 容器夹紧功能； 灌装功能； 封口压盖功能； 产品输出与

5、传送功能。其功能逻辑图如下图图 2-2 所示：图 2-2（2）功能原理的工艺过程分解； 容器输入与传送功能 ：要实现容器的输入与传送功能，我们想到了如图 2-3 所示的连杆机构， 原动件AB连续转动，使ED摆动，通过EF杆的作用使5在H范围内来回运动，从 而把容器推送至工位 1，但是考虑到这种推送运动冲击大，对轻质容器，玻璃容器 等来说是应该避免的，同时这样的连杆机构设计复杂，所以在此我们尽量不选用这 种推送机构。图 2-3 为了达到容器的输出与传送的目的，同时使我们的设计过程简单化，我们采用 皮带传送的方式。如图2-4 所示，并且这种传送方式在实际生产活动中被大量采用。图 2-4由于传送皮带

6、上容器是连续排列的，而旋转工作台是间隙转动，为了使容器 能够间隙有序地传送到旋转工作台工位 1，从而到达各机构运动的配合与协调，我 们准备采用了如图 2-5 ，图2-6 所示的传送轮机构：图 2-5 图 2-6图 2-5 所示的不完全齿轮安装在传送导轨的一侧，传送轮一次往下一工位间 隙有序地传送 4 个容器。图 2-6 所示机构安装在传送导轨的轴线上，传送轮有三个 互成120。转角的槽位，传送皮带连续传送，设传送轮转速 W,则传送轮每次传送容 器到工位1的时间间隔为t=2冗/3W，这样就实现了间隙有序地往旋转工作台传送 待灌装和封口压盖的容器。比较两种方案，我们发现图 2-5 所示机构虽然可以

7、达到 间隙有序传送容器的目的，但是对于设计任务要求的旋转型灌装机来说，其外形尺 寸偏大，使机器整体外形庞大，占用厂房空间大。而图 2-6 所示机构不仅可以很好 地与旋转工作台配合，而且尺寸也不会过大，所以我们决定采用图 2-6 所示的“不完全齿轮”式传送轮同时为了使容器能够更好的输出到工位1，我们还设计了如下图2-7所示的挡板：挡板示意图 容器定位功能：可以实现容器定位的机构很多，在这里我们设计了下图2-8所示的带凹槽并且间隙转动的旋转工作台。图2-8凹槽定位旋转工作台有六个半圆形凹槽，一方面随着工作台的间隙转动，凹槽边缘可 以把传送轮传送到工位1的容器带走，另一方面依靠间隙旋转工作台的间隙转

8、动凹 槽可以起到很好的定位，即旋转工作台每次转过60 °，容器就被定位。实现间除症动的槽轮机构i1-LJ怎样实现旋转工作台的间隙转动呢？可以实现间隙转动的机构有棘轮间隙运 动机构，槽轮间隙机构，凸轮间隙机 构，不完全齿轮间隙机构，偏心轮分 度定位机构等，综合考虑各因素，我 们选用下图所示的槽轮间隙机构。 槽 轮机构将旋转运动转换为单向间隙 转动。如图右所示，槽轮机构由主动 拨盘，从动槽轮和机架组成。主动拨 盘以等角速度Wi作连续回转，当拨 盘上的圆销未进入槽轮的径向槽时， 由于槽轮的内凹槽止弧被拨盘的外凸锁止弧卡住，使槽轮在停歇时不能产生游动， 并获得定位。当圆销进入槽轮径向槽时，槽

9、轮受圆销的驱使而转动。当圆销离开径 向槽时，锁止弧又被卡住，槽轮又静止不动。直至圆销再次进入槽轮的另一个径向 槽时，又重复上述运动。所以，槽轮作时动时停的间隙运动。 容器夹紧功能： 因为要对容器进行灌装，封口压盖，所以在灌装工位和封口压盖工位时要对 容器进行夹紧固定，防止容器在灌装时不准确，封口压盖时跳动，导致封口压盖错 位，产生废品，而浪费材料和经费。出于此目的，我们设计了下面几种夹紧方案：（ 1） 方案一：如图 2-10 所示， 在工位 2 和工位 3 外加装两个凸轮， 用于对容器进 行夹紧固定，工作原理是当容器到达工位 2 和工位 3 时，凸轮处于远休位 置，此时凸轮的远休轮廓刚好对容器

10、进行夹紧，等灌装和封口压盖完成时， 凸轮远休结束， 此时容器没有被夹紧， 只要旋转工作台转动， 则容器跟随其 一起转动。图 2-10 凸轮夹紧示意（ 2） 方案二：如图 2-11 所示 ,本方案采用圆环来是实现容器在灌装和封口压盖工位 处的夹紧固定，工作原理是当容器在工位 1 处被旋转工作台带进时，容器就被圆环 夹紧，容器随着旋转工作台的转动而转动，容器一直处于夹紧状态。图 2-11 夹紧圆环示意（ 3） 方案三：如图 2-12 所示，方案三我们采用图示两斜台，斜台在灌装工位和封 口压盖工位处与容器相切， 容器刚好被运送至灌装工位和封口压盖工位时就被夹紧，此时旋转工作台进入间隙停止期， 利用这

11、段间隙， 灌装设备和封口 压盖设备刚好可以对容器进行灌装和封口压盖。图 2-12 斜台夹紧示意图比较上述三个方案，方案一采用两个凸轮对容器进行夹紧，可以很好的实现夹 紧功能，但是凸轮设计复杂，加工困难，并且两个夹紧凸轮与旋转工作台运动的协 调与配合过程设计复杂，难度大，同时也会使机器整体构造复杂化。方案二中的夹 紧圆环会使容器在整个加工过程中出于夹紧状态，容器与夹紧圆环摩擦严重，可能 会使容器变形，甚至破裂，并且这样的摩擦状态会增加系统的无用功率，降低机械 系统的运动功率因素，增加能耗，不利于低碳城市与工业加工的建设。 相比之下，方案三不仅可以较好的实现容器在连个工位处的夹紧，而且在整个过程

12、中只有在夹紧处容器和夹紧摩擦大，系统的有效功率利用高。同时夹紧斜台的设计 过程简单，加工制造也方便。 综上所述，我们采用方案三中的夹紧斜台对容器在灌装工位和封口压盖工位处进行 夹紧固定，从而到达防止容器的跳动，以及加工错位和误差的产生。 灌装功能：（1 ） 方案一：如图 2-13 所示，采用图示的凸轮机构，由凸轮的连续转动实现灌装 活塞的上下往复运动，由于弹簧的作用当凸轮近休时，活塞往上运动，此 时灌装容器吸入液体，凸轮继续运动，推动活塞向下运动，此时灌装机构 对空容器进行灌装，如此往复运动就可实现灌装功能。图 2-13 凸轮式灌装机构示意2 ） 方案二： 如图 2-14 所示，本方案采用连杆

13、机构来实现灌装功能。图 2-14 虽然连杆机构制造简单，但是其设计过程复杂，所以我们采用方案一来实现灌 装功能。 封口压盖功能：如下图 2-15 ，这是我们设计的封口压盖机构，此机构为对心曲柄滑块机构，曲柄 ab 与齿轮固接， 齿轮连续转动带动杆 ab 连续转动， 从而实现封口压盖机构 的上下往复运动，进而对容器进行封口压盖。图 2-15 对心曲柄滑块封口压盖 产品输出与传送功能：在产品的输出与传送上，我们像容器的输入一样采用输出挡板和输出传送带。如图2-16 所示，容器到达图示虚线位置时，输出挡板将容器往输出传送 带方向推挡，同时容器是随着旋转工作台一起旋转的，在合成力的作用下，容器被 带至

14、输出传送带上，进而传送到下个加工工位。3旋转型灌装机机构运动总体方案综合考虑旋转型灌装机要实现的 6 个功能，我们设计了如下旋转型灌装机。3.1 旋转型灌装机总体方案图（机构运动简图）图 3-1 机构运动简图1. 电动机同轴带轮 2.带轮3.4.5.6. 齿轮7.9.斜齿轮 8.8 '.链轮10.11.12.13. 齿轮14. 主动拨盘 15.从动槽轮 16.旋转工作台 17.传送轮18.链轮18.带轮19.20. 链轮21. 凸轮21 '.22.22 .23 齿轮24.曲柄25.连杆26.封口压盖器 27.滚子 28.活塞推杆 上图所示为机械系统运动方案运动简图， 该旋转型灌

15、装机的工作原理如下所述： 电机 1 通过皮带轮传到 2，2 通过轴传到 3，3 又传到齿轮 4 ，齿轮 4 通过轴传到轮 5 转动，齿轮 5 又带动齿轮 6，从而形成三级减速。 锥齿轮 7 传给锥齿轮 9，与锥齿轮 9 同轴的齿轮 10 又带动齿轮 11 ，齿轮 11又通过轴传给传动轮 17 ，用来传送容器。 与锥齿轮 7 同轴的带轮 8 以相同角速度转动通过皮带传给链轮 18 ，使轴转动，从而使皮带轮 18 转动，带动皮带用来传送容器。 与左边带轮 18 同轴的链轮 19 通 过链条与链轮 20 连接，链轮通过轴传给齿轮 21 '和凸轮 21，凸轮通过滚子 27 ，推 杆 28 带动

16、活塞上下往复运动，从而实现对容器的灌装。 齿轮 21传递给齿轮 22 ，齿轮 22'又传给齿轮 23，曲柄 24 与齿轮 23 固接，曲柄与连杆 25 相连，连杆 25 与滑块 26 连接，滑块上下往复运动，实现对容器的封口压盖。 与锥齿轮 9 同轴的齿轮 12 传给齿轮 13，齿轮 13 通过轴传到主动拨盘 14 ，主动拨盘 14 带动从动槽轮 16 ，实现旋转工作台的间隙旋转运动。以下两图图 3-2 ，图3-3 分别是旋转型灌装机的左视图，旋转工作台的俯视图。图 3-2 选装型灌装机左视图图 3-3 旋转工作台的俯视图3.2 旋转型灌装机各运动构件的设计，选择与分析 设计任务书的要

17、求的灌装速度是 12r/min, 即灌装凸轮和封口压盖曲柄的转速 也是 12r/min 。由于旋转工作台有 6 个凹槽，所以旋转工作台 1min 内要转 2 转， 即 2r/min ，也即从动槽轮的转速也是 2r/min ，因为我们设计的槽轮有六个径向槽， 并且主动拨盘只有 1 个圆销，所以主动拨盘的转速为 12r/min 。而传送轮有三个凹 槽，旋转工作台转速 2r/min, 则传送轮转速应为 4r/min 。而传送皮带轮我们设定的 转速是 8r/min 。（ 1） 旋转型灌装机运动循环图 为了使灌装机各运动构件运动协调配合，我们设计了如下直线式动循环图图 3-3 和直角坐标式运动循环图图

18、3-4 ：图3-3直线式动循环图图3-4直角坐标式运动循环图(2) 原动机的选择：本方案采用的是转速为1440r/mi n的电动机。(3) 传动机构的选择：机械系统中的传动机构是把原动机输出的机械能传递给执行机构并实现能量的分配、转速的改变及运动形式的改变的中间装置。传动机构最常见的有齿轮传动、 带传动、蜗杆传动，链传动等。它们的特点如表3-1 :特点寿命应用承载能力和速度范围大；传动取决于齿轮金属切削机床、汽车、起重比恒定，采用卫星传动可获得材料的接触运输机械、冶金矿山机械以齿轮传很大传动比，外廓尺寸小，工和弯曲疲劳及仪器等动作可靠，效率咼。制造和安装强度以及抗精度要求高，精度低时，运转胶合

19、与抗磨有噪音；无过载保护作用损能力结构紧凑，单级传动能得到很制造精确，金属切削机床(特别是分度大的传动比；传动平稳，无噪润滑良好，机构)、起重机、冶金矿山音；可制成自锁机构；传动比寿命较长；机械、焊接转胎等蜗杆传大、滑动速度低时效率低；中、低速传动，动高速传动需用昂贵的减磨材磨损显著料；制造精度要求高，刀具费用贵。带传动轴间距范围大，工作平稳，噪 音小，能缓和冲击，吸收振动； 摩擦型带传动有过载保护作 用；结构简单，成本低，安装 要求不咼；外廓尺寸较大；摩 擦型带有滑动，不能用于分度 链；由于带的摩擦起电，不宜 用于易燃易爆的地方；轴和轴 承上的作用力很大，带的寿命 较短带轮直径大，带的寿 命

20、长。普通V带3500-5000h金属切削机床、锻压机床、输送机、通风机、农业机械和纺织机械链传动轴间距范围大；传动比恒定； 链条组成件间形成油膜能吸 振，对恶劣环境有一定的适应 能力，工作可靠；作用在轴上 的荷载小；运转的瞬时速度不 均匀，高速时不如带传动平 稳；链条工作时，特别是因磨 损产生伸长以后，容易引起共 振，因而需增设张紧和减振装 置与制造质量有关5000-15000h农业机械、石油机械、矿山机械、运输机械和起重机械等由上述几种主要的传动装置相互比较可知，由于传动效率高等原因，故选择齿轮传动，第一级传动选择带传动，可对电动机起到过载保护的作用。减速器分为三级减速，第一级为皮带传动，后

21、两级都为齿轮传动。具体设计示 意图及参数如下：1、2为皮带轮：ii2 = 3。3、4、5、6 为齿轮：Z3=20z 4=100Z5=20z 6=80i34=Z 4/Z 3 = 100/20=5i56=z 6/z 5=80/20=4所以I轴转速480r/min, U轴转速为96r/min,川轴转速为24r/min.齿数模数分度圆直径d传送比i压力角带轮160mm3带轮2180mm齿轮3201.5mm30mm520 °齿轮41001.5mm150mm20 °齿轮5202mm40mm420 °齿轮6802mm160mm20 °(3)绘制机械系统运动转换功能图：

22、根据执行构件的运动形式，绘制机械系统运动转换功能图如图3-5所示图3-5旋转型灌装机系统转换功能图(4) 用形态学矩阵法创建旋转型灌装机机械系统运动方案:根据机械系统运动转换功能图图 3-5可构成形态学矩阵。图3-6所示的形态学矩阵可求出旋转型灌装机系统运动方案数为：N=3 X3 X3 X2 X2 X3 X3 X3=2916可由给定的条件，各机构的相容性，各机构的空间布置，类似产品的借鉴，下图折 线为我们设计的最优方案。图3-6形态学矩阵(5) 灌装机构的设计：由系统方案图我们可知，我们选用如下灌装机构：设定的数值: 容器高度hi为200mm; 活塞运动范围S为40mm; 推杆和活塞总长L为1

23、05mm; 滚子直径d=10mm; 容器顶部距离活塞最近距离I为 10mm;轮 凸灌装机构凸轮：此凸轮用于灌装工位，利用远近休止带动推杆和活塞来实现灌装，设定活塞推杆的最大推程为40mm，凸轮的安装高度为400mm。以下为凸轮的具体设计过程：我们设定凸轮的数据如下: 基圆半径r0=45mm 滚子半径： rt=5mm 行程： S=40mm 推程角：S 0=120 ° 回程角：S o' =120 ° 近休止角：S 01 =60 ° 远休止角：S 02=60 ° 升程最大压力角：a max0i =29.3571108729986 v 30 °

24、 回程最大压力角：a max02 =29.3571108729986 v 30 ° 运动规律的选择，为了减少刚性和柔性冲击，我们在推程和回程选用既无柔性冲击和刚性冲击的摆线规律（正弦加速度运动规律 sineaccelerationcurve ） ,在远 休和近休时选用静止运动规律。根据以上凸轮的数据我们利用“凸轮机构 CAD CAI ”软件可以将凸轮的 图形设计出来，具体过程：1 、设置凸轮参数：2、设置凸轮分段参数为保证凸轮运动过程中减少冲击，我们将参数分别设置为： 0°-60。为近休止运动阶段，升程为0mm，静止运动规律； 60 ° -180。为推程运动阶段，

25、升程为40mm，摆线运动规律； 180 ° -240。为远休止运动阶段，升程为0mm，静止运动规律； 240 ° -360。为回程运动阶段，升程为-40mm，摆线运动规律。将上述数据输入软件如下图所示：3、利用反转法原理设计凸轮的图形为：4、运行出的最终结果，位移、速度、加速度图以及凸轮的二维图形如下图所示： 5、软件导出的部分数据如下：注：先启动 Solidworks ，打开一张零件图，再点击此键。基圆半 偏心 滚子半径 距 径45 0 5最小曲率半 升程最大压力角 径45 29.35711087计算点回程最大压力角数29.35711087 726、凸轮推动推杆上下运动，

26、而活塞与推杆固接，故活塞的运动规律与推杆的一样，做上下往复运动，由运动循环图可知，灌装活塞的运动规律如下：（ 6） 旋转工作台间隙运动机构的设计：由于要求灌装速度为12r/min，因此每个工作间隙为5s，转台每转动60。用时 5/6s ，停留 25/6s ，运动规律如图 3-6 所示。由此设计如下槽轮机构，完成间歇运用，以达到要求。槽轮机构具有以下特点：构造简单，外形尺寸小；机械效率高，并能较平稳地，间歇地进行转位；但因传动时存在柔性冲击，故常用于速度不太高的场合；同时由于槽轮机构具有自行锁紧的功 能，所以能用于此机构的定位作用具体数据如下:实现间隙运动的槽轮机构Si1514 从动槽轮15如图

27、 所示有六个径向 槽，并且从动槽轮 的转速为2r/min; 主动拨盘有一个拨 动圆销，并且主动 拨盘的的转速为 12r/mi n;(7)传送轮的设计:传送轮是为了将传送带的连续传送转变为间隙有序地传送到旋转工作台的工位1，这样就可以利用传送轮转动120。的时间间隔来使空容器间隙有序的传送到 位。如图所示传送伦上设计有三个互成 120。的凹槽，传送轮直径为200mm。 其运动规律如下图所示：由上图可知，旋转工作台转动1转，有6个容器完成灌装和封口压盖，由于传送轮上只有3个凹槽，所以传送轮转动在旋转工作台转 1转的时候，它应该转动2转(8)传动齿轮，带轮，链轮的设计：(1) 如下图所示从电动机到轴

28、川的减速以及齿轮带轮的设计在前面已经阐述 过，在这里就不再重复。(2) 下图所示为旋转型灌装机系统中的链传动: 设计数据如下：链轮8和18的齿数Z8=24 ,Z18= 72，模数m=2mm,d 8=48mm , d18= 144mm;i818=Z18/ Z8=3,n 8=24r/min, n18=8r/min; 链轮 8'和 18''的齿数 Z8' =24 , Z18'' =72，模数 m=2mm,d 8' =48mm ,d18' =144mm; i818' = Z18 '' /Z8' =3,n 8

29、' =24r/min, n18'' = 8r/min; 链轮 19 和 20 的齿数 Z19=60 ， Z20= 40，模数 m=2mm,d 19=120mm ，d20= 80mm; i1920 =Z20/ Z19 =2/3,n 19=8r/min, n20=12r/ min;（3）系统中锥齿轮的设计：川轴转速为24r/min, W轴转速为12r/min,固iy9=2 : 1 ,设计锥齿轮7 , 9的齿数为 30， 60，模数为 2mm ，则直径为 60mm,120mm 。（4）系统中灌装和封口压盖处齿轮的设计：如图所示齿轮 21 带动齿轮 22 转动，与齿轮 22 同

30、轴的 22'带动齿轮23，从而实现齿轮 23 上曲柄的连续转动。这四个齿轮的具体设计数据如下： 齿轮21 与齿轮22啮合：齿数Z21 =60 ,Z22= 77，模数m=2mm,d 21 =120mm ， d22= 154mm; 齿轮22 '与齿轮23啮合：齿数Z23 =60 , Z22= 77 ,模数m=2mm,d 23=120mm ， d22= 154mm;（5）传送轮同轴齿轮，主动拨盘同轴齿轮，锥齿轮同轴齿轮的设计： 齿轮 10与齿轮 11 啮合， n10=12r/min, n11=4r/min; i1011 = n 1 0/ n 1 1 =3, 齿数 Z10 =40 ，Z

31、11= 60，模数 m=2mm,d 10 =80mm ，d11= 120mm;齿轮 12 与齿轮 13 啮合， n 12= 12r/min, n 13 = 12r/min; i1213 = n12/ n 13 =1, 齿 数 Z12 =77 ，Z13= 77，模数 m=2mm,d 12 =154mm ，d13= 154mm;(6) 封口压盖机构的设计：封口压盖我们采用下图所示曲柄滑块机构： 此机构为对心曲柄滑块机构，曲柄 ab 与齿轮固接，齿轮连续转动带动杆 ab 连续转动，从而实现封口压盖机构的上下往复运动，进而对容器进行封口压盖。 有关此机构的数据如下： 齿轮与曲柄的安装高度为 400mm

32、; 齿轮与曲柄的转速为 12r/min ； 曲柄 ab 长度 L1= 30mm ，连杆 bc 长度 L2= 150mm; 齿轮齿数 Z=60 模数 m=2mm, 压力角 20 °，分度圆直径 d=120mm; C 处于最下极位时， C 点距离容器瓶口的距离为 20mm ； 封口压盖滑块的行程 S=60mm 。 由运动循环图可以知道封口压盖滑块的运动规律如下图所示： 综上所述，曲柄滑块的数据如下：曲柄长 ab=L 1= 30mm连杆长 bc=L 2= 150mm极位夹角B =0 °行程比 k=1最小传动角丫 min=arcos(L 1/L2)=arcos(0.2)=78.46

33、304097°=78.46 ° 利用计算机辅助设计过程如下： 机构运动分析计算机辅助设计流程框图为： 程序清单(主程序和子程序) ：PrivateSubCommand1_Click() Dimb(6),c(6),d(3),tAsString pai=Atn(1#)*4/180Forfi=0To360Step10Fi1=fi*paiCall 单杆运动分析子程序 (0,0,0,0,0,0,0.03,0,Fi1,1.256637061,0,_ xB,yB,vBx,vBy,aBx,aBy)CallRRP 运动分析子程序 (1,xB,yB,vBx,vBy,aBx,aBy,0,0,vP

34、x,vPy,aPx,aPy,_ 0.15,0,0,0,xC,yC,vCx,vCy,aCx,aCy,fi2,omega2,epsilon2,sr,vsr,asr) t=t+"Fi1="+Str(fi)+vbCrLft=t+"xC(m)="+Str(xC)+vbCrLf t=t+"vC(m/S)="+Str(vCx)+vbCrLf t=t+"aC(m/S2)="+Str(aCx)+vbCrLf t=t+"omega3(rad/S)="+Str(omega3)+vbCrLf t=t+"ome

35、ga2(rad/S)="+Str(omega2)+vbCrLf t=t+"epsilon3(rad/S)="+Str(epsilon3)+vbCrLf t=t+"epsilon2(rad/S)="+Str(epsilon2)+vbCrLf t=t+vbCrLfNextfiText1.Text=tEndSubSub 单杆运动分析子程序 (xA,yA,vAx,vAy,aAx,aAy,S,theta,fi,omega,epsilon,_ xm,ym,vmx,vmy,amx,amy) xm=xA+S*Cos(fi+theta) ym=yA+S*Sin(

36、fi+theta)vmx=vAx-S*omega*Sin(fi+theta) vmy=vAy+S*omega*Cos(fi+theta)amx=aAx-S*epsilo n*Si n(fi+theta)-S*omegaA2*Cos(fi+theta) amy=aAy+S*epsilo n*Cos(fi+theta)-S*omegaA2*Si n(fi+theta)EndSubSubatn1(x1,y1,x2,y2,fi)Dimpi,y21,x21pi=Atn(1#)*4y21=y2-y1x21=x2-x1Ifx21=0Then' 判断 BD 线段与 x 轴的夹角Ify21>0Th

37、enfi=pi/2ElseIfy21=0ThenMsgBox"B 、D 两点重合，不能确定 "Else:fi=3*pi/2ElseIfx21<0Thenfi=Atn(y21/x21)+piElseIfy21>=0Thenfi=Atn(y21/x21)Else:fi=Atn(y21/x21)+2*piEndIfEndIfEndSubSubRRP 运动分析子程序 (m,xB,yB,vBx,vBy,aBx,aBy,xP ,yP,vPx,vPy,aPx,aPy,_L2,fi3,omega3,epsilon3,xC,yC,vCx,vCy,_aCx,aCy,fi2,omeg

38、a2,epsilon2,sr,vsr,asr)Dimpi,d2,e,F,yCB,xCB,E1,F1,Q,E2,F2pi=Atn(1#)*4d2=(xB-xPF2+(yB-yPF2)e=2*(xP-xB)*Cos(fi3)+2*(yP-yB)*Sin(fi3)F=d2-L2A2IfeA2<4*FThe nMsgBox" 此位置不能装配 "GoTon1ElseEndIfIfm=1Then sr=Abs(-e+(eA2-4*FF0.5)/2)Else:sr=Abs(-e-(eA2-4*FF0.5)/2)EndIf xC=xP+sr*Cos(fi3) yC=yP+sr*Sin

39、(fi3) yCB=yC-yB xCB=xC-xBCallatn1(xB,yB,xC,yC,fi2) E1=(vPx-vBx)-sr*omega3*Sin(fi3)F1=(vPy-vBy)+sr*omega3*Cos(fi3)Q=yCB*Sin(fi3)+xCB*Cos(fi3) omega2=(F1*Cos(fi3)-E1*Sin(fi3)/Q vsr=-(F1*yCB+E1*xCB)/QvCx=vBx-omega2*yCB vCy=vBy+omega2*xCBE2=aPx-aBx+omega2A2*xCB-2*omega3*vsr*Si n(fi3)_ -epsilo n3*(yC-yP)

40、-omega3A2*(xC-xP)F2=aPy-aBy+omega2A2*yCB+2*omega3*vsr*Cos(fi3)_ +epsilo n3*(xC-xP)-omega3A2*(yC-yP) epsilon2=(F2*Cos(fi3)-E2*Sin(fi3)/Q asr=-(F2*yCB+E2*xCB)/QaCx=aBx-omega2A2*xCB-epsilo n2*yCB aCy=aBy-omega2A2*yCB+epsilo n2*xCBn1:EndSubPrivateSubCommand2_Click()Dimb(6),c(6),d(3),xC1(360),vCx1(360),a

41、Cx1(360)pai=Atn(1#)*4/180Picture1.Print" 贵州大学机械工程与自动化学院机械原理课程设计 "Picture1.Print" 机械电子工程刘传盛 080803110345"Forfi=0To360Step10Fi1=fi*paiCall 单杆运动分析子程序 (0,0,0,0,0,0,0.03,0,Fi1,1.256637061,0,_xB,yB,vBx,vBy,aBx,aBy)CallRRP 运动分析子程序 (1,xB,yB,vBx,vBy,aBx,aBy,0,0,vPx,vPy,aPx,aPy,_0.15,0,0,0,xC,yC,vCx,vCy,aCx,aCy,fi2,omega2,epsilon2,sr,vsr,asr)xC1(fi)=xCvCx1(fi)=vCxaCx1(fi)=aCxNextfiForeColor=QBColor(0)Picture1.Scale(-10,100)-(370,-100)Picture1