搜索
西华大学实验报告第页交通与汽车工程学院实验报告课程名称:汽车理论A课程代码:8244880年级/专业/班:2009级车辆工程汽电4班学生姓名:龙强学号:312009080306530实验总成绩:任课教师:吴涛开课学院:交通与汽车工程学院实验中心名称:汽车交通实验中心西华大学实验报告第页西华大学实验报告开课学院及实验室：实验时间：年月日学生姓名龙强学号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程序核心代码，程序调试过程中出现的问题及调试方法OptionExplicitDimn,x,cDimTq,ig,δDimf,GDimm,i,CdA,rDimi0,Ua,Iw,if0Dimηt,aDimFt,Ff,FiDimFx,Fw,FjPrivateSubCommand1_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)Fori=1To12'画横坐标刻度线和刻度Picture1.Line(10*i,0)-(10*i,200)Picture1.CurrentX=10*i-2:Picture1.CurrentY=-50:Picture1.Print10*iNextiFori=1To14'画纵坐标刻度线和刻度Picture1.Line(0,1000*i)-(2,1000*i)Picture1.CurrentX=-8:Picture1.CurrentY=1000*i+400:Picture1.Print1*iNextiPicture1.CurrentX=-5:Picture1.CurrentY=-50:Picture1.Print0西华大学实验报告第页Picture1.CurrentX=115:Picture1.CurrentY=700:Picture1.PrintUa(km/h)Picture1.CurrentX=5:Picture1.CurrentY=14600:Picture1.PrintF(kN)Picture1.CurrentX=5:Picture1.CurrentY=1000:Picture1.PrintFfPicture1.CurrentX=120:Picture1.CurrentY=3000:Picture1.PrintFf+FwDimig(4)AsSingleig(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=0Forn=600To4000Forx=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.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),vbGreenIfAbs(Ff+Fw-Ft)1ThenText26.Text=Ua'求最高车速UamaxNextxNextnEndSubPrivateSubCommand2_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)Fori=1To11Picture1.Line(10*i,0)-(10*i,0.05)Picture1.CurrentX=10*i-3:Picture1.CurrentY=-0.05:Picture1.Print10*iNextiFori=1To9Picture1.Line(0,0.5*i)-(2,0.5*i)Picture1.CurrentX=-8:Picture1.CurrentY=0.5*i+0.05:Picture1.Print0.5*iNextiPicture1.CurrentX=-3:Picture1.CurrentY=-0.03:Picture1.Print0Picture1.CurrentX=110:Picture1.CurrentY=0.2:Picture1.PrintUa(km/h))西华大学实验报告第页Picture1.CurrentX=3:Picture1.CurrentY=4.8:Picture1.Printa(m/s^2)Dimig(4)AsSingleig(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*aForn=600To4000Forx=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.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)/r西华大学实验报告第页a=(Ft-Ff-Fw)/(δ*m)Ifa0ThenGoToLabel1'不画加速度小于0的部分Picture1.PSet(Ua,a),vbBlueLabel1:NextxNextnEndSubPrivateSubCommand3_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)Fori=1To11Picture1.Line(10*i,0)-(10*i,0.05)Picture1.CurrentX=10*i-3:Picture1.CurrentY=-0.05:Picture1.Print10*iNextiFori=1To9Picture1.Line(0,0.5*i)-(2,0.5*i)Picture1.CurrentX=-8:Picture1.CurrentY=0.5*i+0.05:Picture1.Print0.5*iNextiPicture1.CurrentX=-4:Picture1.CurrentY=0:Picture1.Print0Picture1.CurrentX=110:Picture1.CurrentY=0.2:Picture1.PrintUa(km/h))Picture1.CurrentX=4:Picture1.CurrentY=4.7:Picture1.Print1/aDimig(4)AsSingleig(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*aForn=600To4000Forx=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.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)If1/a4.8ThenGoToLabel1'不画1/a4.8的部分Picture1.PSet(Ua,1/a),vbRedLabel1:Nextx西华大学实验报告第页NextnEndSubPrivateSubCommand4_Click()'动力特性图Picture1.ClsPicture1.Scale(-