西华大学-汽车设计实验指导书

合集下载

西华大学 2008-0309编写汽车液压与气压传动实验指导书

西华大学 2008-0309编写汽车液压与气压传动实验指导书

交通与汽车工程学院《汽车液压与气压传动》实验指导书适用专业:汽车服务工程课程代码: 8234520学时: 6 学分:编写单位:汽车工程系编写人:吴涛审核人:徐延海审批人:孙仁云目录实验一齿轮泵拆装实验 (2)实验二叶片泵拆装实验 (4)实验三气压缸拆装实验 (7)实验四自卸汽车举升机构演示实验 (9)实验五装载机装卸机构演示实验 (12)主要参考文献 (16)实验一齿轮泵拆装实验一、实验目的和任务液压元件是液压系统的重要组成部分,通过对齿轮泵的拆装,可加深对齿轮泵结构及工作原理的了解。

二、实验仪器、设备及材料1、拆装:齿轮泵。

2、内六角扳手、固定扳手、螺丝刀、游标卡尺。

三、实验原理及步骤实验原理:齿轮泵为液压系统中的常见动力元件,其工作原理是靠齿轮的轮齿间的容积变化工作的。

了解齿轮泵的困油问题并从结构上加以分析解决的措施,通过实物分析齿轮泵的工作三要素(三个必须的条件)。

认识齿轮泵的铭牌、型号等内容。

掌握齿轮泵和马达的职能符号(定量、动量、单向、双向)及选型要求等。

掌握拆装油泵和马达的方法和拆装要点。

拆卸及装配步骤:1)松开6个紧固螺钉,分开端盖1和4;从泵体3(图1—1)中取出主动齿轮及轴、从动齿轮及轴;2)分解端盖与轴承、齿轮与轴、端盖与油封。

装配顺序与拆卸相反。

四、实验注意事项1、注意拆装的顺序;2、注意拆装中主要使用的工具的使用;3、注意在装配后根据其工作原理判断装配的正确性。

五、思考题1、画出齿轮油泵工作原理简图,说明其主要结构组成及工作原理?2、齿轮泵的卸荷槽的作用是什么?3、液压泵的密封工作区是指哪一部分?4、分析影响齿轮泵正常工作及容积效率的因素,了解易产生故障的部件并分析其原因。

六、齿轮泵结构CB-B型齿轮泵,结构图见图1—1图1-1主要零件分析:1)泵体3 泵体的两端面开有封油槽,此槽与吸油口相通,用来防止泵内油液从泵体与泵盖接合面外泄,泵体与齿顶圆的径向间隙为0.13~0.16mm。

汽车设计原理作业指导书

汽车设计原理作业指导书

汽车设计原理作业指导书一、引言汽车设计原理是汽车工程专业中的重要课程之一,本指导书旨在帮助学生理解汽车设计原理的基本概念、原理及应用,并提供针对作业的指导和建议。

本指导书将分为五个部分,分别是:1)汽车设计原理基础知识;2)整车设计原理;3)车身设计原理;4)发动机设计原理;5)总结与展望。

二、汽车设计原理基础知识在开始学习汽车设计原理之前,有一些基础的知识是必须要了解的。

这些知识包括汽车的基本组成部分,例如发动机、变速箱、底盘、车身等,以及汽车的基本工作原理,例如燃烧原理、传动原理等。

学生们首先需要了解汽车的整体结构和各个部件的功能,为深入学习汽车设计原理打下基础。

三、整车设计原理整车设计原理是汽车设计中最基础也是最重要的一部分。

它包括整车的结构设计、动力系统设计和底盘系统设计等内容。

在这一部分,学生们需要了解汽车的设计流程、设计步骤和设计方法,以及各个设计环节中的考虑因素和技术要求。

此外,还需要学习汽车的性能指标和评价方法,如悬挂系统的调校、扭矩分配的计算等。

通过学习整车设计原理,学生们能够掌握汽车设计的基本流程和技巧,为后续的专业课程打下坚实的基础。

四、车身设计原理车身设计原理是汽车设计中的重要内容之一,它包括车身结构设计、空气动力学设计和安全设计等方面。

在这一部分,学生们需要了解不同类型车身的设计原理和特点,以及车身与整车其他部分的协调关系。

同时,还需要学习车身的气动优化设计方法和安全设计原则,以提高车辆的性能和安全性。

此外,还需要了解车身结构的材料选择和加工工艺,以及车身设计的审美要求和市场需求。

通过学习车身设计原理,学生们能够深入了解车身设计的要求和技术,为未来的实践工作做好准备。

五、发动机设计原理发动机是汽车的心脏,发动机设计原理是汽车设计中至关重要的一部分。

在这一部分,学生们将学习发动机的基本工作原理、排气系统的设计原理、燃烧室的设计原理等内容。

此外,还需要了解不同类型发动机的特点和应用领域,并学习发动机参数计算和匹配技术。

汽车平顺性试验

汽车平顺性试验

汽车性能道路试验指导书 试验八 汽车平顺性试验
编制 巢凯年 廖文俊
改编 李平飞 徐延海
西华大学交通与汽车工程学院
一、目的
掌握汽车行驶平顺性实验仪器性能与实验方法。

二、实验设备与框图
加速度传感器,电荷放大器,抗频混低通滤波器(如果电荷放大器本身有滤波功能可略去抗频混滤波器),综合测试系统,笔记本电脑,汽车。

三、实验步骤
1、按上图在汽车前轴或后轴上方在地板和座椅上分别安装一压电式角速度传感器及其它仪器。

2、一乘员坐在传感器木盒上,后背不能与座椅相靠。

3、汽车分别为40Km/h和50Km/h车速在柏油路上行驶。

待车速稳定后开始记录。

样本长度为3min。

4、参数要求
1)低通滤波器截止频率100HZ
2)采样间隔Δt=0.005s
3)分辨带宽Δf=0.1953HZ
4)独立样本个数q≥25
5)Hanning窗函数
四、实验报告要求
1、报告实验日期、地点、车型、仪器型号、悬架型式、乘员质量与乘坐姿势描述;
2、简述实验过程;
3、记下电脑计算的平顺性评价结果:
各车速下各位置处的振动加速度均方根值、总加权均方根值、舒适降低界限、总加权振级〔用分贝(dB )表示〕; wz p &&σCD T wz p L &&4、评价座椅上振动的舒适程度(参考《汽车理论》)。

汽车性能道路试验指导书-西华大学

汽车性能道路试验指导书-西华大学

汽车性能道路试验指导书 试验四 汽车噪声试验编制 巢凯年 廖文俊改编 李平飞 徐延海西华大学交通与汽车工程学院一、目的学习掌握汽车噪声的测量方法,了解其试验条件。

了解各仪器设备的主要结构,工作原理和使用方法。

二、试验条件空载,测试场地应平坦空旷,距测试中心25m的范围内,不得有大的反射物,本底噪声应比所测车辆噪声至少低10dB(A)。

三、试验仪器汽车性能综合测试系统或AM2026A型非接触式五轮仪或CTM-3A五轮仪以及ND10声级计。

四、试验内容1、车外噪声测量试验步骤声级计位置7.5m行驶中心线7.5m10m 10m始端线声级计位置始端线A .加速噪声测量在进入测试区前,汽车以2档(有五个或五个以上前进档的用3档)最高车速的75%匀速行驶,进入测试区始端,迅速将油门踏板踩到底,直至通过20m 测试区,声级计离汽车纵向中心7.5m ,离地面高1.2m ,位于测试区中间,读取其最大读数(用A 计权网络,快档),其左右侧噪声各测量两次。

B .匀速噪声测量汽车以50km/h 车速行驶,直至通过20m 测试区,声级计离汽车行驶中心7.5m ,离地面高1.2m ,位于测试区中间,读取其最大读数(用A 计权网络,快档),其左右侧噪声各测量两次。

2、车内噪声测量关闭车门窗及车内其它非必要声源,汽车以50km/h 以上车速匀速行驶,用声级计慢档分别测量A 、C 计权声级,取其最大读数。

