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

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

  1. 1、本文档共11页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
交通与汽车工程学院 实验报告 课程名称: 汽车理论A 课程代码: 8244880 年级/专业/班: 2009级车辆工程汽电4班 学生姓名: 龙强 学 号: 312009080306530 实验总成绩: 任课教 师: 吴 涛 开课学 院: 交通与汽车工程学院 实验中心名称: 汽车交通实验中心 西华大学实验报告 开课学院及实验室: 实验时间: 年 月曰 学生姓名 龙强 学号 312009080306530 实验成绩 课程名称 课程代码 实验项目名称 项目代码 指导教师 项目学分 1、 实验目的 2、 实验设备、仪器及材料 3、 实验内容 一般实验(非上机实验): 3.1.1实验方案设计与选择(设计性、创新性实验需写该项内容) 3.1.2实验原理及实验步骤(实验工作原理或实验的主要操作过程) 3.1.3实验记录(核心代码及调试过程) 上机实验: 3.2.1上机实验的内容及要求 3.2.2算法设计思想与算法实现步骤 3.2.3程序核心代码,程序调试过程中出现的问题及解决方法 3.2.4程序运行的结果 注解:理工科实验需记录实验过程中的数据、图表、计算、现象观察等,实验过程中出现的问题;其 它如在计算机上进行的编程、仿真性或模拟性实验需记录程序核心代码以及程序在调式过程中出现的问题 及解决方法;记录程序执行的结果。 4、实验总结 4.1实验结果分析及问题讨论 4.2实验总结心得体会 般理工科类的实验需要对实验结果进注解:实验总结的内容根据不同学科和类型实验要求不一样, 般理工科类的实验需要对实验结果进 行分析,并且对实验过程中问题进行讨论;在计算机上进行的编程、仿真性或模拟性实验需要对上机实践 结果进行分析,上机的心得体会及改进意见。其它实验应总结实验过程写出心得体会及改进意见。 说明:各门实验课程实验报告的格式及内容要求,请按照实验指导书的要求手工书写 实验目的 实验设备、仪器及材料 实验内容 3.1 程序核心代码,程序调试过程中出现的问题及调试方法 Option Explicit Dim n, x, c Dim Tq, ig, S Dim f, G Dim m, i, CdA, r Dim i0, Ua, Iw, if0 Dim n t, a Dim Ft, Ff, Fi Dim Fx, Fw, Fj Private Sub Command1_Click() 驱动力与阻力平衡图 Picture1.Cls Picture1.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 i For 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 i Picture1.CurrentX = -5: Picture1.CurrentY = -50: Picture1.Print 0 Picture1.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 Single ig(0) = Val(Text18) ig(1)

您可能关注的文档

文档评论(0)

dingfulaowang + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档