课 程 设 计 说 明 书

题    目：基于整车匹配的汽车变速器

总体设计及整车动力性计算

课    程： 《汽车设计》课程设计

院 （部）： 机电工程学院

专    业： 车辆工程

班    级： 车辆122班

学生姓名：  

学    号： 

指导教师： 吴亚兰 孔祥安

设计期限： 2015.06.29-2015.07.17

4整车动力性计算    29

前 言

随着现代经济和科技的发展，机动车尤其是汽车越来越成为人们出行必不可缺少得交通工具。作为汽车行业技术革新的代表——变速器更是受到了大家的重视。变速器是汽车传动系最重要的组成部分之一，其主要用来改变汽车的车速和转矩、使汽车反方向行驶、实现空挡滑行等。机械式变速器因其制作工艺简单,制造成本低廉和工作性能可靠在各类汽车上得到了广泛地应用。变速器的各参数对汽车动力性和燃油经济性及排放性，舒适性有直接的影响。一台好的发动机配上一台性能差的变速器就不能充分发挥发动机应有的性能。因此,如何合理选择变速器的参数就显得至关重要。

汽车的车速和扭矩与变速器的传动比直接相关，所以传动比的选择关系到汽车的动力性和燃油经济性的好坏。变速器用来改变发动机传到驱动轮上的转矩和转速，目的是在原地起步、爬坡、转弯、加速等各种形式工况下，是汽车获得不同的牵引力和速度，同时使发动机在最有利的工况范围内工作。而不同功能的汽车所侧重的性能不同为此所要求的变速器各异。基于汽车匹配的变速器才能使汽车的各项性能得到最完美的结合。本次设计是基于轻型货车匹配的四挡变速器的设计，首先根据汽车设计课本第四章进行一系列的参数确定，然后用CAD图将四挡变速器的传动方案表现出来，再利用VB程序进行仿真以校正设计参数，最后进行汽车的动力性计算。

本次课题研究的主要内容是：

   1、变速器结构形式的选择和设计计算

         a、变变速器基本参数的确定

         b、速器结构分析与型式的选择

         c、齿轮参数的确定

   2、采用VB程序语言进行整车动力性程序设计

   3、整车动力性计算

基于变速器的功用对变速器提出如下基本要求；

1）保证汽车有必要的动力性经济

2）设置空档，用来切断发动机动力向驱动轮的运输

3）设置空档，是汽车能倒退行驶

4）设置动力输出装置，需要时能进行功率输出

5）换挡迅速、省力、方便

6）工作可靠，汽车行驶过程中变速器不得有跳挡、乱挡及换挡冲击等现象发生

7）变速器的工作噪声低

    此外，还要满足汽车必要的动力性和经济性指标，这与变速器的挡数、传动比范围和各挡传动比有关。汽车工作的道路条件越复杂、比功率越小，变速器的传动比范围越大。

                         1总述

1.1设计题目：基于整车匹配的变速器总体设计及整车动力性计算

1.2设计资料

1.2.1汽油发动机外特性拟合公式：

   式中，为发动机转矩，为发动机转速。

   发动机最低转速,   最高转速

1.2.2轻货车的有关数据：

    装载质量          2000kg        整车装备质量     1800kg

    总质量            3800kg        车轮半径         0.367m

    传动系机械效率         空气阻力系数迎风面积=2.77m²

    滚动阻力系数    

    飞轮转动惯量     

    两前轮的转动惯量四后轮的转动惯量

    主减速器传动比           轴距         

    质心至前轴距离（满载）质心高      0.9m  

    变速器的档位为四档  

1.3课题分析    

本次变速器的设计，通过变速器设计的总体要求，设计变速器的整体结构形式以及其总体尺寸，确定变速器档位以及各档传动比各项参数，最后，确定各档位齿轮的齿数、变位系数以及螺旋角等相关参数。并针对整车匹配计算车辆的动力性参数——汽车的最高车速、汽车的最大爬坡度和汽车的最大加速度。

变速器用于转变发动机曲轴的转矩及转速，以适应汽车在起步、加速、行驶以及克服各种道路障碍等不同行驶条件下对驱动车轮牵引力及车速的不同要求的需要。

变速器使汽车能以非常低的稳定车速行驶，而这种低的车速只靠内燃机的最低稳定转速是难以达到的。变速器的得倒档使汽车可以倒退行驶；其空挡使汽车在启动发动机、停车和滑行时能长时间将发动机与传动系分离。