试验往返各二次。

(货车只测量驾驶员耳旁噪声,客车还得测车箱中部和后部噪声。

)3、数据处理:取两次往返中噪声平均值最大为最后试验结果。

如同侧噪声差超过2分贝,视为无效,应重试。

噪声测试结果.试验项目 试 验 结 果(dB )平 均 值(dB )左/左 加速噪声 右/右左/左 匀速噪声 右/右计 权 A C A C 耳旁(1/2) 中部(1/2) 车内 噪声 后部(1/2)五、试验报告的编写试验报告包括以下几个内容:A.试验目的B.试验条件(包括试验地点,日期及气象,试验仪器及精度,试验参加人员等)C.试验步骤D.试验结果的整理和数据处理(如果数据的重复性较差,应进行误差分析)。

汽车设计实验指导书2014

汽车设计实验指导书2014

淮阴工学院汽车设计实验指导书交通工程系2012年1月3日实验整体式转向梯形参数优化设计一、实验目的:通过本实验的学习,使学生掌握汽车设计参数化的理念, 为学生今后从事汽车设计和改 装工作打下基础。

二、实验要求:在学习有关理论知识的基础上,用VB 计算机语言编制整体式汽车转向梯形机构的设计程序,该程序应能达到如下要求: 根据给定的转向梯形参数和形式, 形的梯形臂长和梯形底角。

三、实验内容转向梯形机构的设计 要求:用VB 编程求解 已知参数:汽车主销中心距K,轴距L :要求:从上述车型中任选一车型, 涉及整体式后置转向梯形, 了,画出实际特性曲线,他与理论特性曲线在 15〜250以内相交(的实际特性曲线尽量与理论特性曲线接近。

四、实验理论转向梯形机构用来保证转弯行驶时汽车的车轮均能绕同一瞬时转向中心在不同半径的 圆周上作无滑动的纯滚动。

为此,转向梯形应保证内、外转向车轮的理想转角关系。

因此, 在设计中首先是要确定转向梯形机构的几何尺寸参数,其次是进行零件的强度计算。

转向梯形机构由整体式的和分段式的两种。

整体式的用于非独立悬架的转向轮;分段式的用于独立悬架的转向轮。

通常是将转向梯形机构布置在前转向桥之后, 且高度不低于前桥 横梁或其他防按件;当布置在前桥之后有困难时.例如当发动机价置很低或汽车前驱动时, 也可以布置在前桥之前。

转向梯形有整体式和断开式两种,选择整体式或断开式转向梯形方案与悬架采用何种方案有联系。

无论采用哪一种方案,必须正确选择转向梯形参数,做到能通过程序给出转向梯车型 1 : K= 1420mm L= 3300mm 车型 2 : K= 1480mm L= 4000mm 车型 3 : K= 1575mm L= 4144mm 车型 4 : K= 1175mm L= 2700mm确定梯形臂长和梯形底角内轮共转40 0)在25 0以内汽车转弯时,保证全部车轮绕一个瞬时转向中心行驶, 使在不同圆周上运动的车轮, 作无滑动的纯滚动运动。

毕业实习报告(西华大学)

毕业实习报告(西华大学)

机械工程与自动化学院毕业实习总结报告专业: 产品设计行政班:学生姓名:学号:指导教师:起止时间: 至西华大学毕业实习报告一个原因是空气压缩机输出的高压空气具有一定的温度,而紫铜管的散热性能比较好.气压制动管路采用邦迪管时,应在-装配前弯曲成形.邦迪管路大多数通过管路接头相连,其最大的缺点是容易泄漏。

液压管路属于输油管路,目前大多数采用邦迪管。

在技术上要求管路能够承受一定的油压,同时在油压反反复复的作用下不发生膨胀.2.毕业实习进度安排表1 毕业实习的进度表日期计划安排要求3.21 弄清设计题目,明确设计目的、任务和要求。

归纳、分类、比较、详细地记录。

3。

21-4。

1 到四川省客车制造有限公司,参观考察学习。

作好笔记,认真体验和观察,在实际中,充实自己。

4.2-5.8 根据前面两个阶段的资料收集和实际情况,提出设计思路与方案。

全面总结,确定设计方向,得出初步方案.3.课题研究分析和设计思路3。

1客车制动系统设计原理方案分析→制动系统元件选择→制动性能分析→制动管路路线布置→安装→调试方案设计阶段针对产品的主要功能提出原理性的构思,探索解决问题的物理效应和工作原理.功能分析过程是设计人员初步酝酿功能原理设计总体方案的过程,这个过程往往不是一次完成的,而是随设计工作的逐步深入而不断修改、不断完善的。

如图1所示,用黑箱法描述的气压制动管路的总功能图1 制动功能黑箱图探求各功能元解并列出形态学矩阵综合表,如表2所示表2 客车制动系统的形态学矩阵综合表由此可知,可能组合的方案数N为 N = 2 × 2 × 3 × 2 = 24目前的状况都是采用手脚控制制动,且气压制动管路占主导地位,因为其制动力较大,而且高压气体是比较经济的制动能源,液压制动管路多用在轻型卡车与微型汽车上;市场上的客车储备介质大多用的是筒式,能更紧密地放置在底盘上.由此确定最佳原理方案:A1—B1-C2-D1,即采用筒式储气及弹簧制动缸的气压制动系统。

汽车设计实验指导书

汽车设计实验指导书

实验二快速成形技术一、实验目的1.了解快速成形制造技术的原理、特点及应用。

2.了解快速成形制造数据处理软件(Aurora)的使用方法。

3.了解三维打印机(快速成形系统)设备的操作方法和快速成形制造的工艺过程。

二、实验内容1.讲解快速成形制造的原理、特点和应用。

2.讲解快速成形制造数据处理软件(Aurora)使用方法。

3.演示快速成形制造设备操作方法。

4.学生学习快速成形制造数据处理软件(Aurora)。

5.学生操作设备,完成选择CAD实体模型的制作,得到实体零件。

三、实验设备1.硬件设备:三维打印机(快速成形系统PrintA)设备三台、微型计算机90台2.软件:快速成形制造数据处理软件(Aurora)。

四、实验方法和步骤1.教师讲解快速成形制造的工艺原理、特点和应用。

2.教师讲解快速成形制造数据处理软件(Aurora)的使用方法与参数设定。

3.演示快速成形制造设备操作方法。

4.学生学习快速成形制造数据处理软件(Aurora)。

5.学生操作设备,完成选择CAD实体模型的制作,得到实体零件。

五、实验注意事项由于快速成形设备价格昂贵,自动化程度高,操作中应避免设备损坏事故发生,对初学者要求如下:1.上机操作前应仔细阅读“快速成形安全操作规程”。

2.在操作或加工之前,必须请指导老师检查程序和设备状态。

3.操作或加工过程中,如遇到问题,应及时请教指导老师,切勿鲁莽行事。

4.实验过程中,不准擅动其他设备,不准离开机床。

5.实验结束后,应按要求清理设备和周围场地。

六、实验具体步骤1.实验样件的设计实验之前实验教师应使用三维实体设计软件设计实验样件(三维CAD模型),样件的输出格式为STL格式。

另有多个三维CAD模型文件作为学生备选模型,分别为:齿轮、象棋、花瓶等。

2.实验数据准备开机床总电源和计算机电源。

(1)系统初始化运行数据处理软件Aurora。

操作路径:文件>三维打印机>初始化,X、Y、Z轴回原点。

初始化完成,系统鸣笛报警,画面显示“初始化完成”,点击“确定”,完成初始化。

精编【汽车行业】西华大学汽车理论实验报告

精编【汽车行业】西华大学汽车理论实验报告

