交通运输工程学上机实验指导书vb.docVIP

交通与汽车工程学院 《交通运输工程学》 实验指导书 适用专业: 交通运输 课程代码: 106011009 学时: 4 学分: 编写单位:汽车与交通学院 编 写 人: 童 岱 审 核 人: 曾 传 华 审 批 人: 孙 仁 云 目 录 实验一 运输量预测………………………………………………………………………2 实验二 货运车辆的优化利用……………………………………………………………5 实验一 运输量预测 实验目的和任务 本实验是为了配合课堂教学“交通运输调查与预测”的内容而设立，通过学生编程并上机实验，使学生加深对运输量预测知识的理解，熟练掌握指数平滑法、回归分析法等常用预测方法，增加对运输量的感性认识。 实验仪器、设备及材料 计算机及其程序设计软件。 实验原理及步骤 1、运输量预测系统框图 用户身份检验后进入本系统 用户身份检验后进入本系统 输入历年的观察数据 选择预测模型 模型1 是否组合预测 输出结果 组合预测 预备 预测结束 是 否 2、实验内容及步骤 制作运输量预测系统主控界面 制作预测方法选择界面 分别制作各种预测方法的主控界面 分别对该界面的各控件确定属性，并对数据输入、预测和退出等命令按纽编写程序。 3、主要过程程序举例 （1）VFP语言：二次曲线模型的预测click事件程序 private b,c,l,s1,s2,s3,d,z use 原始观察值 l=thisform.text1.value delete all for 观测值=0 pack n=reccount() b=观测值 c=b d=b select 2 use 指数平滑值表 delete all pack append blank replace n_ypz with b,n_epz with b,n_spz with b select 1 for i=1 to n s1=a*观测值+(1-a)*b b=s1 s2=a*s1+(1-a)*c c=s2 s3=a*s2+(1-a)*d d=s3 select 2 append blank replace n_ysz with a.观测值,n_ypz with s1,n_epz with s2,n_spz with s3 select 1 skip endfor select 2 browse go bottom x=3*n_ypz-3*n_epz+n_spz y=a*((6-5*a)*n_ypz-2*(5-4*a)*n_epz+(4-3*a)*n_spz)/(2*(1-a)*(1-a)) z=a*(n_ypz-2*n_epz+n_spz)/(2*(1-a)*(1-a)) p=x+y*l+z*l*l c_show=预测的运输量为：+str(p,6,2) thisform.label2.caption=c_show thisform.refresh （2）实例二VB语言： Private Type material xm As String * 5 ym As String * 5 End Type Private Sub Command1_Click() Dim sj(1 To 19) As Single Dim k As Integer, i As Integer Dim lx As String Open App.Path + \原始数据.txt For Random As #1 Len = Len(sj(i)) lx = Val(InputBox(请输入要该数据类型（X 或 Y）：)) i = InputBox(请输入数据位置（如第四个X的数据请输入“4” If lx = X Then k = 2 * i - 1 Else k = 2 * i sj(i) = InputBox(请输入修改后的数据：) Put #1, k, sj(i) Close #1 End Sub Private Sub Command2_Click() Dim a As Single, b As Single Dim xx As Single, yy As Single Dim x As Single, y As Single Dim c As Single, d As Single, e As Single, f As Single Dim sj1(1 To 19) As material Dim n As Integer Open App.Pa