此次课程设计，要完成四档轻型货车变速器设计。通过考虑最大爬坡度，地面附着条件确定变速器的最大传动比。同时，轻型货车需要有较高的动力性能，故需设置直接挡以传递发动机的最大动力。由此，确定变速器的传动比。同时通过变速器的设计要求，以及车辆本身的特殊使用条件，选用合适的变速器的结构形式。根据设计任务书的要求，确定变速器中心距，及各挡齿轮传动比，齿轮变位系数。再通过ＶＢ编写程序仿真以实现基于整车匹配性的动力性计算，以验证设计是否符合汽车的动力性要求。

2变速器结构形式的选择和设计计算

2.1变速器结构分析与型式的选择

2.1.1变速器传动机构前进挡布置方案的分析

基于本次课题车辆形式的及任务书的要求，变速器只能选用有级变速器。并且，机械式变速器结构简单、传动效率高、制造成本低和工作可靠，因此，采用机械式变速器。

机械式变速器中常用的为固定轴式变速器。而在固定轴式变速器中，两轴式变速器和中间轴式变速器又是在汽车中广泛采用的形式。

由于两轴式变速器不能设置直接档，当其在高档工作时齿轮和轴承均承受载荷，工作噪声大，易损坏。而且受结构，两轴式变速器的一档速比不可能设计得很大。对于前进挡，两轴式变速器输入轴的转动方向与输出轴的转动方向相反；而中间轴式变速器的第一轴与输出轴的转动方向相同。

中间轴式变速器多用于发动机前置后轮驱动的汽车和发动机后置后轮驱动的客车上。其可设置直接档，使用直接档，变速器的齿轮和轴承及中间轴均不承载，发动机的转矩经变速器的第一轴和第二轴直接输出，此时变速器的传动效率高。噪声低、齿轮和轴承的磨损减少，提高了变速器的使用寿命。

通过以上两种变速器的比较与设计车辆的种类分析及本次设计任务书要求，此次选用中间轴式变速器。

本次设计的驱动形式是:发动机前置，后轮驱动。

发动机的位置是：前置后驱，纵置。

2.1.2  变速器传动机构倒挡布置方案的分析

通过图2-1中，各倒档布置方案的比较，选用e）方案，将中间轴上的一、倒档齿轮做成一体，将其齿宽加长。此能充分利用空间，缩短了变速器轴向长度，相比较而言，轻型货车中也常采用此种布置方式。故本课程设计采用此方案。

图2-1倒档布置方案

2.2 变速器基本参数的确定

2.2.1 变速器的档位数和传动比

不同类型汽车的变速器，其档位数也不尽相同。增加变速器的档数，能够改善汽车的动力性和燃油经济性以及平均车速。但档数的增多，使得变速器的机构复杂，并使轮廓尺寸和质量加大，同时操纵机构变复杂，而且在使用时换挡频率增高并增加了换挡难度。

根据设计任务书的要求此次尝试设计四挡轻型货车的变速器，即此次设计的变速器为四挡轻型汽车的变速器。

确定档位后，根据汽车最大爬坡度、汽车驱动车轮与路面的附着力、汽车的最低稳定车速以及主减速比和驱动车轮的滚动半径来确定最低档传动比。

根据柴油发动机外特性拟合公式：

       求导确定出当转速为n=2262r/min时，发动机达到最大转矩175N.M。发动机达到最大转速汽车爬陡坡时车速不高，空气阻力可以忽略，则最大驱动力用于克服轮胎与路面间的滚动阻力及爬坡阻力。

则由最大爬坡度要求的变速器I档的传动比为

汽车总质量

滚动阻力系数

发动机最大转矩

主减速比

汽车传动系的传动效率

最大爬坡度

根据驱动车轮与路面的附着条件

路面附着系数

a--满载下质心距前轴距离

L--轴距

r--车轮半径

G--总质量

求得的变速器I档的传动比为ig18.15                                            由两条件确定的变速器I档传动比范围，结合货车常用变速器传动比的范围，选择本次设计该变速器I档传动比为5.0。

变速器I档传动比根据据上述条件确定好。考虑到此次设计档位数为四档，因此   不设超速档。设定变速器的最高档为直接档，其余中间档的传动比大致按等比级数排列，然后根据各档的使用频率调节传动比，如此便于换挡操作，则等比级数为：

由此确定中间各档传动分别为

2.2.2 中心距A的确定

初选中心距A时，根据下述经验公式计算