交通与汽车工程学院实验报告课程名称: 汽车理论A课程代码: 8244880年级/专业/班: 2009级车辆工程汽电4班学生姓名: 龙强学号: 312009********* 实验总成绩:任课教师: 吴涛开课学院: 交通与汽车工程学院实验中心名称: 汽车交通实验中心西华大学实验报告开课学院及实验室:实验时间:年月日2、实验设备、仪器及材料3、实验内容3.1 一般实验(非上机实验):3.1.1实验方案设计与选择(设计性、创新性实验需写该项内容)3.1.2实验原理及实验步骤(实验工作原理或实验的主要操作过程)3.1.3实验记录(核心代码及调试过程)3.2 上机实验:3.2.1上机实验的内容及要求3.2.2算法设计思想与算法实现步骤3.2.3程序核心代码,程序调试过程中出现的问题及解决方法3.2.4 程序运行的结果注解:理工科实验需记录实验过程中的数据、图表、计算、现象观察等,实验过程中出现的问题;其它如在计算机上进行的编程、仿真性或模拟性实验需记录程序核心代码以及程序在调式过程中出现的问题及解决方法;记录程序执行的结果。

4、实验总结4.1实验结果分析及问题讨论4.2实验总结心得体会注解:实验总结的内容根据不同学科和类型实验要求不一样,一般理工科类的实验需要对实验结果进行分析,并且对实验过程中问题进行讨论;在计算机上进行的编程、仿真性或模拟性实验需要对上机实践结果进行分析,上机的心得体会及改进意见。

其它实验应总结实验过程写出心得体会及改进意见。

说明:各门实验课程实验报告的格式及内容要求,请按照实验指导书的要求手工书写。

1.实验目的2.实验设备、仪器及材料3.实验内容3.1程序核心代码,程序调试过程中出现的问题及调试方法Option ExplicitDim n, x, cDim Tq, ig, δDim f, GDim m, i, CdA, rDim i0, Ua, Iw, if0Dim ηt, aDim Ft, Ff, FiDim Fx, Fw, FjPrivate Sub Command1_Click() '驱动力与阻力平衡图Picture1.ClsPicture1.Scale (-10, 15000)-(130, -700)Picture1.Line (-8, 0)-(150, 0): Picture1.Line (0, 15000)-(0, -500) '画坐标轴Picture1.Line (126, -200)-(130, 0) '画横轴箭头Picture1.Line (126, 200)-(130, 0)Picture1.Line (-2, 14700)-(0, 15000) '画纵轴箭头Picture1.Line (2, 14700)-(0, 15000)For i = 1 To 12 '画横坐标刻度线和刻度Picture1.Line (10 * i, 0)-(10 * i, 200)Picture1.CurrentX = 10 * i - 2: Picture1.CurrentY = -50: Picture1.Print 10 * i Next iFor i = 1 To 14 '画纵坐标刻度线和刻度Picture1.Line (0, 1000 * i)-(2, 1000 * i)Picture1.CurrentX = -8: Picture1.CurrentY = 1000 * i + 400: Picture1.Print 1 * i Next iPicture1.CurrentX = -5: Picture1.CurrentY = -50: Picture1.Print 0Picture1.CurrentX = 115: Picture1.CurrentY = 700: Picture1.Print "Ua(km/h)"Picture1.CurrentX = 5: Picture1.CurrentY = 14600: Picture1.Print "F(kN)"Picture1.CurrentX = 5: Picture1.CurrentY = 1000: Picture1.Print "Ff" Picture1.CurrentX = 120: Picture1.CurrentY = 3000: Picture1.Print "Ff+Fw"Dim ig(4) As Singleig(0) = Val(Text18)ig(1) = Val(Text19)ig(2) = Val(Text20)ig(3) = Val(Text21)ig(4) = Val(Text22)f = Val(Text6)m = Val(Text2)G = Val(Text3) * 9.8i = 0CdA = Val(Text7)r = Val(Text4)i0 = Val(Text8)Iw = Val(Text10) + Val(Text11)if0 = Val(Text9)ηt = Val(Text5)Ff = G * fFi = G * ia = 0For n = 600 To 4000For x = 0 To 4δ = 1 + (1 * Iw) / (m * r * r) + (1 * if0 * ig(x) * ig(x) * i0 * i0 * ηt) / (m * r * r)Ua = 0.377 * (r * n) / (ig(x) * i0)Fw = (CdA * Ua * Ua) / 21.15Tq = -19.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) ^ 2 + 40.874 * (n / 1000) ^ 3 - 3.8445 * (n / 1000) ^ 4Ft = (Tq * ig(x) * i0 * ηt) / rFj = δ * m * aPicture1.PSet (Ua, Ft), vbBluePicture1.PSet (Ua, Ff + Fw), vbRedPicture1.PSet (Ua, Ff), vbGreenIf Abs(Ff + Fw - Ft) < 1 Then Text26.T ext = Ua '求最高车速UamaxNext xNext nEnd SubPrivate Sub Command2_Click() '加速度曲线Picture1.ClsPicture1.Scale (-10, 5)-(130, -0.3)Picture1.Line (0, 0)-(180, 0): Picture1.Line (0, 0)-(0, 5)Picture1.Line (126, -0.03)-(130, 0) '画横轴箭头Picture1.Line (126, 0.03)-(130, 0)Picture1.Line (-1, 4.8)-(0, 5) '画纵轴箭头Picture1.Line (1, 4.8)-(0, 5)For i = 1 To 11Picture1.Line (10 * i, 0)-(10 * i, 0.05)Picture1.CurrentX = 10 * i - 3: Picture1.CurrentY = -0.05: Picture1.Print 10 * i Next iFor i = 1 To 9Picture1.Line (0, 0.5 * i)-(2, 0.5 * i)Picture1.CurrentX = -8: Picture1.CurrentY = 0.5 * i + 0.05: Picture1.Print 0.5 * i Next iPicture1.CurrentX = -3: Picture1.CurrentY = -0.03: Picture1.Print 0Picture1.CurrentX = 110: Picture1.CurrentY = 0.2: Picture1.Print "Ua(km/h))" Picture1.CurrentX = 3: Picture1.CurrentY = 4.8: Picture1.Print "a(m/s^2)"Dim ig(4) As Singleig(0) = Val(Text18)ig(1) = Val(Text19)ig(2) = Val(Text20)ig(3) = Val(Text21)ig(4) = Val(Text22)f = Val(Text6)m = Val(Text2)G = Val(Text3) * 9.8i = 0CdA = Val(Text7)r = Val(Text4)i0 = Val(Text8)Iw = Val(Text10) + Val(Text11)if0 = Val(Text9)ηt = Val(Text5)Ff = G * fFi = G * iFj = δ * m * aFor n = 600 To 4000For x = 0 To 4δ = 1 + (1 * Iw) / (m * r * r) + (1 * if0 * ig(x) * ig(x) * i0 * i0 * ηt) / (m * r * r)Ua = 0.377 * (r * n) / (ig(x) * i0)Fw = (CdA * Ua * Ua) / 21.15Tq = -19.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) ^ 2 + 40.874 * (n / 1000) ^ 3 - 3.8445 * (n / 1000) ^ 4Ft = (Tq * ig(x) * i0 * ηt) / ra = (Ft - Ff - Fw) / (δ * m)If a < 0 Then GoTo Label1 '不画加速度小于0的部分Picture1.PSet (Ua, a), vbBlueLabel1: Next xNext nEnd SubPrivate Sub Command3_Click() '加速度倒数曲线Picture1.ClsPicture1.Scale (-8, 5)-(130, -0.3)Picture1.Line (0, 0)-(130, 0)Picture1.Line (0, 0)-(0, 5)Picture1.Line (126, -0.03)-(130, 0) '画横轴箭头Picture1.Line (126, 0.03)-(130, 0)Picture1.Line (-1, 4.8)-(0, 5) '画纵轴箭头Picture1.Line (1, 4.8)-(0, 5)For i = 1 To 11Picture1.Line (10 * i, 0)-(10 * i, 0.05)Picture1.CurrentX = 10 * i - 3: Picture1.CurrentY = -0.05: Picture1.Print 10 * i Next iFor i = 1 To 9Picture1.Line (0, 0.5 * i)-(2, 0.5 * i)Picture1.CurrentX = -8: Picture1.CurrentY = 0.5 * i + 0.05: Picture1.Print 0.5 * i Next i。

