汽车理论实验报告Word格式.docx
《汽车理论实验报告Word格式.docx》由会员分享,可在线阅读,更多相关《汽车理论实验报告Word格式.docx(44页珍藏版)》请在冰豆网上搜索。
实验时间:
年月日
学生姓名
学号
实验成绩
课程名称
课程代码
实验项目名称
项目代码
指导教师
项目学分
1、实验目的
2、实验环境与工具
3、实验内容
3.1实验方案设计与选择(设计性、创新性实验需写该项内容)
3.2实验原理及实验步骤(实验工作原理或实验的主要操作过程)
3.3实验记录(核心代码及调试过程)
注解:
理工科实验需记录实验过程中的数据、图表、计算、现象观察等,实验过程中出现的问题;
其它如在计算机上进行的编程、仿真性或模拟性实验需记录程序核心代码以及程序在调式过程中出现的问题及解决方法;
记录程序执行的结果。
4、实验总结
4.1实验结果分析及问题讨论
4.2实验总结心得体会
4.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)
PrivateSubCommand6_Click()'
直接挡加速时间曲线
Dimt
Picture1.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