变速器中心距

中心距系数

发动机最大转矩

变速器一档传动比 

    变速器传动效率

代入公式得：A=84.9mm。圆整为：A=85mm。

2.2.3 外形尺寸的确定

变速器的横向外形尺寸，可根据齿轮直径以及倒档中间（过渡）齿轮和换挡机构的布置进行确定。影响变速器壳体的轴向尺寸因素有档数，换挡机构形式以及齿轮形式。

货车变速器壳体的轴向尺寸可参考下列数据选用：

四档             （2.2-2.7）A

五档             （2.7-3.0）A

六档             （3.2-3.5）A

该车为四档货车，系数选用2.5，故该车变速器的轴向尺寸L=2.585mm=212.5mm。

2.3 齿轮参数的确定

2.3.1 齿轮模数

齿轮模数由齿轮的弯曲疲劳强度或最大载荷作用下的静强度所决定。而其选用的原则是：在中心距相同的条件下，选用较小的模数，就可以增加齿轮的齿数。从货车的角度出发，减小质量比减小噪声更为重要，因此，齿轮应选用大些的模数。

变速器用齿轮模数的范围见表2-1。

              表2-1 汽车变速器齿轮的法向模数mn

       表2-2 汽车变速器常用的齿轮模数（GB/T1357-1987）                        （mm）

根据上述条件，该车变速器的齿轮模数选为mn=3.00mm

2.3.2 齿形、压力角与螺旋角

汽车变速器齿轮的齿形、压力角及螺旋角按表2-3选取，但有些轻、中型货车的高档齿轮也采用小压力角。

表2-3 汽车变速器齿轮的齿形、压力角及螺旋角

         项  目

2.3.3 齿宽

齿宽的选择既要考虑变速器的质量小，轴向尺寸紧凑，又要保证轮齿的强度及工作平稳性的要求。通常是根据齿轮模数来确定齿宽b：

其中，，齿宽系数直齿轮，斜齿轮

故，该变速器所选用的斜齿齿轮齿宽为：

同步器和啮合套的接合齿的工作宽度初选采用3mm

2.3.4 齿顶高系数

一般齿轮的齿顶高系数，为一般汽车变速器车齿轮所采用。故该设计中，变速器齿轮齿顶高系数采用

2.3.5 各档齿轮齿数的分配

在初选了变速器的档位数、传动比、中心距、轴向尺寸及齿轮模数和螺旋角并绘出变速器的结构简图后，即可对各挡齿轮的齿数进行分配。             

2.3.5.1确定Ⅰ档齿轮的齿数                           

   已知Ⅰ档传动比，且

如果的齿数确定，则可求出的传动比。

为了确定齿数，先求其齿数和Zh：确定齿轮7、8为螺旋角度为20度的斜齿轮，首先计算。

根据齿数分配原则。以及避免齿轮根切的原则分配根据第二轴轴径和货车Z8的选取范围，确定在12~17之间，此处选取13。

     得  取  , 

计算    求得：。

（2）修正中心距

    得 

由         得                                                                                  

（3）对一档齿轮进行变位

小齿轮变位：。

大齿轮变位：。                

2.3.5.2确定常啮合传动齿轮副的齿数

（1）1、2常啮合齿轮选用螺旋角为20°的斜齿轮，

  由       得            

      得 

 得       

圆整为：，。

（2）修正中心距

（3）齿轮变位

小齿轮变位为：，大齿轮无需变位。

（4）一档实际传动比计算

2.3.5.3确定其他档位的齿轮齿数

（1）确定挡齿轮的齿数

对Ⅱ档齿轮副5、6齿轮选用螺旋角为20度的斜齿轮，且模数与Ⅰ档相同，则有

 由  （1）       得       

        得

             得（2）

               由（1）（2）得  圆整为

                          圆整为

                       得        

验证：

    将，带入上式，得： 

将带入下式。

再次验算得：   。

确定螺旋角后计算二档齿轮的变位系数

    小齿轮的变位系数为0.060，大齿轮的变位系数为0.018。

二档实际传动比

（2）确定三挡齿轮齿数

  重复二挡齿轮的计算过程，得。

  得：  ， ， 。

确定螺旋角后计算三档齿轮变位系数                                                                                                

   。

   。

小齿轮变位系数为：-0.12。

大齿轮变位系数为：-0.052。

计算三档实际传动比

（3）确定倒档齿轮副的齿数

