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

羈袄袅交通与汽车工程学院螀《交通运输学》蝿实验指导书羆羃腿葿羇适用专业:交通运输、物流管理肂交通工程袂课程代码:88002608234670艿学时:6学分:螅编写单位:交通与汽车工程学院蒄编写人:童岱节审核人:曾传华羀审批人:孙仁云袆薂螁蒆袇羅膀膆蚅肃目录薀羇实验一运输量预测………………………………………………………………………2螆实验二货运车辆的优化利用……………………………………………………………5膁实验三交通枢纽认识实验…………………………………………………………9罿实验报告格式及要求………………………………………………………………………10蚇主要参考文献……………………………………………………………………………10袇薄葿蒈蚅蚂膂膈蚆肅薁羈蒄膃羁虿薅芁实验一运输量预测莀实验目的和任务荿本实验是为了配合课堂教学“交通运输调查与预测”的内容而设立,通过学生编程并上机实验,使学生加深对运输量预测知识的理解,熟练掌握指数平滑法、回归分析法等常用预测方法,增加对运输量的感性认识。薆实验仪器、设备及材料蚄计算机及其程序设计软件。衿实验原理及步骤腿1、运输量预测系统框图莄螂用户身份检验后进入本系统艿输入历年的观察数据袀选择预测模型蒅模型1肅是否组合预测羂输出结果莆组合预测蒆预备芃预测结束莂是肇否芄2、实验内容及步骤莁制作运输量预测系统主控界面螁制作预测方法选择界面袇分别制作各种预测方法的主控界面莅分别对该界面的各控件确定属性,并对数据输入、预测和退出等命令按纽编写程序。蚄3、主要过程程序举例芀薇(1)VFP语言:二次曲线模型的预测click事件程序蒇privateb,c,l,s1,s2,s3,d,z螂use原始观察值蚀l==0芄pack膄n=ount()聿b=观测值肈c=b芅d=b芃select2螃use指数平滑值表袈deleteall莇pack莁appendblank膂replacen_ypzwithb,n_epzwithb,n_spzwithb蕿select1膄fori=1ton螄s1=a*观测值+(1-a)*b蚁b=s1荿s2=a*s1+(1-a)*c膅c=s2袂s3=a*s2+(1-a)*d肁d=,n_ypzwiths1,n_epzwiths2,n_spzwiths3蒀select1螀skip肄endfor莃select2罿browse芆gobottom肆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)=(2)实例二VB语言:羄PrivateTypematerial羂xmAsString*5蒂ymAsString*mand1_Click()袁Dimsj(1To19)AsSingle芈DimkAsInteger,+"\"ForRandomAs#1Len=Len(sj(i))莀lx=Val(InputBox("请输入要该数据类型(X或Y):"))羈i=InputBox("请输入数据位置(如第四个X的数据请输入“4”):")袄Iflx="X"Thenk=2*i-1Elsek=2*i袅sj(i)=InputBox("请输入修改后的数据:")螀Put#1,k,sj(i)蝿Close#mand2_Click()葿DimaAsSingle,bAsSingle羇DimxxAsSingle,yyAsSingle肂DimxAsSingle,yAsSingle袂DimcAsSingle,dAsSingle,eAsSingle,fAsSingle艿Dimsj1(1To19)+"\"ForRandomAs#1Len=Len(sj1(i))节c=0:d=0:e=0:f=0羀Fori=1To19袆Get#1,2*i-1,sj1(i).xm薂Get#1,2*i,sj1(i).ym螁xx=Val(sj1(i).xm)蒆yy=Val(sj1(i).ym)袇c=c+xx*yy羅d=d+xx:e=e+yy膀f=f+xx^2膆Nexti蚅Clos