方式分担与交通分配组合模型算法程序.doc

文档介绍：计算机程序代码:
1. 初始界面相关代码:
Private Sub C1_Click()


End Sub
Private Sub exit_Click()
End
End Sub
Private Sub Form_Load()
= True
= 20
= True
End Sub
计算界面相关代码
Private mand1_Click()
Dim o, g, u11, u12, u21, u22, theat1, theat2 As Double
Dim q11, q12, q21, q22, q14, q15, h1, h2, n, sum1, sum2, sum, e As Double

Dim t1(1 To 6) As Double '2种方式的路径时间均值
Dim t2(1 To 6) As Double
Dim d1(1 To 6) As Double '2种方式的路径时间标准差
Dim d2(1 To 6) As Double
Dim C1(1 To 7) As Double '路段通行能力
Dim C2(1 To 7) As Double
Dim t01(1 To 7) As Double '路段自由流时间
Dim t02(1 To 7) As Double
Dim b1(1 To 6) As Double '2种方式的路径出行时间预算
Dim b2(1 To 6) As Double
Dim p1(1 To 6) As Double '2种方式的需求在每条路径上的分配概率
Dim p2(1 To 6) As Double
Dim f1(1 To 6) As Double '2种方式在每条路径上的流量
Dim f2(1 To 6) As Double
Dim f(1 To 6) As Double '每条路径上的总流量
Dim x(1 To 7) As Double '每条路段上的流量
Dim ta1(1 To 7) As Double '2种方式的路段出行时间均值
Dim ta2(1 To 7) As Double
Dim da1(1 To 7) As Double '2种方式的路段出行时间的方差
Dim da2(1 To 7) As Double
Dim y(1 To 7) As Double '路段辅助流量
Dim c(1 To 7) As Double
C1(1) = 3000 '通行能力
C1(2) = 2600
C1(3) = 1200
C1(4) = 1200
C1(5) = 1200
C1(6) = 1200
C1(7) = 1200
C2(1) = 2500
C2(2) = 2500
C2(3) = 1500
C2(4) = 1500
C2(5) = 1500
C2(6) = 1500
C2(7) = 1500
t01(1) = 13 '自由流时间
t01(2) = 12
t01(3) = 9
t01(4) = 15
t01(5) = 10
t01(6) = 18
t01(7) = 14
t02(1) = 10
t02(2) = 16
t02(3) = 11
t02(4) = 13
t02(5) = 17
t02(6) = 14
t02(7) = 12

g = '可靠度ρ=
theta1 = 1 '路径选择分散参数
theta2 = '方式选择分散参数
q14 = 2000 '2个OD对的交通需求
q15 = 2500
h1 = 9 '2种方式的吸引力
h2 = 8
e = Exp(-2) '迭代精度
n = 1 '迭代次数
sum1 = 0
sum2 = 0

If = True Then '判断路段a是否在路径k上
o = 1
End If
If = True Then
End
End If
'初始化
t1(1) = t01(1) + t01(4) '路径时间均值
t1(2) = t01(1) + t01(3) + t01(6)
t1(3) = t01(2) + t01(6)
t1(4) = t0