通常Ⅰ档与倒档选用同一模数，且确定倒档齿轮12的齿数，计算中间轴与倒档轴的中心距:                                         

为保证倒档齿轮的啮合不产生运动干涉，则齿轮9、8之间应保持0.5mm以上的间隙，则齿轮9的齿顶圆直径应为

解，得:。

将,带入上式

得： 

倒档轴与第二轴之间的中心距为

。

。

  3采用VB程序语言进行整车动力性程序设计

3.1 设计基于整车匹配的动力性计算软件系统流程图

编制VB程序：用For循环嵌套，小循环用来绘制每一档驱动力曲线，大循环用来控制档位变换。

                    图3-1 VB程序流程图

3.2 编制程序软件，绘制汽车动力性曲线

3.3 对动力性曲线的分析

3.3.1 驱动力--行驶阻力平衡图

图3-1变速器汽车的驱动力-行驶阻力平衡图

通常将汽车行驶方程式用图解的方法来进行分析。图3-1为一变速器汽车的驱动力-  行驶阻力平衡图。图上既有各档的驱动力图, 又有滚动阻力和空气阻力叠加后得到的行驶阻力曲线。从图中可以清楚地看出不同车速时驱动力与行驶阻力之间的关系。当坡度为零时, 行驶阻力曲线与驱动力曲线的交点即为最高车速uαmax ，本次设计的最高车速在93左右。

3.3.2 汽车功率平衡图

汽车行驶时,发动机功率和汽车行驶时的阻力功率也是相互平衡的,即在汽车行驶的每一瞬间,发动机发出的功率始终等于机械传动和全部运动阻力功率。本课程设计汽车功率平衡用图解法表示。它可根据发动机外特性将发动机转速换算成车速,绘出发动机功率Pe 和汽车经常遇到的阻力功率。        图3-2  汽车功率平衡图

1/ηt ( Pf + Pw) 与车速的关系曲线,即为汽车功率平衡图。如同驱动力- 行驶阻力平衡图分析一样,最高档行驶阻力功率与发动机功率相交点处的车速即是在良好水平路面上汽车行驶的最高车速uαmax 。当汽车在良好水平路面上以ua′的车速等速行驶时,汽车的阻力功率为( Pf + Pw)/ ηt = bc,但是发动机在汽车行驶速度为ua′时, 若节气门全开能够发出的功率为Pe = ac,则　Pe -  ( Pf + Pw) /ηt = ac- bc= ab可用来加速或爬坡。Pe -( Pf + Pw)/ ηt 为汽车的后备功率。可见,汽车的后备功率越大,其动力性就越好。

3.3.3 汽车爬坡度曲线

                图3-3  爬坡度曲线

利用图3-3可求出汽车能爬上的坡道角，相应的根据tanα=i可求出坡度值。其中，汽车最大爬坡度imax为I挡时的最大爬坡度。本次设计汽车的最大爬坡度为。

3.3.4 汽车加速度曲线

汽车的加速能力可用它在水平良好路面上行驶时能产生的加速度来评价，但由于加速度的数值不易测量，实际中常用加速时间来表明汽车的加速能力。譬如用直接当行驶时，由最低稳定速度加速到一定距离或80%umax所需的时间表明汽车的加速能力。由图可以看出，高挡位时的加速度要小一些。I挡的加速度最大。根据加速度曲线可以进一步求出由某一车速加速到另一车速所需的时间。

3-4汽车加速度倒数曲线

3.3.4汽车的外特性曲线

                         3-5汽车的外特性曲线图

如果发动机节气门全开（或高压油泵在最大供油量位置）则此特性曲线称为发动机外特性曲线。

3.3.5汽车的功率因数平衡图

3-6汽车的功率因数平衡图

3.4 编译VB程序

根据汽车动力性方程编写VB程序，画出汽车整车驱动力—阻力平衡图、汽车功率平衡图、汽车功率因数平衡图、汽车爬坡度曲线图、汽车加速度倒数曲线图和汽车发动机外特性曲线图。

主要vb程序如下：

Private Sub Command1_Click()

Picture1.DrawWidth = 1

Picture1.Cls

Dim i, j, n As Integer

Dim Ft, ff, Fw, Ua, Umax, Uamax, Tq, X(1 To 5) As Single

Picture1.Scale (-20, 16000)-(170, -1500)

Picture1.Line (0, 0)-(130, 0): Picture1.Line (0, 0)-(0, 15000)

Picture1.CurrentX = 130: Picture1.CurrentY = -900: Picture1.Print "Ua/(km/h)"