西华大学实习报告

西华大学实习报告

一、实习概述在2023年的暑期,我有幸参加了西华大学机械工程学院组织的实习活动,地点位于湖北十堰。

此次实习为期两个月,让我深入了解了机械工程行业的实际工作环境,提升了专业技能,也让我对未来的职业生涯有了更清晰的认识。

二、实习单位及环境实习单位为湖北十堰某知名机械制造企业,该企业主要从事汽车零部件的研发、生产和销售。

实习期间,我主要在公司的研发部门工作,与同事们一起参与新产品的研发和现有产品的改进。

实习单位的环境整洁,设施齐全。

公司拥有现代化的生产线、先进的检测设备和完善的研发体系,为实习生提供了良好的学习和工作条件。

三、实习内容1. 产品研发- 参与新产品的研发项目,负责部分零件的设计和仿真分析。

- 与团队成员讨论设计方案,提出改进意见,确保产品性能满足要求。

- 跟进项目进度,及时调整设计,确保项目按期完成。

2. 生产过程- 参观生产车间,了解生产工艺流程。

- 与生产一线员工交流,了解生产过程中的问题和改进措施。

- 参与生产线的调试和优化,提高生产效率。

3. 质量管理- 学习质量管理知识,了解ISO9001质量管理体系。

- 参与产品质量检验,确保产品符合国家标准。

- 分析质量问题,提出改进措施,降低不良品率。

4. 团队协作- 参与团队会议,分享工作经验,共同解决工作中遇到的问题。

- 与同事建立良好的沟通和合作关系,共同推进项目进展。

四、实习收获1. 专业技能提升- 通过实际操作,掌握了CAD、CAE等设计软件的使用方法。

- 了解了机械制造工艺、质量管理体系等方面的知识。

2. 职业素养培养- 学会了如何与同事、上级和客户沟通,提高了人际交往能力。

- 培养了团队协作精神,学会了在团队中发挥自己的优势。

3. 实践经验积累- 通过参与实际项目,了解了机械工程行业的运作模式和发展趋势。

- 提升了问题解决能力,学会了如何在实际工作中分析问题、解决问题。

五、实习感悟1. 理论知识与实践相结合- 实习让我深刻体会到理论知识与实践相结合的重要性。

汽车实验学设计实验报告

汽车实验学设计实验报告

一、实验目的1. 了解汽车的基本结构和组成,掌握汽车主要部件的工作原理。

2. 培养学生的动手实践能力和创新意识。

3. 通过实验,提高学生对汽车工程技术的认识,为后续专业课程的学习打下基础。

二、实验内容1. 汽车发动机拆装实验(1)实验目的:熟悉汽车发动机的结构,了解发动机各部件的名称、功能及拆装方法。

(2)实验步骤:①观察发动机外观,了解发动机的基本结构;②按照拆卸顺序,依次拆卸发动机各部件;③记录各部件名称、功能及拆卸顺序;④按照装配顺序,依次装配发动机各部件;⑤检查发动机装配质量,确保各部件连接牢固。

2. 汽车底盘拆装实验(1)实验目的:熟悉汽车底盘结构,了解底盘各部件的名称、功能及拆装方法。

(2)实验步骤:①观察底盘外观,了解底盘的基本结构;②按照拆卸顺序,依次拆卸底盘各部件;③记录各部件名称、功能及拆卸顺序;④按照装配顺序,依次装配底盘各部件;⑤检查底盘装配质量,确保各部件连接牢固。

3. 汽车电气系统拆装实验(1)实验目的:熟悉汽车电气系统结构,了解电气系统各部件的名称、功能及拆装方法。

(2)实验步骤:①观察电气系统外观,了解电气系统的基本结构;②按照拆卸顺序,依次拆卸电气系统各部件;③记录各部件名称、功能及拆卸顺序;④按照装配顺序,依次装配电气系统各部件;⑤检查电气系统装配质量,确保各部件连接牢固。

三、实验结果与分析1. 发动机拆装实验结果:通过拆装实验,掌握了发动机的结构、各部件名称、功能及拆装方法,为后续汽车维修和保养奠定了基础。

2. 底盘拆装实验结果:通过拆装实验,熟悉了底盘结构,了解了底盘各部件的名称、功能及拆装方法,为后续汽车维修和保养提供了实践依据。

3. 电气系统拆装实验结果:通过拆装实验,掌握了电气系统结构,了解了电气系统各部件的名称、功能及拆装方法,为后续汽车维修和保养提供了实践经验。

四、实验结论通过本次汽车实验学设计实验,我们掌握了汽车主要部件的结构、功能及拆装方法,提高了动手实践能力和创新意识。

《汽车设计》实验指导书

《汽车设计》实验指导书

《汽车设计》实验指导书实验一汽车四轮定位实验指导书一、实验目的1、掌握电脑四轮定位仪的原理及组成;2、掌握电脑四轮定位仪的安装及使用方法;3、掌握有关项目的检测;4、了解有关车轮定位的调整方法及有关技术要求。

二、实验设备电脑四轮定位仪一套汽车一辆气泵一台四柱举升机一台三、实验内容1、运用四轮定位仪进行四轮定位测试的方法;2、根据检测数据分析调整部位。

四、实验方法和步骤1.接通电源,开启计算机;2.被测车辆数据输入:可得被测车辆的标准数据(用以与检测数据对照,便于调整)3.轮胎压力(按所设车辆的标准压力);4.轮辋跳动补偿操作:分别将前、后轮利用二次举升机举起,车轮每次转动90,按补偿输入键(测试头中间键),转动四次完成跳动补偿(此程序不做会导致测量数值有0.1~0.5°误差);5.使用抵压板将制动压板压下,并固定;6.拔下电子转盘固定销;7.按显示屏幕上所提示的项目操作:分别将方向盘转至“车轮正直方向”,“右侧至极限位置”,“右侧测量位置”,“左侧测量位置”,“左侧极限位置”;每次须出现“绿柱”并待消失后再进行下一程序。

8.测试完毕,显示出测试数据与标准数据。

(一)车辆调整1.调整时按照先调后轮,再调前轮;2.后轮先调外倾角,后调束角;3.前轮先调主销后倾角,后调车轮外倾角,再调车轮束角;4.可对照显示数据调整到数字变绿为合格。

(二)试车四轮定位检测调后,应进行试车,以检查车辆异常行驶情况是否解除,如未达到标准应当进行检测和调整。

(三)打印结果1.将A4打印低放入打印纸纸插入口,按打印键即可打印出测度报告;2.下一车辆的测试应在前辆车完成后,进入“下一车辆”测试操作。

五、实验思考题1、汽车为什么可能会产生跑偏?(1)、前轮主销后倾角左、右不对称,偏差超0.5度,车辆朝主销后倾角小侧跑偏。

(2)、前轮外倾角左、右不对称,偏差超0.5度,车辆朝外倾角正值最大侧跑偏。

(3)、后轮外倾角左、右不对称,偏差超0.5度,车辆朝后轮外倾角最小侧跑偏。

汽车工程设计作业指导书

汽车工程设计作业指导书

汽车工程设计作业指导书一、引言汽车工程设计是一门多学科交叉的综合性课程,旨在培养学生运用所学知识和技能进行汽车设计与研发的能力。

本指导书将为您提供有关汽车工程设计作业的指导和建议。

二、任务背景本次设计作业的背景是一家汽车制造公司计划研发一款新型电动汽车。

您作为汽车工程学院的学生,需要完成相关设计任务,并提交相应的设计报告。

三、任务目标1. 熟悉电动汽车的基本原理和技术特点;2. 掌握车辆动力学和悬挂系统的设计原则;3. 运用流体力学和空气动力学知识设计车辆外形;4. 设计适用于电动汽车的驱动系统和电池管理系统;5. 考虑安全性和环保性等方面的设计要求;6. 编写设计报告并做出相应展示。

