汽车运用工程Word格式文档下载.docx
- 文档编号:348651
- 上传时间:2023-04-28
- 格式:DOCX
- 页数:37
- 大小:189.74KB
汽车运用工程Word格式文档下载.docx
《汽车运用工程Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《汽车运用工程Word格式文档下载.docx(37页珍藏版)》请在冰点文库上搜索。
3、实验内容
4、实验步骤
1、简单的界面设计用来输入初始的相关参数
2、实验内容中的相关计算公式的学习和使用
(1)在画汽车驱动力-行驶阻力平衡图时,驱动力
根据挡位的不同可以画出各挡位的驱动力。
行驶阻力在一般情况下可看做滚动阻力与空气阻力之和:
,当
-(
)的绝对值小于等于给定的一个收敛精度时(可用If语句来实现),再根据
,将
、
(
)都转化为与速度的关系,画出车速—驱动力与行驶阻力的曲线,驱动力与行驶阻力的交点可由
)的绝对值小于等于设定的一个收敛精度得到(
与
交点),此时对应的横坐标就是汽车能到达的最大车速
,并在图中标示出来。
(2)汽车的爬坡度的计算:
在
=
+
中,当计算汽车的爬坡能力时,是指汽车在良好的路面上克服
后的余力全部用来克服坡度阻力时能爬上的坡度,所以
=0。
因此
),因此利用汽车行驶方程式确定I挡及低挡爬坡能力时,应采用
作为坡度阻力,即
。
,相应的根据
可求出坡度值。
而最大坡度一般是在I挡取得,并标示出来。
(注意:
在VB中三角函数的角度单位为弧度,反三角函数只有反正切,即Arcsin(X)=Atn(X/Sqr(-X*X+1)))
(3)绘制加速度倒数曲线:
由汽车行驶方程得:
(设
=0)。
那么
再根据
将
)都转化为与速度的关系,绘制出各挡的速度—加速度倒数曲线。
(4)汽车直接挡加速时间的计算:
根据
=0)和
,时间t的单位为秒,速度的单位为km/h。
即加速度时间可用计算机进行积分计算或用图解积分法求出。
用图解积分法,将
曲线转化成
曲线。
曲线下两个速度区间的面积就是通过此速度区间的加速度时间。
常将速度区间分为若干间隔,通过确定面积
……来计算加速时间(在这个过程中将要用到累加Sum=Sum+i)。
在求直接挡加速时间时,根据直接挡
曲线求出直接挡最低车速加速至70km/h的加速时间,再根据速度与加速时间的关系画出直接挡加速时间—速度曲线(直接挡ig=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(%)"
Tq=-19.313+295.27*(n/1000)-165.44*(n/1000)^2+40.874*(n/1000)^3-
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 汽车 运用 工程