For j = 1 To 4

 X(1) = 5.2: X(2) = 2.67: X(3) = 1.59: X(4) = 0.9

If Ft >= Fw + ff Then

Umax = Ua

Else

Umax = Umax

End If

Next j

Next n

End Sub

（具体VB程序见附录）

   4 整车动力性计算

4.1汽车的行驶方程式

           （4-1）

（1）驱动力：     （4-2）

（2）滚动阻力：  （4-3）

（3）坡道阻力：    （4-4）

（4）空气阻力：（4-5）

汽车的空气阻力与车速的平方成正比，即式中 

       ——空气阻力系数

       ——迎风面积

（5）加速阻力： 

       （4-6）

 本次计算应用到的的数据：

    总质量3800kg， 车轮半径 0.367m

    传动系机械效率         空气阻力系数迎风面积=2.77m²

    滚动阻力系数    

    飞轮转动惯量     

    两前轮的转动惯量四后轮的转动惯量

    主减速器传动比           轴距         

    质心至前轴距离（满载）质心高      0.9m  

4.2动力性评价指标的计算

4.2.1最高车速

汽车在最高车速时，此时的驱动力和行驶阻力相等，汽车处于平衡状态。按汽车最高车速的定义，有α=0，j=0，即最高车速时忽略坡度阻力和加速阻力。带入公式（4—9）可得： 最后求的最大速度93

4.2.2最大爬坡度

汽车以最低档稳定速度爬坡所能达到的最大爬坡度称为汽车的最大爬坡度。计算汽车的最大爬坡度时忽略汽车的加速阻力。并采用近似等于汽车的爬坡阻力，即即，由式（4—9）可得      =0  

由此可得，汽车的最大坡度为。得

4.2.3最大加速度

汽车的加速能力是用它在水平路面上行驶时能产生的加速度来评价的，汽车的最大加速度的产生通常实在一挡时产生 ，因此此时的坡道阻力。由汽车行驶方程式得将已知数据代入公式得

5设计小结

    一学期的汽车设计课已经结束，通过此次课程的学习，使我更加扎实的掌握了有关汽车设计方面的知识，学习的过程中虽然遇到了一些问题，但经过一次又一次的思考与询问老师，终于找出了原因所在，也暴露出了前期我在这方面的知识欠缺和经验不足。实践出真知，通过亲自动手制作课程设计，使我们掌握的知识不再是纸上谈兵。过而能改，善莫大焉。在课程学习过程中，我们不断发现错误，不断改正，不断领悟，不断获取。下面我总结一下本次变速器设计的整体思路：

     本次课程设计，要完成四档轻型货车变速器设计。第一步通过考虑最大爬坡度，地面附着条件确定变速器的最大传动比。同时，轻型货车需要有较高的动力性能，故需设置直接挡以传递发动机的最大动力。得到最大最小传动比后各个挡位大致按照等比级数且综合车辆特点及各挡位使用频率分配。第二步根据设计任务书的要求、所给参数及查阅资料确定中心距及变速器的一系列外形参数。第三步根据传动比的特点及轴向力平衡中心距相等的特点确定变速器各挡齿轮的齿数，螺旋角及变位系数。第四步根据选择的倒档方案得到倒档的一系列参数。最后根据传动比编译VB程序对所设计的变速器进行汽车的驱动力-行驶阻力平衡图、汽车功率平衡图、汽车加速度倒数曲线、汽车的外特性曲线、汽车的功率因数平衡图、汽车爬坡度曲线仿真演绎，最终发现所设计的变速器符合要求。说明书撰写，完成本次课程设计。

                     谢 辞

    在这个炎热的夏天我们迎来了我们大三学期最后一次课程设计--汽车设计课程设计。话说这次课程设计可真不简单，呵呵。不过我从本次课程设计中学到了很多实际的知识。感谢学校为我们提供一次如此好的机会让我们能够真正亲身体会到与专业密切相关的设计。感谢吴老师和孔老师在酷暑中依然坚持陪伴我们更为我们指点迷津、耐心讲解。感谢本次课程设计专程为我们腾出教室的逸夫302的考研学子们。最后感谢本次课程设计给予我帮助的所有同学及朋友。

参考文献

[1]王望予主编.汽车设计[M].北京：机械工业出版社，2003

[2]刘惟信.汽车设计[M].北京：清华大学出版社，2001

[3]陈家瑞主编.汽车构造[M].北京：机械工业出版社,2000