四、任务步骤1. 确定设计需求:收集相关市场信息,分析用户需求,明确设计目标和指标。

2. 进行初步设计:综合运用课程所学知识,根据设计需求绘制初始草图,并进行车辆整体结构设计。

3. 设计车辆动力系统:根据电动汽车的特点,设计合适的电动机、电池、控制系统等组件,并进行系统参数设计。

4. 设计悬挂系统:选择合适的悬挂结构,进行悬挂系统的设计和参数计算。

5. 进行流体力学与空气动力学分析:对车辆外形进行流体力学和空气动力学分析,优化车辆外形和气动性能。

6. 安全性与环保性设计:考虑车辆行驶过程中的安全性和环保性要求,如制动系统、防抱死系统、碰撞安全等。

7. 编写设计报告:根据所完成的设计,编写详细的设计报告,包括设计过程、结果分析、结论等内容。

8. 做出相应展示:准备展示材料,进行设计方案的展示与阐述。

五、注意事项1. 在设计过程中,要注重理论与实践的结合,确保设计方案的科学性和可行性。

2. 注意保护知识产权,遵守学术道德规范,不得抄袭他人作品。

3. 严格按照所学课程的要求和标准完成作业,确保设计结果的准确性。

4. 撰写设计报告时,要注意文字清晰、结构合理、表述准确,确保报告的读者能够清楚理解设计过程和结果。

六、结语希望通过本次汽车工程设计作业,您能够获得更深入的汽车设计理论和实践经验,并通过自己的努力与智慧,为电动汽车的研发做出积极的贡献。

西华大学汽车理论实验报告

西华大学汽车理论实验报告

交通与汽车工程学院实验报告课程名称: 汽车理论A 课程代码: 8244880 年级/专业/班: 2009级车辆工程汽电4班学生姓名:龙强学号:6530实验总成绩:任课教师:吴涛开课学院: 交通与汽车工程学院实验中心名称: 汽车交通实验中心西华大学实验报告开课学院及实验室:实验时间:年月日2、实验设备、仪器及材料3、实验内容3.1 一般实验(非上机实验):3.1.1实验方案设计与选择(设计性、创新性实验需写该项内容)3.1.2实验原理及实验步骤(实验工作原理或实验的主要操作过程)3.1.3实验记录(核心代码及调试过程)3.2 上机实验:3.2.1上机实验的内容及要求3.2.2算法设计思想与算法实现步骤3.2.3程序核心代码,程序调试过程中出现的问题及解决方法3.2.4程序运行的结果注解:理工科实验需记录实验过程中的数据、图表、计算、现象观察等,实验过程中出现的问题;其它如在计算机上进行的编程、仿真性或模拟性实验需记录程序核心代码以及程序在调式过程中出现的问题及解决方法;记录程序执行的结果。

4、实验总结4.1实验结果分析及问题讨论4.2实验总结心得体会注解:实验总结的内容根据不同学科和类型实验要求不一样,一般理工科类的实验需要对实验结果进行分析,并且对实验过程中问题进行讨论;在计算机上进行的编程、仿真性或模拟性实验需要对上机实践结果进行分析,上机的心得体会及改进意见。

其它实验应总结实验过程写出心得体会及改进意见。

说明:各门实验课程实验报告的格式及内容要求,请按照实验指导书的要求手工书写。

