西华大学汽车理论实验报告Word文件下载.docx
《西华大学汽车理论实验报告Word文件下载.docx》由会员分享，可在线阅读，更多相关《西华大学汽车理论实验报告Word文件下载.docx（54页珍藏版）》请在冰豆网上搜索。
开课学院及实验室：
实验时间：
年月日
学生姓名
龙强
学号
312009080306530
实验成绩
课程名称
课程代码
实验项目名称
项目代码
指导教师
项目学分
1、实验目的
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程序核心代码，程序调试过程中出现的问题及调试方法
OptionExplicit
Dimn,x,c
DimTq,ig,δ
Dimf,G
Dimm,i,CdA,r
Dimi0,Ua,Iw,if0
Dimηt,a
DimFt,Ff,Fi
DimFx,Fw,Fj
PrivateSubCommand1_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）
Fori=1To12'
画横坐标刻度线和刻度
Picture1.Line（10*i,0）-（10*i,200）
Picture1.CurrentX=10*i-2:
Picture1.CurrentY=-50:
Picture1.Print10*i
Nexti
Fori=1To14'
画纵坐标刻度线和刻度
Picture1.Line（0,1000*i）-（2,1000*i）
Picture1.CurrentX=-8:
Picture1.CurrentY=1000*i+400:
Picture1.Print1*i
Picture1.CurrentX=-5:
Picture1.Print0
Picture1.CurrentX=115:
Picture1.CurrentY=700:
Picture1.Print"
Ua（km/h）"
Picture1.CurrentX=5:
Picture1.CurrentY=14600:
F（kN）"
Picture1.CurrentY=1000:
Ff"
Picture1.CurrentX=120:
Picture1.CurrentY=3000:
Ff+Fw"
Dimig（4）AsSingle
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.8
i=0
CdA=Val（Text7）
r=Val（Text4）
i0=Val（Text8）
Iw=Val（Text10）+Val（Text11）
if0=Val（Text9）
ηt=Val（Text5）
Ff=G*f
Fi=G*i
a=0
Forn=600To4000
Forx=0To4
δ=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.15
Tq=-19.313+295.27*（n/1000）-165.44*（n/1000）^2+40.874*（n/1000）^3-3.8445*（n/1000）^4
Ft=（Tq*ig（x）*i0*ηt）/r
Fj=δ*m*a
Picture1.PSet（Ua,Ft）,vbBlue
Picture1.PSet（Ua,Ff+Fw）,vbRed
Picture1.PSet（Ua,Ff）,vbGreen
IfAbs（Ff+Fw-Ft）<
1ThenText26.Text=Ua'
求最高车速Uamax
Nextx
Nextn
EndSub
PrivateSubCommand2_Click（）'
加速度曲线
Picture1.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）
Fori=1To11
Picture1.Line（10*i,0）-（10*i,0.05）
Picture1.CurrentX=10*i-3:
Picture1.CurrentY=-0.05:
Fori=1To9
Picture1.Line（0,0.5*i）-（2,0.5*i）
Picture1.CurrentY=0.5*i+0.05:
Picture1.Print0.5*i
Picture1.CurrentX=-3:
Picture1.CurrentY=-0.03:
Picture1.CurrentX=110:
Picture1.CurrentY=0.2:
Ua（km/h））"
Picture1.CurrentX=3:
Picture1.CurrentY=4.8:
a（m/s^2）"
a=（Ft-Ff-Fw）/（δ*m）
Ifa<
0ThenGoToLabel1'
不画加速度小于0的部分
Picture1.PSet（Ua,a）,vbBlue
Label1:
PrivateSubCommand3_Click（）'
加速度倒数曲线
Picture1.Scale（-8,5）-（130,-0.3）
Picture1.Line（0,0）-（130,0）
Picture1.CurrentX=-4:
Picture1.CurrentY=0:
Picture1.CurrentX=4:
Picture1.CurrentY=4.7:
1/a"
If1/a>
4.8ThenGoToLabel1'
不画1/a>
4.8的部分
Picture1.PSet（Ua,1/a）,vbRed
PrivateSubCommand4_Click（）'
动力特性图
Picture1.Scale（-10,1）-（130,-0.1）
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）
Picture1.Line（10*i,0）-（10*i,0.005）
Picture1.CurrentY=-0.005:
Picture1.Line（0,0.1*i）-（2,0.1*i）
Picture1.CurrentY=0.1*i+0.05:
0"
;
0.1*i
Picture1.CurrentY=-0.02:
Picture1.CurrentY=0.05:
Picture1.CurrentY=0.95:
D"
Picture1.CurrentX=10:
f"
DimD'
引入动力因数
D=（Ff+Fi）/G+（δ*a）/9.8
IfD<
不画D小于0的部分
Picture1.PSet（Ua,D）,vbBlue
Picture1.PSet（Ua,f）,vbRed
PrivateSubCommand5_Click（）'
爬坡度图
Picture1.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）
Picture1.Line（10*i,0）-（10*i,0.008）
Picture1.CurrentY=-0.003:
Fori=1To4
Picture1.CurrentX=-10:
Picture1.CurrentY=0.1*i+0.005:
Picture1.CurrentY=0.04:
Picture1.CurrentY=0.47:
i（%）"
Fi=Ft-（Ff+Fw）
i=Fi/Sqr（G^2-Fi^2）
Ifi<
Picture1.PSet（Ua,i）
升级会员 