[4]余志生主编.汽车理论[M].北京：机械工业出版社,2000

[5]徐达，蒋崇贤.专用汽车结构与设计[M].北京北京理工大学出版社,1999

附 录

具体VB程序：

Private Sub Command1_Click()

Picture1.DrawWidth = 1

Picture1.Cls

Dim i, j, n As Integer

Dim Ft, ff, Fw, Ua, Umax, Uamax, Tq, X(1 To 5) As Single

Picture1.Scale (-20, 16000)-(170, -1500)

Picture1.Line (0, 0)-(130, 0): Picture1.Line (0, 0)-(0, 15000)

Picture1.CurrentX = 130: Picture1.CurrentY = -900: Picture1.Print "Ua/(km/h)"

Picture1.CurrentX = 130: Picture1.CurrentY = 250: Picture1.Print "→"

Picture1.CurrentX = 8: Picture1.CurrentY = 15000: Picture1.Print "F/N"

Picture1.CurrentX = -8: Picture1.CurrentY = 0: Picture1.Print "0"

Picture1.CurrentX = -1.5: Picture1.CurrentY = 15000: Picture1.Print "↑"

For i = 10 To 120 Step 10

Picture1.Line (i, 0)-(i, 150)

Picture1.CurrentX = i - 2: Picture1.CurrentY = -5: Picture1.Print i

Next i

For i = 1500 To 13500 Step 1500

Picture1.Line (0, i)-(1.5, i)

Picture1.CurrentX = -12: Picture1.CurrentY = i + 200: Picture1.Print i

Next i

Picture1.DrawWidth = 2

For n = 600 To 4500

  Tq = -19.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) ^ 2 + 40.874 * (n / 1000) ^ 3 - 3.8445 * (n / 1000) ^ 4

For j = 1 To 4

 X(1) = 5.2: X(2) = 2.67: X(3) = 1.59: X(4) = 0.9

Ft = Tq * 4.77 * 0.85 * X(j) / 0.367

ff = 0.013 * 9.8 * 3800

Ua = 0.377 * 0.367 * n / (5.83 * X(j))

Fw = 2.77 * (Ua) ^ 2 / 21.15

Picture1.PSet (Ua, Ft), QBColor(j)

Picture1.PSet (Ua, (ff + Fw)), vbRed

If Ft >= Fw + ff Then

Umax = Ua

Else

Umax = Umax

End If

Next j

Next n

End Sub

Private Sub Command3_Click()

Picture1.DrawWidth = 1

Picture1.Cls

Dim i, j, n As Integer

Dim δ, pe, pf, pw, pa, Ua, Uamax, Tq, X(1 To 8) As Single

Dim Ft!, Fw!, ff!

Picture1.Scale (-20, 10000)-(160, -1000)

Picture1.Line (0, 0)-(140, 0): Picture1.Line (0, 0)-(0, 9000)

Picture1.CurrentX = 140: Picture1.CurrentY = 1: Picture1.Print "Ua(km/h)"

Picture1.CurrentX = 140: Picture1.CurrentY = 180: Picture1.Print "→"

Picture1.CurrentX = 3: Picture1.CurrentY = 9000: Picture1.Print "pe/kw"

Picture1.CurrentX = -1.2: Picture1.CurrentY = 9000: Picture1.Print "↑"

For i = 10 To 140 Step 10

Picture1.Line (i, 0)-(i, 150)

Picture1.CurrentX = i - 2: Picture1.CurrentY = -5: Picture1.Print i

Next i

For i = 0 To 8500 Step 500

Picture1.Line (0, i)-(1.5, i)

Picture1.CurrentX = -8: Picture1.CurrentY = i + 200: Picture1.Print i / 1000

Next i

Picture1.DrawWidth = 2

For j = 1 To 4

   For n = 600 To 4500 Step 1

   Tq = -19.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) ^ 2 + 40.874 * (n / 1000) ^ 3 - 3.8445 * (n / 1000) ^ 4

   X(1) = 6.08: X(2) = 2.9: X(3) = 1.63: X(4) = 0.92

    Ua = 0.377 * 0.367 * n / (5.83 * X(j))

    pe = Tq * n / 9550

    pf = 1 / 0.85 * (3800 * 9.8 * Ua / 3600)

     pw = 1 / 0.85 * 2.77 * Ua ^ 3 / 76140

   Picture1.PSet (Ua, (150 * pe - 1 / 0.85 * (pf + pw))), QBColor(j)

   Next n