1.实验目的2.实验设备、仪器及材料3.实验内容3.1程序核心代码,程序调试过程中出现的问题及调试方法Option ExplicitDim n, x, cDim Tq, ig, δDim f, GDim m, i, CdA, rDim i0, Ua, Iw, if0Dim ηt, aDim Ft, Ff, FiDim Fx, Fw, FjPrivate Sub mand1_Click() '驱动力与阻力平衡图Picture1.ClsPicture1.Scale (-10, 15000)-(130, -700)Picture1.Line (-8, 0)-(150, 0): Picture1.Line (0, 15000)-(0, -500) '画坐标轴Picture1.Line (126, -200)-(130, 0) '画横轴箭头Picture1.Line (126, 200)-(130, 0)Picture1.Line (-2, 14700)-(0, 15000) '画纵轴箭头Picture1.Line (2, 14700)-(0, 15000)For i = 1 To 12 '画横坐标刻度线和刻度Picture1.Line (10 * i, 0)-(10 * i, 200)Picture1.CurrentX = 10 * i - 2: Picture1.CurrentY = -50: Picture1.Print 10 * i Next iFor i = 1 To 14 '画纵坐标刻度线和刻度Picture1.Line (0, 1000 * i)-(2, 1000 * i)Picture1.CurrentX = -8: Picture1.CurrentY = 1000 * i + 400: Picture1.Print 1 * i Next iPicture1.CurrentX = -5: Picture1.CurrentY = -50: Picture1.Print 0Picture1.CurrentX = 115: Picture1.CurrentY = 700: Picture1.Print "Ua(km/h)"Picture1.CurrentX = 5: Picture1.CurrentY = 14600: Picture1.Print "F(kN)"Picture1.CurrentX = 5: Picture1.CurrentY = 1000: Picture1.Print "Ff"Picture1.CurrentX = 120: Picture1.CurrentY = 3000: Picture1.Print "Ff+Fw"Dim ig(4) As Singleig(0) = Val(Text18)ig(1) = Val(Text19)ig(2) = Val(Text20)ig(3) = Val(Text21)ig(4) = Val(Text22)f = Val(Text6)m = Val(Text2)G = Val(Text3) * 9.8i = 0CdA = Val(Text7)r = Val(Text4)i0 = Val(Text8)Iw = Val(Text10) + Val(Text11)if0 = Val(Text9)ηt = Val(Text5)Ff = G * fFi = G * ia = 0For n = 600 To 4000For x = 0 To 4δ = 1 + (1 * Iw) / (m * r * r) + (1 * if0 * ig(x) * ig(x) * i0 * i0 * ηt) / (m * r * r)Ua = 0.377 * (r * n) / (ig(x) * i0)Fw = (CdA * Ua * Ua) / 21.15Tq = -19.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) ^ 2 + 40.874 * (n/ 1000) ^ 3 - 3.8445 * (n / 1000) ^ 4Ft = (Tq * ig(x) * i0 * ηt) / rFj = δ * m * aPicture1.PSet (Ua, Ft), vbBluePicture1.PSet (Ua, Ff + Fw), vbRedPicture1.PSet (Ua, Ff), vbGreenIf Abs(Ff + Fw - Ft) < 1 Then Text26.Text = Ua '求最高车速UamaxNext xNext nEnd SubPrivate Sub mand2_Click() '加速度曲线Picture1.ClsPicture1.Scale (-10, 5)-(130, -0.3)Picture1.Line (0, 0)-(180, 0): Picture1.Line (0, 0)-(0, 5)Picture1.Line (126, -0.03)-(130, 0) '画横轴箭头Picture1.Line (126, 0.03)-(130, 0)Picture1.Line (-1, 4.8)-(0, 5) '画纵轴箭头Picture1.Line (1, 4.8)-(0, 5)For i = 1 To 11Picture1.Line (10 * i, 0)-(10 * i, 0.05)Picture1.CurrentX = 10 * i - 3: Picture1.CurrentY = -0.05: Picture1.Print 10 * i Next iFor i = 1 To 9Picture1.Line (0, 0.5 * i)-(2, 0.5 * i)Picture1.CurrentX = -8: Picture1.CurrentY = 0.5 * i + 0.05: Picture1.Print 0.5 * i Next iPicture1.CurrentX = -3: Picture1.CurrentY = -0.03: Picture1.Print 0Picture1.CurrentX = 110: Picture1.CurrentY = 0.2: Picture1.Print "Ua(km/h))"Picture1.CurrentX = 3: Picture1.CurrentY = 4.8: Picture1.Print "a(m/s^2)"Dim ig(4) As Singleig(0) = Val(Text18)ig(1) = Val(Text19)ig(2) = Val(Text20)ig(3) = Val(Text21)ig(4) = Val(Text22)f = Val(Text6)m = Val(Text2)G = Val(Text3) * 9.8i = 0CdA = Val(Text7)r = Val(Text4)i0 = Val(Text8)Iw = Val(Text10) + Val(Text11)if0 = Val(Text9)ηt = Val(Text5)Ff = G * fFi = G * iFj = δ * m * aFor n = 600 To 4000For x = 0 To 4δ = 1 + (1 * Iw) / (m * r * r) + (1 * if0 * ig(x) * ig(x) * i0 * i0 * ηt) / (m * r * r)Ua = 0.377 * (r * n) / (ig(x) * i0)Fw = (CdA * Ua * Ua) / 21.15Tq = -19.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) ^ 2 + 40.874 * (n / 1000) ^ 3 - 3.8445 * (n / 1000) ^ 4Ft = (Tq * ig(x) * i0 * ηt) / ra = (Ft - Ff - Fw) / (δ * m)If a < 0 Then GoTo Label1 '不画加速度小于0的部分Picture1.PSet (Ua, a), vbBlueLabel1: Next xNext nEnd SubPrivate Sub mand3_Click() '加速度倒数曲线Picture1.ClsPicture1.Scale (-8, 5)-(130, -0.3)Picture1.Line (0, 0)-(130, 0)Picture1.Line (0, 0)-(0, 5)Picture1.Line (126, -0.03)-(130, 0) '画横轴箭头Picture1.Line (126, 0.03)-(130, 0)Picture1.Line (-1, 4.8)-(0, 5) '画纵轴箭头Picture1.Line (1, 4.8)-(0, 5)For i = 1 To 11Picture1.Line (10 * i, 0)-(10 * i, 0.05)Picture1.CurrentX = 10 * i - 3: Picture1.CurrentY = -0.05: Picture1.Print 10 * i Next iFor i = 1 To 9Picture1.Line (0, 0.5 * i)-(2, 0.5 * i)Picture1.CurrentX = -8: Picture1.CurrentY = 0.5 * i + 0.05: Picture1.Print 0.5 * i Next iPicture1.CurrentX = -4: Picture1.CurrentY = 0: Picture1.Print 0Picture1.CurrentX = 110: Picture1.CurrentY = 0.2: Picture1.Print "Ua(km/h))"Picture1.CurrentX = 4: Picture1.CurrentY = 4.7: Picture1.Print "1/a"Dim ig(4) As Singleig(0) = Val(Text18)ig(1) = Val(Text19)ig(2) = Val(Text20)ig(3) = Val(Text21)ig(4) = Val(Text22)f = Val(Text6)m = Val(Text2)G = Val(Text3) * 9.8i = 0CdA = Val(Text7)r = Val(Text4)i0 = Val(Text8)Iw = Val(Text10) + Val(Text11)if0 = Val(Text9)ηt = Val(Text5)Ff = G * fFi = G * iFj = δ * m * aFor n = 600 To 4000For x = 0 To 4δ = 1 + (1 * Iw) / (m * r * r) + (1 * if0 * ig(x) * ig(x) * i0 * i0 * ηt) / (m * r * r)Ua = 0.377 * (r * n) / (ig(x) * i0)Fw = (CdA * Ua * Ua) / 21.15Tq = -19.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) ^ 2 + 40.874 * (n / 1000) ^ 3 - 3.8445 * (n / 1000) ^ 4Ft = (Tq * ig(x) * i0 * ηt) / ra = (Ft - Ff - Fw) / (δ * m)If 1 / a > 4.8 Then GoTo Label1 '不画1 / a > 4.8的部分Picture1.PSet (Ua, 1 / a), vbRedLabel1: Next xNext nEnd SubPrivate Sub mand4_Click() '动力特性图Picture1.ClsPicture1.Scale (-10, 1)-(130, -0.1)Picture1.Line (0, 0)-(130, 0)Picture1.Line (0, 0)-(0, 1)Picture1.Line (126, -0.005)-(130, 0) '画横轴箭头Picture1.Line (126, 0.005)-(130, 0)Picture1.Line (-1, 0.95)-(0, 1) '画纵轴箭头Picture1.Line (1, 0.95)-(0, 1)For i = 1 To 11Picture1.Line (10 * i, 0)-(10 * i, 0.005)Picture1.CurrentX = 10 * i - 3: Picture1.CurrentY = -0.005: Picture1.Print 10 * i Next iFor i = 1 To 9Picture1.Line (0, 0.1 * i)-(2, 0.1 * i)Picture1.CurrentX = -8: Picture1.CurrentY = 0.1 * i + 0.05: Picture1.Print "0"; 0.1 * iNext iPicture1.CurrentX = -3: Picture1.CurrentY = -0.02: Picture1.Print 0Picture1.CurrentX = 115: Picture1.CurrentY = 0.05: Picture1.Print "Ua(km/h))"Picture1.CurrentX = 4: Picture1.CurrentY = 0.95: Picture1.Print "D"Picture1.CurrentX = 10: Picture1.CurrentY = 0.05: Picture1.Print "f"Dim ig(4) As SingleDim D '引入动力因数ig(0) = Val(Text18)ig(1) = Val(Text19)ig(2) = Val(Text20)ig(3) = Val(Text21)ig(4) = Val(Text22)f = Val(Text6)m = Val(Text2)G = Val(Text3) * 9.8i = 0CdA = Val(Text7)r = Val(Text4)i0 = Val(Text8)Iw = Val(Text10) + Val(Text11)if0 = Val(Text9)ηt = Val(Text5)Ff = G * fFi = G * iFor n = 600 To 4000For x = 0 To 4δ = 1 + (1 * Iw) / (m * r * r) + (1 * if0 * ig(x) * ig(x) * i0 * i0 * ηt) / (m * r * r)Ua = 0.377 * (r * n) / (ig(x) * i0)Fw = (CdA * Ua * Ua) / 21.15Tq = -19.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) ^ 2 + 40.874 * (n / 1000) ^ 3 - 3.8445 * (n / 1000) ^ 4Ft = (Tq * ig(x) * i0 * ηt) / ra = (Ft - Ff - Fw) / (δ * m)Fj = δ * m * aD = (Ff + Fi) / G + (δ * a) / 9.8If D < 0 Then GoTo Label1 '不画D小于0的部分Picture1.PSet (Ua, D), vbBluePicture1.PSet (Ua, f), vbRedLabel1: Next xNext nEnd SubPrivate Sub mand5_Click() ' 爬坡度图Picture1.ClsPicture1.Scale (-10, 0.5)-(120, -0.1)Picture1.Line (0, 0)-(120, 0)Picture1.Line (0, 0)-(0, 0.5)Picture1.Line (116, -0.003)-(120, 0) '画横轴箭头Picture1.Line (116, 0.003)-(120, 0)Picture1.Line (-1, 0.48)-(0, 0.5) '画纵轴箭头Picture1.Line (1, 0.48)-(0, 0.5)For i = 1 To 11Picture1.Line (10 * i, 0)-(10 * i, 0.008)Picture1.CurrentX = 10 * i - 3: Picture1.CurrentY = -0.003: Picture1.Print 10 * i Next iFor i = 1 To 4Picture1.Line (0, 0.1 * i)-(2, 0.1 * i)Picture1.CurrentX = -10: Picture1.CurrentY = 0.1 * i + 0.005: Picture1.Print 10 * i Next iPicture1.CurrentX = -4: Picture1.CurrentY = -0.003: Picture1.Print 0Picture1.CurrentX = 110: Picture1.CurrentY = 0.04: Picture1.Print "Ua(km/h))"Picture1.CurrentX = -8: Picture1.CurrentY = 0.47: Picture1.Print "i(%)"Dim ig(4) As Singleig(0) = Val(Text18)ig(1) = Val(Text19)ig(2) = Val(Text20)ig(3) = Val(Text21)ig(4) = Val(Text22)f = Val(Text6)m = Val(Text2)G = Val(Text3) * 9.8CdA = Val(Text7)r = Val(Text4)i0 = Val(Text8)Iw = Val(Text10) + Val(Text11)if0 = Val(Text9)ηt = Val(Text5)Ff = G * fFj = δ * m * aa = 0For n = 600 To 4000For x = 0 To 4δ = 1 + (1 * Iw) / (m * r * r) + (1 * if0 * ig(x) * ig(x) * i0 * i0 * ηt) / (m * r * r)Ua = 0.377 * (r * n) / (ig(x) * i0)Fw = (CdA * Ua * Ua) / 21.15Tq = -19.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) ^ 2 + 40.874 * (n / 1000) ^ 3 - 3.8445 * (n / 1000) ^ 4Ft = (Tq * ig(x) * i0 * ηt) / rFi = Ft - (Ff + Fw)i = Fi / Sqr(G ^ 2 - Fi ^ 2)If i < 0 Then GoTo Label1 '不画加速度小于0的部分Picture1.PSet (Ua, i)Label1: Next xNext nEnd SubPrivate Sub mand6_Click() '直接挡加速时间曲线Dim tPicture1.ClsPicture1.Scale (-5, 100)-(50, -10)Picture1.Line (0, 0)-(0, 100)Picture1.Line (0, 0)-(50, 0)Picture1.Line (48, -2)-(50, 0) '画横轴箭头Picture1.Line (48, 2)-(50, 0)Picture1.Line (-1, 97)-(0, 100) '画纵轴箭头Picture1.Line (1, 97)-(0, 100)For i = 1 To 4Picture1.Line (10 * i, 0)-(10 * i, 3)Picture1.CurrentX = 10 * i - 1.5: Picture1.CurrentY = -0.1: Picture1.Print 10 * i Next iFor i = 1 To 9Picture1.Line (0, 10 * i)-(1, 10 * i)Picture1.CurrentX = -3: Picture1.CurrentY = 10 * i + 2: Picture1.Print 10 * iNext iPicture1.CurrentX = -1: Picture1.CurrentY = -2: Picture1.Print 0Picture1.CurrentX = 46: Picture1.CurrentY = -5: Picture1.Print "t/s"Picture1.CurrentX = 2: Picture1.CurrentY = 98: Picture1.Print "Ua(km/h))"Picture1.CurrentX = 30: Picture1.CurrentY = 40: Picture1.Print "——直接挡加速时间曲线"ig = 1m = Val(Text2)G = Val(Text3) * 9.8i = 0CdA = Val(Text7)r = Val(Text4)i0 = Val(Text8)Iw = Val(Text10) + Val(Text11)if0 = Val(Text9)ηt = Val(Text5)Ff = G * fFi = G * iFj = δ * m * at = 0For n = 600 To 4000 Step 0.1δ = 1 + (1 * Iw) / (m * r * r) + (1 * if0 * ig * ig * i0 * i0 * ηt) / (m * r * r)Ua = 0.377 * (r * n) / (ig * i0)Fw = (CdA * Ua * Ua) / 21.15Tq = -19.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) ^ 2 + 40.874 * (n / 1000) ^ 3 - 3.8445 * (n / 1000) ^ 4Ft = (Tq * ig * i0 * ηt) / ra = (Ft - Ff - Fw) / (δ * m)t = t + 1 * 0.377 * r * 0.1 / (i0 * a) '微分法求面积Picture1.PSet (t, Ua), vbRedNext nEnd SubPrivate Sub mand7_Click() '外特性曲线Dim PePicture1.ClsPicture1.Scale (-500, 250)-(4500, -30)Picture1.Line (0, 0)-(4500, 0):Picture1.Line (0, 0)-(0, 240)Picture1.Line (4400, -3)-(4500, 0) '画横轴箭头Picture1.Line (4400, 3)-(4500, 0)Picture1.Line (-50, 235)-(0, 240) '画纵轴箭头Picture1.Line (50, 235)-(0, 240)For i = 1 To 10Picture1.Line (400 * i, 0)-(400 * i, 5)Picture1.CurrentX = 400 * i - 100: Picture1.CurrentY = 0: Picture1.Print 400 * i Next iFor i = 1 To 11Picture1.Line (0, 20 * i)-(50, 20 * i)Picture1.CurrentX = -300: Picture1.CurrentY = 20 * i + 5: Picture1.Print 20 * i Next iPicture1.CurrentX = -150: Picture1.CurrentY = -2: Picture1.Print 0Picture1.CurrentX = 3900: Picture1.CurrentY = 20: Picture1.Print "n(r/min)"Picture1.CurrentX = 100: Picture1.CurrentY = 235: Picture1.Print "Tq(N.m)"Picture1.CurrentX = -400: Picture1.CurrentY = 235: Picture1.Print "Pe/kW"Picture1.CurrentX = 1600: Picture1.CurrentY = 185: Picture1.Print "Tq曲线"Picture1.CurrentX = 1600: Picture1.CurrentY = 45: Picture1.Print "Pe曲线"For n = 600 To 4000Tq = -19.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) ^ 2 + 40.874 * (n / 1000) ^ 3 - 3.8445 * (n / 1000) ^ 4Pe = Tq * n / 9550Picture1.PSet (n, Tq), vbBluePicture1.PSet (n, Pe), vbRedNext nEnd SubPrivate Sub mand8_Click() '汽车功率平衡图Picture1.ClsPicture1.Scale (-15, 75)-(200, -10)Picture1.Line (0, 0)-(200, 0)Picture1.Line (0, 0)-(0, 70)Picture1.Line (195, -2)-(200, 0) '画横轴箭头Picture1.Line (195, 2)-(200, 0)Picture1.Line (-3, 67)-(0, 70) '画纵轴箭头Picture1.Line (3, 67)-(0, 70)For i = 1 To 3Picture1.Line (50 * i, 0)-(50 * i, 2)Picture1.CurrentX = 50 * i - 5: Picture1.CurrentY = -0.05: Picture1.Print 50 * i Next iFor i = 1 To 13Picture1.Line (0, 5 * i)-(3, 5 * i)Picture1.CurrentX = -10: Picture1.CurrentY = 5 * i + 1: Picture1.Print 5 * iNext iPicture1.CurrentX = -10: Picture1.CurrentY = -2: Picture1.Print 0Picture1.CurrentX = 170: Picture1.CurrentY = 4: Picture1.Print "Ua(km/h)"Picture1.CurrentX = 5: Picture1.CurrentY = 70: Picture1.Print "Pe/kW"Picture1.CurrentX = 110: Picture1.CurrentY = 70: Picture1.Print "(Pf+Pw)/ηt"Dim Pe As Double, Pz As DoubleDim ig(4) As Singleig(0) = Val(Text18)ig(1) = Val(Text19)ig(2) = Val(Text20)ig(3) = Val(Text21)ig(4) = Val(Text22)f = Val(Text6)m = Val(Text2)G = Val(Text3) * 9.8i = 0CdA = Val(Text7)r = Val(Text4)i0 = Val(Text8)Iw = Val(Text10) + Val(Text11)ηt = Val(Text5)Ff = G * fFi = G * iif0 = Val(Text9)For n = 600 To 4000For x = 0 To 4δ = 1 + (1 * Iw) / (m * r * r) + (1 * if0 * ig(x) * ig(x) * i0 * i0 * ηt) / (m * r * r)Ua = 0.377 * (r * n) / (ig(x) * i0)Fw = (CdA * Ua * Ua) / 21.15Tq = -19.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) ^ 2 + 40.874 * (n / 1000) ^ 3 - 3.8445 * (n / 1000) ^ 4Ft = (Tq * ig(x) * i0 * ηt) / ra = (Ft - Ff - Fw) / (δ * m)Fj = δ * m * aPe = (G * f * Ua + G * i * Ua + CdA * Ua * Ua * Ua / 21.15 + δ * m * a * Ua) / (3600 * ηt)Pz = (G * f * Ua / 3600 + CdA * Ua * Ua * Ua / 76140) / ηtIf Pz > 70 Then GoTo Label1 '不画加速度小于0的部分Picture1.PSet (Ua, Pe), vbBluePicture1.PSet (Ua, Pz), vbRedLabel1: Next xNext nEnd SubPrivate Sub mand9_Click()EndEnd Sub3.2程序运行结果图1-1界面设计1-2驱动力与行驶阻力平衡图1-3加速度曲线1-4加速度倒数曲线1-5动力特性图1-6爬坡度图1-7直接挡加速时间1-8发动机外特性曲线1-9功率平衡图4.思考题西华大学实验报告开课学院及实验室:实验时间:年月日2、实验设备、仪器及材料3、实验内容3.1 一般实验(非上机实验):3.1.1实验方案设计与选择(设计性、创新性实验需写该项内容)3.1.2实验原理及实验步骤(实验工作原理或实验的主要操作过程)3.1.3实验记录(核心代码及调试过程)3.2 上机实验:3.2.1上机实验的内容及要求3.2.2算法设计思想与算法实现步骤3.2.3程序核心代码,程序调试过程中出现的问题及解决方法3.2.4程序运行的结果注解:理工科实验需记录实验过程中的数据、图表、计算、现象观察等,实验过程中出现的问题;其它如在计算机上进行的编程、仿真性或模拟性实验需记录程序核心代码以及程序在调式过程中出现的问题及解决方法;记录程序执行的结果。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

