交通运输学上机实验指导书08(6)vb.docVIP

交通与汽车项目学院 《交通运输学》 实验指导书 适用专业:交通运输、物流管理 交通项目 课程代码:8800260 8234670 学时:6学分: 编写单位:交通与汽车项目学院 编 写 人:童 岱 审 核 人:曾传华 审 批 人:孙 仁 云 目 录 实验一 运输量预测………………………………………………………………………2 实验二 货运车辆的优化利用……………………………………………………………5 实验三 交通枢纽认识实验…………………………………………………………9 实验报告格式及要求………………………………………………………………………10 主要参考文献 ……………………………………………………………………………10 实验一 运输量预测 实验目的和任务 本实验是为了配合课堂教案“交通运输调查与预测”的内容而设立，通过学生编程并上机实验，使学生加深对运输量预测知识的理解，熟练掌握指数平滑法、回归分析法等常用预测方法，增加对运输量的感性认识。 实验仪器、设备及材料 计算机及其程序设计软件。 实验原理及步骤 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