Next j

End Sub

Private Sub Command2_Click()

Picture1.DrawWidth = 1

Picture1.Cls

Dim i, j, n As Integer

Dim δ, pe, pf, pw, pa, Ua, Uamax, Tq, X(1 To 5) As Single

Dim Ft!, Fw!, ff!

Picture1.Scale (-20, 8000)-(140, -1000)

Picture1.Line (0, 0)-(120, 0): Picture1.Line (0, 0)-(0, 7500)

Picture1.CurrentX = 120: Picture1.CurrentY = 1: Picture1.Print "Ua(km/h)"

Picture1.CurrentX = 120: Picture1.CurrentY = 130: Picture1.Print "→"

Picture1.CurrentX = 5: Picture1.CurrentY = 7500: Picture1.Print "pe/kw"

Picture1.CurrentX = -1.1: Picture1.CurrentY = 7500: Picture1.Print "↑"

For i = 10 To 110 Step 10

Picture1.Line (i, 0)-(i, 150)

Picture1.CurrentX = i - 2: Picture1.CurrentY = -5: Picture1.Print i

Next i

For i = 0 To 8500 Step 5000

Picture1.Line (0, i)-(1.5, i)

Picture1.CurrentX = -8: Picture1.CurrentY = i + 200: Picture1.Print i / 100

Next i

Picture1.DrawWidth = 2

For j = 1 To 4

   For n = 600 To 4500 Step 1

   Tq = -19.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) ^ 2 + 40.874 * (n / 1000) ^ 3 - 3.8445 * (n / 1000) ^ 4

   X(1) = 6.08: X(2) = 2.9: X(3) = 1.63: X(4) = 0.92

    Ua = 0.377 * 0.367 * n / (5.83 * X(j))

    pe = Tq * n / 9550

Picture1.PSet (Ua, 100 * pe), QBColor(j)

   Next n

Next j

  drawstly = 1

  DrawWidth = 3

    For Ua = 0 To 200 Step 0.01

     pf = (1 / 0.85) * (3800 * 9.8 * 0.013 * Ua / 3600 + 2.77 * Ua ^ 3 / 76140)

   Picture1.PSet (Ua, 100 * pf)

   Next Ua

End Sub

Private Sub Command4_Click()

Picture1.DrawWidth = 1

Picture1.Cls

Dim a!, Ft!, Fw!, ff!, δ!, U!

Dim i, j, n As Integer

Dim X(1 To 5) As Single

Picture1.Scale (-20, 15)-(140, -2)

Picture1.Line (0, 0)-(125, 0): Picture1.Line (0, 0)-(0, 14)

Picture1.CurrentX = 124: Picture1.CurrentY = -0.8: Picture1.Print "Ua/(km/h)"

Picture1.CurrentX = 125: Picture1.CurrentY = 0.22: Picture1.Print "→"

Picture1.CurrentX = 3: Picture1.CurrentY = 14: Picture1.Print "1/a"

Picture1.CurrentX = -1.1: Picture1.CurrentY = 14: Picture1.Print "↑"

Picture1.CurrentX = -3: Picture1.CurrentY = 0: Picture1.Print "0"

For i = 10 To 140 Step 10

Picture1.Line (i, 0)-(i, 0.4)

Picture1.CurrentX = i - 2: Picture1.CurrentY = -0.01: Picture1.Print i

Next i

Picture1.DrawWidth = 2

  For n = 600 To 4500 Step 1

   Tq = -19.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) ^ 2 + 40.874 * (n / 1000) ^ 3 - 3.8445 * (n / 1000) ^ 4

 For j = 1 To 4

    X(1) = 6.08: X(2) = 2.9: X(3) = 1.63: X(4) = 0.92

    U = 0.377 * 0.367 * n / (5.83 * X(j))

    Ft = Tq * 5.83 * 0.85 * X(j) / 0.367

    ff = 0.013 * 9.8 * 3800

    Fw = 2.77 * U ^ 2 / 21.15

    δ = 1.025 + 0.025 * X(j) ^ 2

    a = (Ft - (ff + Fw)) / 3800 / δ

Picture1.PSet (U, 1 / a), QBColor(j)

Next j

Next n

End Sub

Private Sub Command5_Click()

Picture1.DrawWidth = 1

Picture1.Cls

Dim Ft!, Fw!, ff!, α!, i!, j!, n!, Tt!, Ua!, D!, g!, f!