交通与汽车工程学院《汽车设计》
实验指导书
适用专业:车辆工程
课程代码: 8204980 学时: 4 学分:
编写单位:汽车系
编写人:
审核人:
审批人:
实验一:膜片弹簧特性曲线程序设计
一、实验目的
1、理解并掌握膜片弹簧的弹性特性。

2、熟悉VB编程的基本步骤:界面设计、属性设置、编写代码、运行、调试、保存文件。

3、掌握常用控件的创建方法以及如何用控件建立用户界面。

二、实验环境与工具
操作系统:WINDOWS98/2000/2003/XP
工具:Visual Basic 6.0
三、实验内容
请利用Visual Baisc高级语言,设计一个程序,绘制描述膜片弹簧工作点位置的膜片弹簧弹性特性曲线,并要求有坐标系。

四、实验步骤
1、在窗体界面上设计好标签、文本框和图片容器以及按钮,并对各个控件命名。

2、在窗体上填入各个文本框的默认值。

3、程序设计过程:
1)首先规定图片容器的相对坐标,再在上面画出坐标线。

2)利用书上的公式算出函数值。

3)用pset命令在图片容器上画出函数曲线。

4)注意坐标线与函数曲线要用不同的颜色。

5)注意控制好图片容器的宽度高度,和相对坐标。

