交通规划容量限制增量加载计算机程序代码.docx
- 文档编号:5989582
- 上传时间:2023-01-02
- 格式:DOCX
- 页数:40
- 大小:19.99KB
交通规划容量限制增量加载计算机程序代码.docx
《交通规划容量限制增量加载计算机程序代码.docx》由会员分享,可在线阅读,更多相关《交通规划容量限制增量加载计算机程序代码.docx(40页珍藏版)》请在冰豆网上搜索。
交通规划容量限制增量加载计算机程序代码
分配率K=10%
PrivateSubCommand1_Click()
Form2.Hide
Form1.Show
EndSub
PrivateSubCommand2_Click()
Form2.Hide
Form3.Show
EndSub
DimsAsString
Dimt0(1To12)AsDouble
DimfAsDouble
PrivateSubCommand1_Click()
Dimv,c,eAsInteger
Dimt(9)AsDouble
v=InputBox("请输入路段的设计速度",,50)
c=InputBox("请输入路网外框路段的容量",,750)
Text1.Text=(Val(Text1.Text)/v)*(1+0.15*(q/c)^4)
Text2.Text=(Val(Text2.Text)/v)*(1+0.15*(q/c)^4)
Text3.Text=(Val(Text3.Text)/v)*(1+0.15*(q/c)^4)
Text4.Text=(Val(Text4.Text)/v)*(1+0.15*(q/c)^4)
Text5.Text=(Val(Text5.Text)/v)*(1+0.15*(q/c)^4)
Text6.Text=(Val(Text6.Text)/v)*(1+0.15*(q/c)^4)
Text7.Text=(Val(Text7.Text)/v)*(1+0.15*(q/c)^4)
Text8.Text=(Val(Text8.Text)/v)*(1+0.15*(q/c)^4)
Text9.Text=(Val(Text9.Text)/v)*(1+0.15*(q/c)^4)
Text10.Text=(Val(Text10.Text)/v)*(1+0.15*(q/c)^4)
Text11.Text=(Val(Text11.Text)/v)*(1+0.15*(q/c)^4)
Text12.Text=(Val(Text12.Text)/v)*(1+0.15*(q/c)^4)
t0
(1)=Val(Text1.Text)
t0
(2)=Val(Text2.Text)
t0(3)=Val(Text3.Text)
t0(4)=Val(Text4.Text)
t0(5)=Val(Text5.Text)
t0(6)=Val(Text6.Text)
t0(7)=Val(Text7.Text)
t0(8)=Val(Text8.Text)
t0(9)=Val(Text9.Text)
t0(10)=Val(Text10.Text)
t0(11)=Val(Text11.Text)
t0(12)=Val(Text12.Text)
EndSub
PrivateSubCommand10_Click()
Text29.Text="":
Text30.Text="":
Text31.Text="":
Text32.Text=""
Text33.Text="":
Text34.Text="":
Text35.Text="":
Text36.Text=""
Text37.Text="":
Text38.Text="":
Text39.Text="":
Text40.Text=""
Text41.Text="":
Text42.Text="":
Text43.Text="":
Text44.Text=""
Text45.Text="":
Text46.Text="":
Text47.Text="":
Text48.Text=""
Text49.Text="":
Text50.Text="":
Text51.Text="":
Text52.Text=""
DimX,Y,z,s,m,n,oAsInteger
z=InputBox("请输入第三次OD量分配率",,0.15)
n=0.55
T123=Val(Text1.Text)+Val(Text2.Text)
T14523=Val(Text3.Text)+Val(Text6.Text)+Val(Text4.Text)+Val(Text2.Text)
T14563=Val(Text3.Text)+Val(Text6.Text)+Val(Text7.Text)+Val(Text5.Text)
T12369=Val(Text1.Text)+Val(Text2.Text)+Val(Text5.Text)+Val(Text10.Text)
T12569=Val(Text1.Text)+Val(Text4.Text)+Val(Text7.Text)+Val(Text10.Text)
T12589=Val(Text1.Text)+Val(Text4.Text)+Val(Text9.Text)+Val(Text12.Text)
T14569=Val(Text3.Text)+Val(Text6.Text)+Val(Text7.Text)+Val(Text10.Text)
T14589=Val(Text3.Text)+Val(Text6.Text)+Val(Text8.Text)+Val(Text12.Text)
T14789=Val(Text3.Text)+Val(Text8.Text)+Val(Text11.Text)+Val(Text12.Text)
q=750
q1=750
'A-B
IfT123 IfVal(Text14.Text*n)<=qThen Text29.Text=Text14.Text*n Text31.Text=Text14.Text*n Else Text29.Text=q Text31.Text=q EndIf EndIf 'A-C IfVal(Text3.Text)+Val(Text8.Text) IfVal(Text15.Text*n)<=qThen Text33.Text=Text15.Text*n Text43.Text=Text15.Text*n Else Text33.Text=q Text43.Text=q EndIf EndIf'由于城市道路网四周网阻抗相同C-A,B-A,B-D,D-B,c-D,D-c分配流量方法相同 Text30.Text=IIf(Val(Text17.Text*n)<=q,Val(Text17.Text*n),q) Text32.Text=IIf(Val(Text17.Text*n)<=q,Val(Text17.Text*n),q) Text37.Text=IIf(Val(Text26.Text*n)<=q,Val(Text26.Text*n),q) Text47.Text=IIf(Val(Text26.Text*n)<=q,Val(Text26.Text*n),q) Text50.Text=IIf(Val(Text24.Text*n)<=q,Val(Text24.Text*n),q) Text52.Text=IIf(Val(Text24.Text*n)<=q,Val(Text24.Text*n),q) Text49.Text=IIf(Val(Text27.Text*n)<=q,Val(Text27.Text*n),q) Text51.Text=IIf(Val(Text27.Text*n)<=q,Val(Text27.Text*n),q) Text34.Text=IIf(Val(Text21.Text*n)<=q,Val(Text21.Text*n),q) Text44.Text=IIf(Val(Text21.Text*n)<=q,Val(Text21.Text*n),q) Text38.Text=IIf(Val(Text20.Text*n)<=q,Val(Text20.Text*n),q) Text48.Text=IIf(Val(Text20.Text*n)<=q,Val(Text20.Text*n),q) 'A-D流量分配 f=IIf(T12369 f=IIf(f f=IIf(f f=IIf(f f=IIf(f SelectCasef CaseIs=T14569 temp=Val(Text33.Text) Ifq-Val(Text33.Text) Text33.Text=q Text29.Text=Val(Text29.Text)+temp+Val(Text16.Text*n)-q Text35.Text=Val(Text35.Text)+temp+Val(Text16.Text*n)-q Else Text33.Text=Val(Text33.Text)+Val(Text16.Text*n) Text35.Text=0 EndIf Text39.Text=Val(Text33.Text)-temp Text41.Text=Val(Text33.Text)-temp Text48.Text=Val(Text48.Text)+Val(Text33.Text)-temp Text45.Text=Val(Text45.Text)+Val(Text35.Text) Text52.Text=Val(Text52.Text)+Val(Text35.Text) EndSelect 'B-C流量分配 T36987=Val(Text5.Text)+Val(Text10.Text)+Val(Text12.Text)+Val(Text11.Text) T32147=Val(Text2.Text)+Val(Text1.Text)+Val(Text3.Text)+Val(Text8.Text) T32547=Val(Text2.Text)+Val(Text4.Text)+Val(Text6.Text)+Val(Text8.Text) T32587=Val(Text2.Text)+Val(Text4.Text)+Val(Text9.Text)+Val(Text11.Text) T36547=Val(Text5.Text)+Val(Text7.Text)+Val(Text6.Text)+Val(Text8.Text) T36587=Val(Text5.Text)+Val(Text7.Text)+Val(Text9.Text)+Val(Text11.Text) f=IIf(T36987 f=IIf(f f=IIf(f f=IIf(f f=IIf(f SelectCasef CaseT36547 temp1=Val(Text38.Text) temp2=Val(Text43.Text) temp9=IIf(q-temp1 Iftemp9 Text38.Text=Val(Text38.Text)+temp9 Text32.Text=Val(Text32.Text)+Val(Text19.Text*n)-temp9 Text35.Text=Val(Text35.Text)+Val(Text19.Text*n)-temp9 Text42.Text=Val(Text42.Text)+temp9 Else Text38.Text=Val(Text38.Text)+Val(Text19.Text*n) EndIf Ifq-temp2 Text40.Text=q-temp2 Text43.Text=q Text45.Text=Val(Text45.Text)+Val(Text19.Text*n)-q+temp2 Text49.Text=Val(Text49.Text)+Val(Text19.Text*n)-q+temp2 Else Text40.Text=Val(Text40.Text)+Text19.Text*n Text43.Text=Val(Text19.Text*n)+Val(Text43.Text) EndIf EndSelect 'A-D和D-A;B-C和C-B寻找最短路径方法一样并且路径也相同 'C-B temp3=q1-Val(Text39.Text) temp4=q-Val(Text44.Text) Iftemp3 temp5=temp3 ElseIftemp3=temp4Then temp5=temp3 Else temp5=temp4 EndIf Iftemp5 Text44.Text=Val(Text44.Text)+temp5 Text39.Text=Val(Text39.Text)+temp5 Text50.Text=Val(Text50.Text)+Val(Text22.Text*n)-temp5 Text46.Text=Val(Text46.Text)+Val(Text22.Text*n)-temp5 Else Text44.Text=Val(Text44.Text)+Val(Text22.Text*n) Text39.Text=Val(Text39.Text)+Val(Text22.Text*n) EndIf temp6=q1-Val(Text41.Text) temp7=q-Val(Text37.Text) Iftemp6 temp8=temp6 ElseIftemp6=temp7Then temp8=temp6 Else temp8=temp7 EndIf Iftemp8 Text41.Text=Val(Text41.Text)+temp8 Text37.Text=Val(Text37.Text)+temp8 Text36.Text=Val(Text36.Text)+Val(Text22.Text*n)-temp8 Text31.Text=Val(Text31.Text)+Val(Text22.Text*n)-temp8 Else Text41.Text=Val(Text41.Text)+Val(Text22.Text*n) Text37.Text=Val(Text37.Text)+Val(Text22.Text*n) EndIf 'D-A temp10=q1-Val(Text42.Text) temp11=q-Val(Text47.Text) temp12=IIf(temp10 Iftemp12 Text47.Text=Val(Text47.Text)+temp12 Text42.Text=Val(Text42.Text)+temp12 Text51.Text=Val(Text51.Text)+Val(Text25.Text*n)-temp12 Text46.Text=Val(Text46.Text)+Val(Text25.Text*n)-temp12 Else Text47.Text=Val(Text47.Text)+Val(Text25.Text*n) Text42.Text=Val(Text42.Text)+Val(Text25.Text*n) EndIf Text40.Text=Text39.Text Text34.Text=Text33.Text Text36.Text=Text35.Text Text30.Text=Text29.Text Text46.Text=Text45.Text Text42.Text=Text41.Text EndSub PrivateSubCommand11_Click() v=50 c=750 e=750 Text1.Text=t0 (1)*(1+0.15*(Val(Text29.Text)/c)^4) Text2.Text=t0 (2)*(1+0.15*(Val(Text31.Text)/c)^4) Text3.Text=t0(3)*(1+0.15*(Val(Text33.Text)/c)^4) Text4.Text=t0(4)*(1+0.15*(Val(Text35.Text)/e)^4) Text5.Text=t0(5)*(1+0.15*(Val(Text37.Text)/c)^4) Text6.Text=t0(6)*(1+0.15*(Val(Text39.Text)/e)^4) Text7.Text=t0(7)*(1+0.15*(Val(Text41.Text)/e)^4) Text8.Text=t0(8)*(1+0.15*(Val(Text43.Text)/c)^4) Text9.Text=t0(9)*(1+0.15*(Val(Text45.Text)/e)^4) Text10.Text=t0(10)*(1+0.15*(Val(Text47.Text)/c)^4) Text11.Text=t0(11)*(1+0.15*(Val(Text49.Text)/c)^4) Text12.Text=t0(12)*(1+0.15*(Val(Text51.Text)/c)^4) EndSub PrivateSubCommand12_Click() Text29.Text="": Text30.Text="": Text31.Text="": Text32.Text="" Text33.Text="": Text34.Text="": Text35.Text="": Text36.Text="" Text37.Text="": Text38.Text="": Text39.Text="": Text40.Text="" Text41.Text="": Text42.Text="": Text43.Text="": Text44.Text="" Text45.Text="": Text46.Text="": Text47.Text="": Text48.Text="" Text49.Text="": Text50.Text="": Text51.Text="": Text52.Text="" DimX,Y,z,s,m,n,oAsInteger z=InputBox("请输入第四次OD量分配率",,0.1) n=0.65 T123=Val(Text1.Text)+Val(Text2.Text) T14523=Val(Text3.Text)+Val(Text6.Text)+Val(Text4.Text)+Val(Text2.Text) T14563=Val(Text3.Text)+Val(Text6.Text)+Val(Text7.Text)+Val(Text5.Text) T12369=Val(Text1.Text)+Val(Text2.Text)+Val(Text5.Text)+Val(Text10.Text) T12569=Val(Text1.Text)+Val(Text4.Text)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 交通 规划 容量 限制 增量 加载 计算机 程序代码