Dim X(1 To 5) As Single

Picture1.Scale (-10, 55)-(100, -5)

Picture1.Line (0, 0)-(95, 0): Picture1.Line (0, 0)-(0, 53)

Picture1.CurrentX = 91: Picture1.CurrentY = -2: Picture1.Print "Ua/(km/h)"

Picture1.CurrentX = 95: Picture1.CurrentY = 0.8: Picture1.Print "→"

Picture1.CurrentX = 120: Picture1.CurrentY = 0: Picture1.Print ""

Picture1.CurrentX = 2.5: Picture1.CurrentY = 53: Picture1.Print "i/(%)"

Picture1.CurrentX = -0.85: Picture1.CurrentY = 53: Picture1.Print "↑"

Picture1.CurrentX = -1: Picture1.CurrentY = -1: Picture1.Print "0"

For i = 10 To 90 Step 10

Picture1.Line (i, 0)-(i, 1.5)

Picture1.CurrentX = i - 2: Picture1.CurrentY = -1: Picture1.Print i

Next i

For i = 10 To 50 Step 10

Picture1.Line (0, i)-(1.5, i)

Picture1.CurrentX = -5: Picture1.CurrentY = i: Picture1.Print i

Next i

Picture1.DrawWidth = 2

   For n = 600 To 4500 Step 1

     Tt = -19.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) ^ 2 + 40.874 * (n / 1000) ^ 3 - 3.8445 * (n / 1000) ^ 4

 For j = 1 To 4

    X(1) = 6.08: X(2) = 2.9: X(3) = 1.63: X(4) = 0.92

      Ft = Tt * X(j) * 5.83 * 0.85 / 0.367

      Ua = 0.377 * n * 0.367 / 5.83 / X(j)

      Fw = 2.77 * Ua ^ 2 / 21.15

      ff = 38000 * 0.013

      D = (Ft - (ff + Fw)) / 3800 / 9.8

      g = (1 - D ^ 2) ^ 0.5

      f = D / g

      Picture1.PSet (Ua, 100 * f), QBColor(j)

     Next j

    Next n

End Sub

Private Sub Command6_Click()

Picture1.DrawWidth = 1

Picture1.Cls

Dim a!, Ft!, Fw!, ff!, δ!, U!, D!, f!, Q!, g!, w!

Dim i, j, n As Integer

Dim X(1 To 8) As Single

Picture1.Scale (-20, 40)-(140, -10)

Picture1.Line (0, -1)-(124, -1): Picture1.Line (0, -1)-(0, 34)

Picture1.CurrentX = 124: Picture1.CurrentY = -2: Picture1.Print "Ua(km/h)"

Picture1.CurrentX = 124: Picture1.CurrentY = -0.3: Picture1.Print "→"

Picture1.CurrentX = -8: Picture1.CurrentY = 15: Picture1.Print "D"

Picture1.CurrentX = -1.1: Picture1.CurrentY = 34: Picture1.Print "↑"

For i = 10 To 140 Step 10

Picture1.Line (i, -1)-(i, -0.5)

Picture1.CurrentX = i - 2: Picture1.CurrentY = -3: Picture1.Print i

Next i

For i = -1 To 30 Step 5

Picture1.Line (0, i)-(1.5, i)

Picture1.CurrentX = -5: Picture1.CurrentY = i + 1: Picture1.Print (i + 1) / 50

Next i

Picture1.DrawWidth = 2

For j = 1 To 4

   For n = 600 To 4500 Step 1

   Tq = -19.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) ^ 2 + 40.874 * (n / 1000) ^ 3 - 3.8445 * (n / 1000) ^ 4

   X(1) = 6.08: X(2) = 2.9: X(3) = 1.63: X(4) = 0.92

    U = 0.377 * 0.367 * n / (5.83 * X(j))

    f = 0.0076 + 0.000056 * U

    Ft = Tq * 5.83 * 0.85 * X(j) / 0.367

    ff = 0.013 * 9.8 * 3800

    Fw = 2.77 * U ^ 2 / 21.15

    δ = 1.025 ' + 0.025 * X(j) ^ 2

    a = (Ft - (ff + Fw)) / 3800 / δ

    D = (Ft - (ff + Fw)) / 3800 / 9.8

    g = (1 - D ^ 2) ^ 0.5

    Q = D / g

    w = a / 10 + f + Q

Picture1.PSet (U, w * 50), QBColor(j)

Next n

Next j

End Sub下载本文