五、思考题
1.如何用程序实现坐标系?要求坐标轴不靠边,且有箭头;
2.比值H/h的改变对膜片弹簧特性的影响?
3. 比值R/r的改变对膜片弹簧特性的影响?
Dim F, E, Fm, Fn, Fh, Fc, Fb
Dim x, i, Xm, Xn, Xh, Xc, Xb
Dim μ, H1, H2, R1, R2, R3, R4, Xmax, a, b, c
Text1 = 2.1 * 10 ^ 5
Text2 = 0.3
Text3 = 4.69
Text4 = 2.8
Text5 = 116
Text6 = 93
Text7 = 114
Text8 = 97
Text9 = 7
End Sub
Private Sub Command2_Click()
E = Val(Text1)
u = Val(Text2)
H1 = Val(Text3)
H2 = Val(Text4)
R1 = Val(Text5)
R2 = Val(Text6)
R3 = Val(Text7)
R4 = Val(Text8)
Xmax = Val(Text9.Text)
a = (R1 - R2) / (R3 - R4)
b = 3.14 * E * H2 / (6 * (1 - u ^ 2))
c = Log(R1 / R2) / (R3 - R4) ^ 2
For x = 0 To Xmax Step 0.001
F = b * c * x * ((H1 - a * x) * (H1 - 0.5 * a * x) + H2 ^ 2)
If H1 = 3.92 Then Picture1.PSet (x, F), vbRed
If H1 = 3.05 Then Picture1.PSet (x, F), vbBlue
If H1 = 4.69 Then Picture1.PSet (x, F), vbYellow
If R1 = 110 Then Picture1.PSet (x, F), vbBlack
If R1 = 120 Then Picture1.PSet (x, F), vbGreen
Next x
End Sub
Picture1.ForeColor = vbRed
Picture1.Scale (-1, 10000)-(8, -500)
Picture1.Line (0, 0)-(7, 0): Picture1.Line (0, 0)-(0, 9000) '画坐标轴
Picture1.Line (6.8, -100)-(7, 0) '画横轴箭头
Picture1.Line (6.8, 100)-(7, 0)
Picture1.Line (-0.1, 8800)-(0, 9000) '画纵轴箭头
Picture1.Line (0.1, 8800)-(0, 9000)
For i = 1 To 6 '画横坐标刻度线和刻度
Picture1.Line (i, 0)-(i, 200)
Picture1.CurrentX = i - 0.1: Picture1.CurrentY = -50: Picture1.Print i Next i
For i = 1 To 8 '画纵坐标刻度线和刻度
Picture1.Line (0, 1000 * i)-(0.2, 1000 * i)
Picture1.CurrentX = -0.6: Picture1.CurrentY = 1000 * i + 200: Picture1.Print 1000 * i Next i
Picture1.CurrentX = -0.2: Picture1.CurrentY = -50: Picture1.Print 0
Picture1.CurrentX = 7: Picture1.CurrentY = 300: Picture1.Print "x"
Picture1.CurrentX = 0.2: Picture1.CurrentY = 9500: Picture1.Print "F(kN)"
End Sub
Private Sub Command4_Click()
Dim F, E, Fm, Fn, Fh, Fc, Fb
Dim x, i, Xm, Xn, Xh, Xc, Xb
Dim μ, H1, H2, R1, R2, R3, R4, Xmax, a, b, c
Text1 = 2.1 * 10 ^ 5
Text2 = 0.3
Text3 = 3.92
Text4 = 2.8
Text5 = 116
Text6 = 93
Text7 = 114
Text8 = 97
Text9 = 7
End Sub
Private Sub Command5_Click()
Dim F, E, Fm, Fn, Fh, Fc, Fb
Dim x, i, Xm, Xn, Xh, Xc, Xb
Dim μ, H1, H2, R1, R2, R3, R4, Xmax, a, b, c
Text1 = 2.1 * 10 ^ 5
Text2 = 0.3
Text3 = 3.05
Text4 = 2.8
Text5 = 116
Text6 = 93
Text7 = 114
Text8 = 97
Text9 = 7
End Sub
Private Sub Command6_Click()
Dim F, E, Fm, Fn, Fh, Fc, Fb
Dim x, i, Xm, Xn, Xh, Xc, Xb
Dim μ, H1, H2, R1, R2, R3, R4, Xmax, a, b, c Text1 = 2.1 * 10 ^ 5
Text2 = 0.3
Text3 = 3.92
Text4 = 2.8
Text5 = 110
Text6 = 90
Text7 = 110
Text8 = 95
Text9 = 7
End Sub
Private Sub Command7_Click()
Dim F, E, Fm, Fn, Fh, Fc, Fb
Dim x, i, Xm, Xn, Xh, Xc, Xb
Dim μ, H1, H2, R1, R2, R3, R4, Xmax, a, b, c Text1 = 2.1 * 10 ^ 5
Text2 = 0.3
Text3 = 3.92
Text4 = 2.8
Text5 = 120
Text6 = 95
Text7 = 115
Text8 = 100
Text9 = 7
End Sub
Private Sub Command8_Click()
End
End Sub。

相关文档
最新文档