交通规划容量限制增量加载计算机程序代码文档格式.docx
《交通规划容量限制增量加载计算机程序代码文档格式.docx》由会员分享，可在线阅读，更多相关《交通规划容量限制增量加载计算机程序代码文档格式.docx（40页珍藏版）》请在冰豆网上搜索。
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）
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<
T14523AndT123<
T14563Then
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）<
Val（Text1.Text）+Val（Text6.Text）+Val（Text4.Text）+Val（Text8.Text）AndVal（Text1.Text）+Val（Text2.Text）<
Val（Text1.Text）+Val（Text4.Text）+Val（Text9.Text）+Val（Text11.Text）Then
IfVal（Text15.Text*n）<
Text33.Text=Text15.Text*n
Text43.Text=Text15.Text*n
Text33.Text=q
Text43.Text=q
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）<
Text37.Text=IIf（Val（Text26.Text*n）<
=q,Val（Text26.Text*n）,q）
Text47.Text=IIf（Val（Text26.Text*n）<
Text50.Text=IIf（Val（Text24.Text*n）<
=q,Val（Text24.Text*n）,q）
Text52.Text=IIf（Val（Text24.Text*n）<
Text49.Text=IIf（Val（Text27.Text*n）<
=q,Val（Text27.Text*n）,q）
Text51.Text=IIf（Val（Text27.Text*n）<
Text34.Text=IIf（Val（Text21.Text*n）<
=q,Val（Text21.Text*n）,q）
Text44.Text=IIf（Val（Text21.Text*n）<
Text38.Text=IIf（Val（Text20.Text*n）<
=q,Val（Text20.Text*n）,q）
Text48.Text=IIf（Val（Text20.Text*n）<
A-D流量分配
f=IIf（T12369<
T12569,T12369,T12569）
f=IIf（f<
T12589,f,T12589）
T14569,f,T14569）
T14589,f,T14589）
T14789,f,T14789）
SelectCasef
CaseIs=T14569
temp=Val（Text33.Text）
Ifq-Val（Text33.Text）<
Val（Text16.Text*n）Then
Text29.Text=Val（Text29.Text）+temp+Val（Text16.Text*n）-q
Text35.Text=Val（Text35.Text）+temp+Val（Text16.Text*n）-q
Text33.Text=Val（Text33.Text）+Val（Text16.Text*n）
Text35.Text=0
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<
T32147,T36987,T32147）
T32547,f,T32547）
T32587,f,T32587）
T36547,f,T36547）
T36587,f,T36587）
CaseT36547
temp1=Val（Text38.Text）
temp2=Val（Text43.Text）
temp9=IIf（q-temp1<
q-temp2,q-temp1,q-temp2）
Iftemp9<
Val（Text19.Text*n）Then
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
Text38.Text=Val（Text38.Text）+Val（Text19.Text*n）
Ifq-temp2<
Text40.Text=q-temp2
Text45.Text=Val（Text45.Text）+Val（Text19.Text*n）-q+temp2
Text49.Text=Val（Text49.Text）+Val（Text19.Text*n）-q+temp2
Text40.Text=Val（Text40.Text）+Text19.Text*n
Text43.Text=Val（Text19.Text*n）+Val（Text43.Text）
A-D和D-A;
B-C和C-B寻找最短路径方法一样并且路径也相同
C-B
temp3=q1-Val（Text39.Text）
temp4=q-Val（Text44.Text）
Iftemp3<
temp4Then
temp5=temp3
ElseIftemp3=temp4Then
Else
temp5=temp4
Iftemp5<
Val（Text22.Text*n）Then
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
Text44.Text=Val（Text44.Text）+Val（Text22.Text*n）
Text39.Text=Val（Text39.Text）+Val（Text22.Text*n）
temp6=q1-Val（Text41.Text）
temp7=q-Val（Text37.Text）
Iftemp6<
temp7Then
temp8=temp6
ElseIftemp6=temp7Then
temp8=temp7
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
Text41.Text=Val（Text41.Text）+Val（Text22.Text*n）
Text37.Text=Val（Text37.Text）+Val（Text22.Text*n）
D-A
temp10=q1-Val（Text42.Text）
temp11=q-Val（Text47.Text）
temp12=IIf（temp10<
temp11,temp10,temp11）
Iftemp12<
Val（Text25.Text*n）Then
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
Text47.Text=Val（Text47.Text）+Val（Text25.Text*n）
Text42.Text=Val（Text42.Text）+Val（Text25.Text*n）
Text40.Text=Text39.Text
Text34.Text=Text33.Text
Text36.Text=Text35.Text
Text30.Text=Text29.Text
Text46.Text=Text45.Text
Text42.Text=Text41.Text
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）
PrivateSubCommand12_Click（）
请输入第四次OD量分配率"
,0.1）
n=0.65
T12569=Val（Text1.Text）+Val（Text4.Text）
升级会员 