交通规划——容量限制增量加载计算机程序代码
分配率K=5
Form1:
Private Sub Command1_Click()
Form1.Hide
Form2.Show
End Sub
Form2:
Private Sub Command1_Click()
Form2.Hide
Form1.Show
End Sub
Private Sub Command2_Click()
Form2.Hide
Form3.Show
End Sub
Form3:
Dim s As String
Dim t0(1 To 12) As Double
Dim f As Double
Private Sub Command1_Click()
Dim v, c, e As Integer
Dim t(9) As Double
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)
End Sub
Private Sub Command2_Click()
Dim X, Y, z, s, m, n, o As Integer
X = InputBox("请输入第一次OD量分配率", , 0.3)
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(Text6.Text) + Val(Text11.Text) + Val(Text12.Text)
q = 750
q1 = 750
'A-B
If T123 < T14523 And T123 < T14563 Then
If Val(Text14.Text * X) <= q Then
Text29.Text = Text14.Text * X
Text31.Text = Text14.Text * X
Else
Text29.Text = q
Text31.Text = q
End If
End If
'A-C
If Val(Text3.Text) + Val(Text8.Text) < Val(Text1.Text) + Val(Text6.Text) + V al(Text4.Text) + Val(Text8.Text) And Val(Text1.Text) + Val(Text2.Text) < Val(Text1.Text) + Val(Text4.Text) + Val(Text9.Text) + Val(Text11.Text) Then
If Val(Text15.Text * X) <= q Then
Text33.Text = Text15.Text * X
Text43.Text = Text15.Text * X
Else
Text33.Text = q
Text43.Text = q
End If
End If
'由于城市道路网四周网阻抗相同 C - A, B - A, B - D, D - B, c - D, D - c分配流量方法相同
Text30.Text = IIf(Val(Text17.Text * X) <= q, Val(Text17.Text * X), q)
Text32.Text = IIf(Val(Text17.Text * X) <= q, Val(Text17.Text * X), q)
Text37.Text = IIf(Val(Text26.Text * X) <= q, Val(Text26.Text * X), q)
Text47.Text = IIf(Val(Text26.Text * X) <= q, Val(Text26.Text * X), q)
Text50.Text = IIf(Val(Text24.Text * X) <= q, Val(Text24.Text * X), q)
Text52.Text = IIf(Val(Text24.Text * X) <= q, Val(Text24.Text * X), q)
Text49.Text = IIf(Val(Text27.Text * X) <= q, Val(Text27.Text * X), q)
Text51.Text = IIf(Val(Text27.Text * X) <= q, Val(Text27.Text * X), q)
Text34.Text = IIf(Val(Text21.Text * X) <= q, Val(Text21.Text * X), q)
Text44.Text = IIf(Val(Text21.Text * X) <= q, Val(Text21.Text * X), q)
Text38.Text = IIf(Val(Text20.Text * X) <= q, Val(Text20.Text * X), q)
Text48.Text = IIf(Val(Text20.Text * X) <= q, Val(Text20.Text * X), q)
'A-D流量分配
f = IIf(T12369 < T12569, T12369, T12569)
f = IIf(f < T12589, f, T12589)
f = IIf(f < T14569, f, T14569)
f = IIf(f < T14589, f, T14589)
f = IIf(f < T14789, f, T14789)
Select Case f
Case Is = T14569
temp = Val(Text33.Text)
If q - Val(Text33.Text) < Val(Text16.Text * X) Then
Text33.Text = q
Text29.Text = Val(Text29.Text) + temp + Val(Text16.Text * X) - q
Text35.Text = Val(Text35.Text) + temp + Val(Text16.Text * X) - q
Else
Text33.Text = Val(Text33.Text) + Val(Text16.Text * X)
Text35.Text = 0
End If
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)
End Select
'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)
f = IIf(f < T32547, f, T32547)
f = IIf(f < T32587, f, T32587)
f = IIf(f < T36547, f, T36547)
f = IIf(f < T36587, f, T36587)
Select Case f
Case T36547
temp1 = Val(Text38.Text)
temp2 = Val(Text43.Text)
temp9 = IIf(q - temp1 < q - temp2, q - temp1, q - temp2)
If temp9 < Val(Text19.Text * X) Then
Text38.Text = Val(Text38.Text) + temp9
Text32.Text = Val(Text32.Text) + Val(Text19.Text * X) - temp9
Text35.Text = Val(Text35.Text) + Val(Text19.Text * X) - temp9
Text42.Text = Val(Text42.Text) + temp9
Else
Text38.Text = Val(Text38.Text) + Val(Text19.Text * X)
End If
If q - temp2 < Val(Text19.Text * X) Then
Text40.Text = q - temp2
Text43.Text = q
Text45.Text = Val(Text45.Text) + Val(Text19.Text * X) - q + temp2
Text49.Text = Val(Text49.Text) + Val(Text19.Text * X) - q + temp2
Else
Text40.Text = Val(Text40.Text) + Text19.Text * X
Text43.Text = Val(Text19.Text * X) + Val(Text43.Text)
End If
End Select
'A-D和D-A;B-C和C-B寻找最短路径方法一样并且路径也相同
'C-B
temp3 = q1 - Val(Text39.Text)
temp4 = q - Val(Text44.Text)
If temp3 < temp4 Then
temp5 = temp3
ElseIf temp3 = temp4 Then
temp5 = temp3
Else
temp5 = temp4
End If
If temp5 < Val(Text22.Text * X) Then
Text44.Text = Val(Text44.Text) + temp5
Text39.Text = Val(Text39.Text) + temp5
Text50.Text = Val(Text50.Text) + Val(Text22.Text * X) - temp5 Text46.Text = Val(Text46.Text) + Val(Text22.Text * X) - temp5 Else
Text44.Text = Val(Text44.Text) + Val(Text22.Text * X)
Text39.Text = Val(Text39.Text) + Val(Text22.Text * X)
End If
temp6 = q1 - Val(Text41.Text)
temp7 = q - Val(Text37.Text)
If temp6 < temp7 Then
temp8 = temp6
ElseIf temp6 = temp7 Then
temp8 = temp6
Else
temp8 = temp7
End If
If temp8 < Val(Text22.Text * X) Then
Text41.Text = Val(Text41.Text) + temp8
Text37.Text = Val(Text37.Text) + temp8
Text36.Text = Val(Text36.Text) + Val(Text22.Text * X) - temp8 Text31.Text = Val(Text31.Text) + Val(Text22.Text * X) - temp8 Else
Text41.Text = Val(Text41.Text) + Val(Text22.Text * X)
Text37.Text = Val(Text37.Text) + Val(Text22.Text * X)
End If
'D-A
temp10 = q1 - Val(Text42.Text)
temp11 = q - Val(Text47.Text)
temp12 = IIf(temp10 < temp11, temp10, temp11)
If temp12 < Val(Text25.Text) Then
Text47.Text = Val(Text47.Text) + temp12
Text42.Text = Val(Text42.Text) + temp12
Text51.Text = Val(Text51.Text) + Val(Text25.Text * X) - temp12 Text46.Text = Val(Text46.Text) + Val(Text25.Text * X) - temp12 Else
Text47.Text = Val(Text47.Text) + Val(Text25.Text * X)
Text42.Text = Val(Text42.Text) + Val(Text25.Text * X)
End If
Text40.Text = Text39.Text
Text34.Text = Text33.Text
Text36.Text = Text35.Text
Text30.Text = Text29.Text
Text46.Text = Text45.Text
Text42.Text = Text41.Text
End Sub
Private Sub Command3_Click()
v = 50
c = 630
e = 900
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)
End Sub
Private Sub Command4_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 = ""
Dim X, Y, z, s, m, n, o As Integer
Y = InputBox("请输入第二次OD量分配率", , 0.25)
m = 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(Text6.Text) + Val(Text11.Text) + Val(Text12.Text)
q = 750
q1 = 750
'A-B
If T123 < T14523 And T123 < T14563 Then
If Val(Text14.Text * m) <= q Then
Text29.Text = Text14.Text * m
Text31.Text = Text14.Text * m
Else
Text29.Text = q
Text31.Text = q
End If
End If
'A-C
If Val(Text3.Text) + Val(Text8.Text) < Val(Text1.Text) + Val(Text6.Text) + Val(Text4.Text) + Val(Text8.Text) And Val(Text1.Text) + Val(Text2.Text) < Val(Text1.Text) + Val(Text4.Text) + Val(Text9.Text) + Val(Text11.Text) Then
If Val(Text15.Text * m) <= q Then
Text33.Text = Text15.Text * m
Text43.Text = Text15.Text * m
Else
Text33.Text = q
Text43.Text = q
End If
End If
'由于城市道路网四周网阻抗相同 C - A, B - A, B - D, D - B, c - D, D - c分配流量方法相同
Text30.Text = IIf(Val(Text17.Text * m) <= q, Val(Text17.Text * m), q)
Text32.Text = IIf(Val(Text17.Text * m) <= q, Val(Text17.Text * m), q)
Text37.Text = IIf(Val(Text26.Text * m) <= q, Val(Text26.Text * m), q)
Text47.Text = IIf(Val(Text26.Text * m) <= q, Val(Text26.Text * m), q)
Text50.Text = IIf(Val(Text24.Text * m) <= q, Val(Text24.Text * m), q)
Text52.Text = IIf(Val(Text24.Text * m) <= q, Val(Text24.Text * m), q)
Text49.Text = IIf(Val(Text27.Text * m) <= q, Val(Text27.Text * m), q)
Text51.Text = IIf(Val(Text27.Text * m) <= q, Val(Text27.Text * m), q)
Text34.Text = IIf(Val(Text21.Text * m) <= q, Val(Text21.Text * m), q)
Text44.Text = IIf(Val(Text21.Text * m) <= q, Val(Text21.Text * m), q)
Text38.Text = IIf(Val(Text20.Text * m) <= q, Val(Text20.Text * m), q)
Text48.Text = IIf(Val(Text20.Text * m) <= q, Val(Text20.Text * m), q)
'A-D流量分配
f = IIf(T12369 < T12569, T12369, T12569)
f = IIf(f < T12589, f, T12589)
f = IIf(f < T14569, f, T14569)
f = IIf(f < T14589, f, T14589)
f = IIf(f < T14789, f, T14789)
Select Case f
Case Is = T14569
temp = Val(Text33.Text)
If q - Val(Text33.Text) < Val(Text16.Text * m) Then
Text33.Text = q
Text29.Text = Val(Text29.Text) + temp + Val(Text16.Text * m) - q
Text35.Text = Val(Text35.Text) + temp + Val(Text16.Text * m) - q
Else
Text33.Text = Val(Text33.Text) + Val(Text16.Text * m)
Text35.Text = 0
End If
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)
End Select
'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)
f = IIf(f < T32547, f, T32547)
f = IIf(f < T32587, f, T32587)
f = IIf(f < T36547, f, T36547)
f = IIf(f < T36587, f, T36587)
Select Case f
Case T36547
temp1 = Val(Text38.Text)
temp2 = Val(Text43.Text)
temp9 = IIf(q - temp1 < q - temp2, q - temp1, q - temp2)
If temp9 < Val(Text19.Text * m) Then
Text38.Text = Val(Text38.Text) + temp9
Text32.Text = Val(Text32.Text) + Val(Text19.Text * m) - temp9
Text35.Text = Val(Text35.Text) + Val(Text19.Text * m) - temp9
Text42.Text = Val(Text42.Text) + temp9
Else
Text38.Text = Val(Text38.Text) + Val(Text19.Text * m)
End If
If q - temp2 < Val(Text19.Text * m) Then
Text40.Text = q - temp2
Text43.Text = q
Text45.Text = Val(Text45.Text) + Val(Text19.Text * m) - q + temp2 Text49.Text = Val(Text49.Text) + Val(Text19.Text * m) - q + temp2 Else
Text40.Text = Val(Text40.Text) + Text19.Text * m
Text43.Text = Val(Text19.Text * m) + Val(Text43.Text)
End If
End Select
'A-D和D-A;B-C和C-B寻找最短路径方法一样并且路径也相同'C-B
temp3 = q1 - Val(Text39.Text)
temp4 = q - Val(Text44.Text)
If temp3 < temp4 Then
temp5 = temp3
ElseIf temp3 = temp4 Then
temp5 = temp3
Else
temp5 = temp4
End If
If temp5 < Val(Text22.Text * m) Then
Text44.Text = Val(Text44.Text) + temp5
Text39.Text = Val(Text39.Text) + temp5
Text50.Text = Val(Text50.Text) + Val(Text22.Text * m) - temp5
Text46.Text = Val(Text46.Text) + Val(Text22.Text * m) - temp5
Else
Text44.Text = Val(Text44.Text) + Val(Text22.Text * m)
Text39.Text = Val(Text39.Text) + Val(Text22.Text * m)
End If
temp6 = q1 - Val(Text41.Text)
temp7 = q - Val(Text37.Text)
If temp6 < temp7 Then
temp8 = temp6
ElseIf temp6 = temp7 Then
temp8 = temp6
Else
temp8 = temp7
End If
If temp8 < Val(Text22.Text * m) Then
Text41.Text = Val(Text41.Text) + temp8
Text37.Text = Val(Text37.Text) + temp8
Text36.Text = Val(Text36.Text) + Val(Text22.Text * m) - temp8 Text31.Text = Val(Text31.Text) + Val(Text22.Text * m) - temp8 Else
Text41.Text = Val(Text41.Text) + Val(Text22.Text * m)
Text37.Text = Val(Text37.Text) + Val(Text22.Text * m)
End If
'D-A
temp10 = q1 - Val(Text42.Text)
temp11 = q - Val(Text47.Text)
temp12 = IIf(temp10 < temp11, temp10, temp11)
If temp12 < Val(Text25.Text * m) Then
Text47.Text = Val(Text47.Text) + temp12
Text42.Text = Val(Text42.Text) + temp12
Text51.Text = Val(Text51.Text) + Val(Text25.Text * m) - temp12 Text46.Text = Val(Text46.Text) + Val(Text25.Text * m) - temp12 Else
Text47.Text = Val(Text47.Text) + Val(Text25.Text * m)
Text42.Text = Val(Text42.Text) + Val(Text25.Text * m)
End If
Text40.Text = Text39.Text
Text34.Text = Text33.Text
Text36.Text = Text35.Text
Text30.Text = Text29.Text
Text46.Text = Text45.Text
Text42.Text = Text41.Text
End Sub
Private Sub Command5_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)
End Sub
Private Sub Command6_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 = ""
Dim X, Y, z, s, m, n, o As Integer
z = InputBox("请输入第三次OD量分配率", , 0.2)
n = 0.75
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(Text6.Text) + Val(Text11.Text) + Val(Text12.Text)
q = 750
q1 = 750
'A-B
If T123 < T14523 And T123 < T14563 Then
If Val(Text14.Text * n) <= q Then
Text29.Text = Text14.Text * n
Text31.Text = Text14.Text * n
Else
Text29.Text = q
Text31.Text = q
End If
End If
'A-C
If Val(Text3.Text) + Val(Text8.Text) < Val(Text1.Text) + Val(Text6.Text) + Val(Text4.Text) + Val(Text8.Text) And Val(Text1.Text) + Val(Text2.Text) < Val(Text1.Text) + Val(Text4.Text) + Val(Text9.Text) + Val(Text11.Text) Then
If Val(Text15.Text * n) <= q Then
Text33.Text = Text15.Text * n
Text43.Text = Text15.Text * n
Else
Text33.Text = q
Text43.Text = q
End If
End If
'由于城市道路网四周网阻抗相同 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 < T12569, T12369, T12569)
f = IIf(f < T12589, f, T12589)
f = IIf(f < T14569, f, T14569)
f = IIf(f < T14589, f, T14589)
f = IIf(f < T14789, f, T14789)
Select Case f
Case Is = T14569
temp = Val(Text33.Text)
If q - Val(Text33.Text) < Val(Text16.Text * n) Then
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
End If
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)
End Select
'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)
f = IIf(f < T32547, f, T32547)
f = IIf(f < T32587, f, T32587)
f = IIf(f < T36547, f, T36547)
f = IIf(f < T36587, f, T36587)
Select Case f
Case T36547
temp1 = Val(Text38.Text)
temp2 = Val(Text43.Text)
temp9 = IIf(q - temp1 < q - temp2, q - temp1, q - temp2)
If temp9 < 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
Else
Text38.Text = Val(Text38.Text) + Val(Text19.Text * n)
End If
If q - temp2 < Val(Text19.Text * n) Then
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)
End If
End Select
'A-D和D-A;B-C和C-B寻找最短路径方法一样并且路径也相同
'C-B
temp3 = q1 - Val(Text39.Text)
temp4 = q - Val(Text44.Text)
If temp3 < temp4 Then
temp5 = temp3
ElseIf temp3 = temp4 Then
temp5 = temp3
Else
temp5 = temp4
End If
If temp5 < 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 Else
Text44.Text = Val(Text44.Text) + Val(Text22.Text * n)
Text39.Text = Val(Text39.Text) + Val(Text22.Text * n)
End If
temp6 = q1 - Val(Text41.Text)
temp7 = q - Val(Text37.Text)
If temp6 < temp7 Then
temp8 = temp6
ElseIf temp6 = temp7 Then
temp8 = temp6
Else
temp8 = temp7
End If
If temp8 < Val(Text22.Text * n) Then
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)
End If
'D-A
temp10 = q1 - Val(Text42.Text)
temp11 = q - Val(Text47.Text)
temp12 = IIf(temp10 < temp11, temp10, temp11)
If temp12 < 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 Else
Text47.Text = Val(Text47.Text) + Val(Text25.Text * n)
Text42.Text = Val(Text42.Text) + Val(Text25.Text * n)
End If
Text34.Text = Text33.Text
Text36.Text = Text35.Text
Text30.Text = Text29.Text
Text46.Text = Text45.Text
Text42.Text = Text41.Text
End Sub
Private Sub Command7_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)
End Sub
Private Sub Command8_Click()
'由于上次分配已经有部分路段达到了容量限制；需要寻找新的最短路径，来分配交通流;14,47,45,56路段容量已满。
s = InputBox("请输入第一次OD量分配率", , 0.15)
q = 750
q1 = 750
'对A-B，A-C，B-D，C-D，进行分配
Text30.Text = Val(Text30.Text) + Val(Text14.Text) * s + Val(Text16.Text) * s
Text32.Text = Val(Text32.Text) + Val(Text14.Text) * s + Val(Text16.Text) * s
Text33.Text = Val(Text33.Text) + Val(Text15.Text) * s
Text35.Text = Val(Text35.Text) + Val(Text16.Text) * s + Val(Text19.Text) * s
Text37.Text = Val(Text37.Text) + Val(Text20.Text) * s
Text43.Text = Val(Text43.Text) + Val(Text15.Text) * s
Text45.Text = Val(Text45.Text) + Val(Text16.Text) * s + Val(Text19.Text) * s
Text47.Text = Val(Text47.Text) + Val(Text20.Text) * s
Text49.Text = Val(Text49.Text) + Val(Text19.Text) * s + Val(Text24.Text) * s
Text52.Text = Val(Text52.Text) + Val(Text16.Text) * s + Val(Text24.Text) * s
'B-A,C-A,B-D,D-C和D-A,C-B的寻找最短路径方法同上
Text31.Text = Text32.Text
Text34.Text = Text33.Text
Text36.Text = Text35.Text
Text38.Text = Text37.Text
Text44.Text = Text43.Text
Text48.Text = Text47.Text
Text46.Text = Text45.Text
Text50.Text = Text49.Text
Text51.Text = Text52.Text
End Sub
Private Sub Command9_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)
End Sub
Private Sub Command10_Click()
'由于上次分配已经有部分路段达到了容量限制；需要寻找新的最短路径，来分配交通流;14,47,45,56路段容量已满。
s = InputBox("请输入第一次OD量分配率", , 0.1)
q = 750
q1 = 750
'对A-B，A-C，B-D，C-D，进行分配
Text30.Text = Val(Text30.Text) + Val(Text14.Text) * s + Val(Text16.Text) * s
Text32.Text = Val(Text32.Text) + Val(Text14.Text) * s + Val(Text16.Text) * s
Text33.Text = Val(Text33.Text) + Val(Text15.Text) * s
Text35.Text = Val(Text35.Text) + Val(Text16.Text) * s + Val(Text19.Text) * s
Text37.Text = Val(Text37.Text) + Val(Text20.Text) * s
Text43.Text = Val(Text43.Text) + Val(Text15.Text) * s
Text45.Text = Val(Text45.Text) + Val(Text16.Text) * s + Val(Text19.Text) * s
Text47.Text = Val(Text47.Text) + Val(Text20.Text) * s
Text49.Text = Val(Text49.Text) + Val(Text19.Text) * s + Val(Text24.Text) * s
Text52.Text = Val(Text52.Text) + Val(Text16.Text) * s + Val(Text24.Text) * s
'B-A,C-A,B-D,D-C和D-A,C-B的寻找最短路径方法同上
Text29.Text = Text30.Text
Text31.Text = Text32.Text
Text34.Text = Text33.Text
Text36.Text = Text35.Text
Text38.Text = Text37.Text
Text44.Text = Text43.Text
Text48.Text = Text47.Text
Text46.Text = Text45.Text
Text50.Text = Text49.Text
Text51.Text = Text52.Text
MsgBox "流量分配完成", 0, "确认"
End Sub
Private Sub Command11_Click()
Form3.Hide
Form2.Show
End Sub
Private Sub Command12_Click()
MsgBox "感谢使用!!!", 0, "确认结束"
End
End Sub
计算机潮流计算程序代码
G(5,5)=6.250;B(5,5)=-18.750;G(5,2)=-5.00;B(5,2)=15.000; G(5,3)=-1.250;B(5,3)=3.750;G(5,4)=0;B(5,4)=0; G(5,1)=0;B(5,1)=0; G(2,5)=-5.00;B(2,5)=15.000;G(2,2)=10.834;B(2,2)=-32.500;G(2,3)=-1.677;B(2,3)=5.00; G(2,4)=-1.667;B(2,4)=5.00;G(2,1)=-2.500;B(2,1)=7.500; G(3,5)=-1.250;B(3,5)=3.750;G(3,2)=-1.667;B(3,2)=5.00;G(3,3)=12.917;B(3,3)=-38.750; G(3,4)=-10.000;B(3,4)=30.000;G(3,1)=0;B(3,1)=0; G(4,5)=0;B(4,5)=0;G(4,2)=-1.667;B(4,2)=5.000;G(4,3)=-10.000;B(4,3)=30.000; G(4,4)=12.917;B(4,4)=-38.750;G(4,1)=-1.250;B(4,1)=3.750; G(1,5)=0;B(1,5)=0;G(1,2)=-2.500;B(1,2)=7.500;G(1,3)=0;B(1,3)=0; G(1,4)=-1.250;B(1,4)=3.750;G(1,1)=3.750;B(1,1)=-11.250; Y=G+j*B delt(1)=0; delt(2)=0; delt(3)=0; delt(4)=0; u(1)=1.0; u(2)=1.0; u(3)=1.0; u(4)=1.0; ps(2)=0.2;qs(2)=0.20;ps(3)=-0.45;qs(3)=-0.15; ps(4)=-0.4;qs(4)=-0.05; ps(1)=-0.6;qs(1)=-0.1; k=1;precision=1; N1=4; while precision>0.0001 delt(5)=0;u(5)=1.06; for m=1:N1 for n=1:N1+1 pt(n)=u(m)*u(n)*(G(m,n)*cos(delt(m)-delt(n))+B(m,n)*sin(delt(m)-delt(n))); qt(n)=u(m)*u(n)*(G(m,n)*sin(delt(m)-delt(n))-B(m,n)*cos(delt(m)-delt(n))); end pi(m)=sum(pt);qi(m)=sum(qt); dp(m)=ps(m)-pi(m); dq(m)=qs(m)-qi(m); end for m=1:N1 for n=1:N1 if m==n H(m,m)=-qi(m)-u(m)^2*B(m,m); N(m,m)=pi(m)+u(m)^2*G(m,m); J(m,m)=pi(m)-u(m)^2*G(m,m); L(m,m)=qi(m)-u(m)^2*B(m,m); JJ(2*m-1,2*m-1)=H(m,m); JJ(2*m-1,2*m)=N(m,m); JJ(2*m,2*m-1)=J(m,m); JJ(2*m,2*m)=L(m,m); else H(m,n)=u(m)*u(n)*(G(m,n)*sin(delt(m)-delt(n))-B(m,n)*cos(delt(m)-delt(n))); J(m,n)=-u(m)*u(n)*(G(m,n)*cos(delt(m)-delt(n))+B(m,n)*sin(delt(m)-delt(n))); N(m,n)=-J(m,n);L(m,n)=H(m,n); JJ(2*m-1,2*n-1)=H(m,n);JJ(2*m-1,2*n)=N(m,n); JJ(2*m,2*n-1)=J(m,n); JJ(2*m,2*n)=L(m,n); end
计算机储存单位和换算关系
计算机存储单位一般用B，KB、MB、GB、TB、PB、EB、ZB、YB、BB来表示，它们之间的关系是： 位 bit (比特)(Binary Digits)：存放一位二进制数，即 0 或 1，最小的存储单位。 字节 byte：8个二进制位为一个字节(B)，最常用的单位。 1KB(Kilobyte 千字节) = 2^10 B = 1024 B； 1MB(Megabyte 兆字节) = 2^10 KB = 1024 KB = 2^20 B； 1GB(Gigabyte 吉字节) = 2^10 MB = 1024 MB = 2^30 B； 1TB(Trillionbyte 太字节) = 2^10 GB = 1024 GB = 2^40 B； 1PB(Petabyte 拍字节) = 2^10 TB = 1024 TB = 2^50 B； 1EB(Exabyte 艾字节) = 2^10 PB = 1024 PB = 2^60 B； 1ZB(Zettabyte 泽字节) = 2^10 EB = 1024 EB = 2^70 B； 1YB(Y ottaByte 尧字节) = 2^10 ZB = 1024 ZB = 2^80 B； 1BB(Brontobyte ) = 2^10 YB = 1024 YB = 2^90 B； 1NB(NonaByte ) = 2^10 BB = 1024 BB = 2^100 B； 1DB(DoggaByte) = 2^10 NB = 1024 NB = 2^110 B； 1KB (Kilobyte 千字节)=1024B， 1MB (Megabyte 兆字节简称“兆”)=1024KB， 1GB (Gigabyte 吉字节又称“千兆”)=1024MB， 1TB (Trillionbyte 万亿字节太字节)=1024GB，其中1024=2^10 ( 2 的10次方)， 1PB（Petabyte 千万亿字节拍字节）=1024TB， 1EB（Exabyte 百亿亿字节艾字节）=1024PB， 1ZB (Zettabyte 十万亿亿字节泽字节)= 1024 EB, 1YB (Jottabyte 一亿亿亿字节尧字节)= 1024 ZB, 1BB (Brontobyte 一千亿亿亿字节)= 1024 YB. 注：“兆”为百万级数量单位。 附：进制单位全称及译音 yotta, [尧]它, Y. 10^21, zetta, [泽]它, Z. 10^18, exa, [艾]可萨, E. 10^15, peta, [拍]它 1B (byte 字节)；
世界上公认的第一台电子计算机
C. 小型机 D. 巨型机 1. 世界上公认的第一台电子计算机【 】是 1946 年诞生。 A. ENIAC C. EDVAC B. EDSAC D. IBM PC 2. 下列不属于信息基本特性的是【 】。 A. 信息的凝缩性 B. 信息的可共享性 C. 信息的有限性 D. 信息的扩散性 3. 用计算机进行情报检索， 属于计算机应用中的【 】。 A. 科学计算 B. 人工智能 C. 信息处理 D. 过程控制 4. 下列说法不正确的是【 】。 A. 比特是事物存在的一种状态 B. 数据就是信息 C. 信息可以具有与数据相同的形式 D. 数据是人或机器能识别并处理的符号 5. 操作系统是在计算机发展的【 】出现的。 A. 第一代 B. 第三代 C. 第二代 D. 第四代 6. 就工作原理而论，世界上不同型号的计算机，一般认为是基于匈牙利籍的科学家冯 诺依曼提出的【 】原理。 A. 二进制数 B. 布尔代数 C. 开关电路 D. 存储程序 7. 以二进制和程序控制为基础的计算机结构是由【 】最早提出的。 A. 布尔 B. 卡诺 C. 冯. 诺依曼 D. 图灵 8. 最早推出微处理器的时间是【 】。 A. 1946 B. 1965 C. 1971 D. 1978 9. 电子计算机之所以能够快速、自动、准确地按照人们意图进行工作，其最主要的原 因是【 】。 A. 存储程序 B. 采用逻辑器件 C. 总线结构 D. 识别控制代码 10. 现代通用电子数字计算机其内部使用【 】数制。 11. 现代通用电子数字计算机按其功能可分为【 】等几种类型。 A. 模拟计算机和数字计算机 B. C. 巨型，大型，中型，小型，微型 D. 12. 国产银河数字式电子计算机是属于【 】。 A. 二进制数 B. C. 十进制数 D. 八进制数 十六进制数 A. 中型机 B. 微型机 科学计算，数据处理，人工智能 便携，台式，微型
基于51单片机的计算器设计程序代码汇编
DBUF EQU 30H TEMP EQU 40H YJ EQU 50H ;结果存放 YJ1 EQU 51H ;中间结果存放GONG EQU 52H ;功能键存放 ORG 00H START: MOV R3,#0 ;初始化显示为空MOV GONG,#0 MOV 30H,#10H MOV 31H,#10H MOV 32H,#10H MOV 33H,#10H MOV 34H,#10H MLOOP: CALL DISP ;PAN调显示子程序WAIT: CALL TESTKEY ; 判断有无按键JZ WAIT CALL GETKEY ;读键 INC R3 ;按键个数 CJNE A,#0,NEXT1 ; 判断就是否数字键 LJMP E1 ; 转数字键处理NEXT1: CJNE A,#1,NEXT2 LJMP E1 NEXT2: CJNE A,#2,NEXT3 LJMP E1 NEXT3: CJNE A,#3,NEXT4 LJMP E1 NEXT4: CJNE A,#4,NEXT5 LJMP E1 NEXT5: CJNE A,#5,NEXT6 LJMP E1 NEXT6: CJNE A,#6,NEXT7 LJMP E1 NEXT7: CJNE A,#7,NEXT8 LJMP E1 NEXT8: CJNE A,#8,NEXT9 LJMP E1 NEXT9: CJNE A,#9,NEXT10 LJMP E1 NEXT10: CJNE A,#10,NEXT11 ;判断就是否功能键LJMP E2 ;转功能键处理NEXT11: CJNE A,#11,NEXT12 LJMP E2 NEXT12: CJNE A,#12, NEXT13 LJMP E2
磁盘存储容量计算
存储系统计算总结 一．磁盘存储容量计算 磁盘容量有两种指标，一种是非格式化容量，指一个磁盘所能存储的总位数；另一种是格式化容量，指各扇区中数据区容量总和。 公式有： 记录密度（存储密度）：一般用磁道密度和位密度来表示。 磁道密度：指沿磁盘半径方向，单位长度内磁道的条数。 (1)总磁道数=记录面数×磁道密度×(外直径-内直径)÷2 (2)非格式化容量=位密度×3.14×最内圈直径×总磁道数 (3)格式化容量=每道扇区数×扇区容量×总磁道数 (4)平均数据传输速率=最内圈直径×3.14×位密度×盘片转速 或： 非格式化容量=面数×（磁道数/面）×内圆周长×最大位密度 格式化容量=面数×（磁道数/面）×（扇区数/道）×（字节数/扇区） 例1：假设一个硬盘有3个盘片，共4个记录面，转速为7200r/min,盘面有效记录区域 的外直径为30cm ，内直径为10cm ，记录位密度为250b/mm ，磁道密度为8道/mm ， 每磁道分16个扇区，每扇区512字节，试计算该磁盘的非格式化容量，格式化容量 和数据传输率。 答： 非格式化容量=最大位密度×最内圈周长×总磁道数 最内圈周长=100*3.1416=314.16mm 每记录面的磁道数=(150-50)×8=800道； 因此，每记录面的非格式化容量=314.16×250×800/8=7.5M 格式化容量=每道扇区数×扇区容量×总磁道数=16×512×800×4/1024/1024=25M 硬盘平均数据传输率公式： 平均数据传输率=每道扇区数×扇区容量×盘片转速=16×512×7200/60=960kb/s 二．数据线和地址线的计算： 的位数，这里算出来是11位；4是一个存储单元的位数，也就是数据线的位数，所以这个芯片的地址线11位，数据线4位。 三．存储容量（1字节=8位二进制信息）及换算： 例：CPU 地址总线为32根则可以寻址322=4G 的存储空间 1KB=102B=1024Byte 1MB=202B=1024KB 1GB=302B=1024MB 1TB=402B=1024GB 1PB=502B=1024TB 1EB=602B=1024PB 四．用存储器芯片构成半导体存储器（主存储器组成） 用现成的集成电路芯片构成一个一定容量的半导体存储器，大致要完成以下四项工作： 1、根据所需要的容量大小，确定所需芯片的数目 2、完成地址分配，设计片号信号译码器 3、实现总线（DBUS ，ABUS ，CBUS ）连接 4、解决存储器与CPU 的速度匹配问题 下面通过一个简单例子，说明如何用现成芯片来构成一个存储器。 扇区 磁道
计算机中容量单位B、KB、MB、GB和TB的关系
字节（Byte,简称B）与K、KB、M、MB的关系 计算机中各种存储容量的单位都是用字节（Byte简为B）来表示，此外还有KB、MB、GB和TB，他们的关系是： 1KB=1024Bytes=2的10次方Bytes 1MB=1024KB=2的20次方Bytes 1GB=1024MB=2的30次方Bytes 1TB=1024GB=2的40次方Bytes B（字节）、KB（K）、MB（M、兆）、GB（G）、TB 是大小不同的单位。 B ：B就是Byte（字节）的简称，它是一个电脑存储的基本单位。1字节=8 位，就是有8个二进制数组成。1个英文字符是1个字节,也就是1B；1个汉字为2个字符，也就是2B。 K （KB）：K 是千的意思，K就是KB，1024字节为1KB，即：1024B=1KB M （MB、兆）：M 是兆的意思，M就是MB，1024KB=1MB G（GB）：1024 MB = 1 GB TB：还有TB一般用的就不多了，1TB=1024GB K、M、G都是KB、MB、GB的简称。平时我们说的1兆就是1M（MB），1（发音“计”）就是1G（GB）。我们的照片一般是104KB、209KB、1.45MB、2.45MB、3.32MB等等。 K=KB、M=MB、 1MB=1024KB 1024 B = 1 KB ；1024 KB = 1 MB ；1024 MB = 1 GB K=kilo KB=kilobyte M=mega MB=megabyte Kb=kilobit Mb=megabit 1KB=1024Bytes=2的10次方Bytes 1MB=1024KB=2的20次方Bytes
计算机联锁试卷
（A 卷） 2、 双机热备系统中，双机之间的通信采用 _ 3、 计算机联锁系统中的总线一般分为三类，即 4、 计算机联锁系统软件按照层次结构可分为 ____________ 层、 _____________ 层 和 ________________ 层。 5、 计算机联锁系统中联锁数据包括 ______________ 和 _____________ 两大类，其 中联锁静态数据结构有 _______________________ 和 ________________________ 。 6联锁机与执行层的联系方式有 _______________ 和 _____________ 两种方式。 7、TYJL-II 型计算机联锁系统其联锁机双机切换有 _____________ 和 ___________ 两 种控制方式。 8、TYJL - II 型计算机联锁系统联锁机柜有 ____________ 电源、 ____________ 电源 和驱动电源。 9、 DS6-11计算机联锁系统的光隔驱动电路用于产生 _________ 种状态码 10、 计算机联锁系统应具有对室外连锁设备的 ________ 功能。 1、TYJL - TR9型联锁机采用了 结构。 A 、双机热备 B 、2乘2取2 C 、3取2 D 、其他结构 2 、EI32-JD 电务维修机的主要功能是： _________ A 、站场状态显示 B 、为电务维护人员提供设备维护和管理信息 C 、联锁运算 D 、接受并向联锁机发送按钮命令 3 、计算机联锁为TDCS 微机监测系统等提供接口的是 ______________ 。 （A ）上位机 （B ）下位机 （C ）采集机 （D ）电务维修机 4 、下列计算机联锁设备类型中，不属于双机热备机型的是 填空题（每空1分，共20 分） 1、信号设备的接地电阻值不大于 欧姆。 通信方式。 二、选择题（每小题2分，共20分）
C经典程序代码大全
//根据半径计算圆的周长和面积#include 1、第一台电子计算机；ENIAC:(Electronic Numerical Integrator and Calculator)1946年由美国 宾夕法尼亚大学研制成功 2、现代电子计算机之父冯·偌依曼 3、1946年美籍匈牙利人冯·偌依曼提出了存储程序原理，奠定了计算机的基本结构和工作 原理等技术基础。 4、冯·偌依曼计算机原理（具备三个特点）: 1.存储程序原理： 1)将程序和数据存放在计算机内部的存储器中 2)能够自动地执行程序 按此原理设计的计算机称为存储程序计算机，或称为冯·偌依曼结构计算机。 2.计算机内部采用的是二进制编码。任何信息的数据在数字电子计算机内都用“0”和“1”的各种组合来表示。 5、3.五大功能部件: 运算器 控制器 存储器 输入设备 输出设备 6、1949年由莫利斯.威尔克制造的第一台存储程序计算机EDSAC 7、计算机发展的几个阶段(按电子器件): ?第一代(1946-1959) 电子管几千条(次/秒) ?第二代(1959-1964) 晶体管几万至几十万条(次/秒) ?第三代(1964-1972) 中小规模集成电路几十万-几百万条(次/秒) ?第四代(1972-至今) 大规模和超大规模集成电路 上千万至亿万条(次/秒) 8、计算机的特点；高速、精确的运算能力、准确的逻辑判断能力、强大的存储能力、自动能力、网络与通信功能。 9、计算机的应用；科学计算 ?数据/信息处理 ?过程控制 ?计算机辅助：CAD、CAM、CAI ?网络通信 ?人工智能 ?多媒体应用 ?嵌入式系统 10、计算机的发展方向；微型化 ?巨型化 ?网络化 ?智能化 11、计算机中的数据： 百度知道版： 请参阅Baidu百科的回答： source code 源程序是指未编译的文本代码。 验证码主要是为防止暴利破解，所以需要防止图片识别。所以验证码一般情况下为书写不正规，且有随机的背景杂点，或杂线 源代码（也称源程序），是指一系列人类可读的计算机语言指令。 在现代程序语言中，源代码可以是以书籍或者磁带的形式出现，但最为常用的格式是文本文件，这种典型格式的目的是为了编译出计算机程序。计算机源代码的最终目的是将人类可读的文本翻译成为计算机可以执行的二进制指令，这种过程叫做编译，通过编译器完成。 作用： 源代码主要功用有如下2种作用： 生成目标代码，即计算机可以识别的代码。 对软件进行说明，即对软件的编写进行说明。为数不少的初学者，甚至少数有经验的程序员都忽视软件说明的编写，因为这部分虽然不会在生成的程序中直接显示，也不参与编译。但是说明对软件的学习、分享、维护和软件复用都有巨大的好处。因此，书写软件说明在业界被认为是能创造优秀程序的良好习惯，一些公司也硬性规定必须书写。 需要指出的是，源代码的修改不能改变已经生成的目标代码。如果需要目标代码做出相应的修改，必须重新编译。 代码组合： 源代码作为软件的特殊部分，可能被包含在一个或多个文件中。一个程序不必用同一种格式的源代码书写。例如，一个程序如果有C语言库的支持，那么就可以用C语言；而另一部分为了达到比较高的运行效率，则可以用汇编语言编写。 较为复杂的软件，一般需要数十种甚至上百种的源代码的参与。为了降低种复杂度，必须引入一种可以描述各个源代码之间联系，并且如何正确编译的系统。在这样的背景下，修订控制系统（RCS）诞生了，并成为研发者对代码修订的必备工具之一。 还有另外一种组合：源代码的编写和编译分别在不同的平台上实现，专业术语叫做软件移植。 版权： 如果按照源代码类型区分软件，通常被分为两类：自由软件和非自由软件。自由软件一般是不仅可以免费得到，而且公开源代码；相对应地，非自由软件则是不公开源代码。所有一切通过非正常手段获得非自由软件源代码的行为都将被视为非法。 质量： 对于计算机而言，并不存在真正意义上的“好”的源代码；然而作为一个人，好的书写习惯将决定源代码的好坏。源代码是否具有可读性，成为好坏的重要标准。软件文档则是表明可读性的关键。 效率： 虽然我们可以通过不同的语言来实现计算机的 同一功能，但在执行效率上则存在不同。普遍规律是：越高级的语言，其执行效率越低。这也是为什么汇编语言生成的文件比用VB语言生成文件普遍要小的原因。 源代码”在汉英词典中的解释(来源:百度词典)： 1. [Computer] source code (human-readable program statements, written in a high-level 1世界第一台电子计算机的英文名称是_______。 A.ENIAC B.IBM https://www.wendangku.net/doc/6b3503190.html, D.PC 2世界第一台电子计算机于_______年诞生。 A.1940 B.1946 C.1960 D.1980 3电子计算机的划代原则有许多中，若按采用的电子器件划分第四代电子计算机是指_______。 A.电子管计算机 B.晶体管计算机 C.集成电路计算机 D.大规模集成电路计算机 4电子计算机的划代原则有许多中，若按采用的电子器件划分第一代电子计算机是指_______。 A.电子管计算机 B.晶体管计算机 C.集成电路计算机 D.大规模集成电路计算机 5下列逻辑运算中级别最高的运算符是_______。 A.And B.Or C.Not 6下列逻辑运算中级别最低的运算符是_______。 A.And B.Or C.Not 7当一个表达式同时包含算术运算和关系运算时, 其运算的优先级为_______。 A.算术运算高于逻辑运算 B.算术运算低于关系运算 8当一个表达式同时包含关系运算和逻辑运算时其运算的优先级为_______。 A.关系运算高于逻辑运算 B.关系运算低于逻辑运算 9人类赖以生存的三大要素是物质、能源、_______。 A.信息 B.信息技术 C.因特网 D.电脑 10 有关信息技术一词的含义, 以下说法正确的是 _______。 A.信息技术就是指计算机技术和通讯技术。 B.信息技术就是数据编码的技术。 C.信息技术是实现对信息的获取、加工、存储、传输、标识和应用等功能的技术。 D.信息技术就是指计算机技术和网络技术。 11 _______ 是事物运动的状态和方式，他的基本功能是消除认识上的不确定性。 A.数据 B.信息 C.信号 D.知识 12 _______ 是当今世界上其他工具无法替代的信息处理工具。 A.计算机 B.因特网 C.电子邮件 D.CPU 13 现代的计算机系统都属于_________体系。 A.比尔·盖茨 B.冯·诺依曼 C.唐纳德·希斯 D.温顿·瑟夫 14 电子计算机从第一代到第四代，其基本的设计思想和工作方式采用的_________体系。 A.比尔·盖茨 B.冯·诺依曼 C.人工智能型 D.Intel 15 电子计算机的硬件系统基本由_________五个部分组成。 A.输入设备、内存储器、外存储器、运算器、输出设备 B.输入设备、内存储器、外存储器、控制器、输出设备 C.输入设备、存储器、运算器、控制器、输出设备 VB 做简易计算机程序代码 Private Sub Command1_Click() '每点击一下该按钮,就在文本框的尾部加字符"0" '如果txtLabel为空,则说明现在正在输入的第一个数字 '负责表示输入的是第二个数字 If txtLabel.Text = "" Then txtFirst.Text = txtFirst.Text + "0" Else txtSecond.Text = txtSecond.Text + "0" End If End Sub Private Sub Command10_Click() If txtLabel.Text = "" Then txtFirst.Text = txtFirst.Text + "8" Else txtSecond.Text = txtSecond.Text + "8" End If End Sub Private Sub Command11_Click() If txtLabel.Text = "" Then txtFirst.Text = txtFirst.Text + "9" Else txtSecond.Text = txtSecond.Text + "9" End If End Sub Private Sub Command12_Click() txtLabel.Text = "加" End Sub Private Sub Command13_Click() txtLabel.Text = "减" End Sub Private Sub Command14_Click() txtLabel.Text = "乘" End Sub Private Sub Command15_Click() txtLabel.Text = "除" 室外三大设备：色灯信号机、转辙机、轨道电路。 双热系统的工作状态：①工作状态（正在使用的设备）②热备状态（电源灯亮）③冷机状态（A机工作，B机只供电） 计算机连锁几大系列：①铁科院：TYJL-Ⅱ型、TYJL-TR9型②通号总公司：DS6系列、DS6-11、DS6-K5B③北京交大：JD-1A、EI32-JD④卡斯柯：CIS-1型⑤全电子单元：VPI型。 总线：是一组公用信号线的集合，通过这组公用信号线把计算机系统中的各个模板以及各种设备连接成一个整体，以便彼此之间进行信息交换。 总线分类：系统总线（内）、通信总线（外）、现场总线（CAN）。 基本原理框图 信号机道岔轨道 计算机联锁系统硬件： 主要有人机对话设备：联锁控制计算机系统（主机） 输入/输出通道接口：继电器结合电路 监控对象：主机：上位机（操作表示机或控制显示机或监视控制机）、下位机（联锁处理机）维修机（监测机） 计算机连锁系统软件：系统软件和应用软件 联锁程序：①操作输入模块②操作命令形成模块③操作命令执行模块④进路处理模块⑤状态输入模块⑥控制命令输出模块7表示信息输出模块 系统软件包括：①标准程序库②语言处理程序③操作系统④服务型程序⑤数据库管理系统⑥网络软件。作用：管理整个计算机系统、监视服务、使系统资源得到合理调度、确保高效运行。 TYJL-Ⅱ组成：控制台、监控机、联锁机、执表机和电务维修机。功能：①控制台：显示站场状态，接受操作命令，将操作人员的操作命令传输给监控机。②联锁机：实现与监控机和执表机的通信调度、实现信号设备的联锁逻辑处理、采集现场信号设备状态③执表机：接收联锁发出的执行命令、采集站场信号设备状态、输出动态控制命令④电务维修机：屏幕显示、记录、图像再现。 系统切换：实现切换功能，必须解决双机通信、双机同步、单机自检测和双机切换四个技术问题。 备机状态：脱机、联锁和热备同步。 Power ：电源指示灯HDD：硬盘工作指示灯KB-LK：键盘锁指示灯红色自复式按钮：复位蓝色自复式按键：键盘锁。 DS6-11组成：控制台子系统、监测子系统、联锁子系统、输入输出接口。 控制台子系统：组成控制显示微机、行车控制台、站场显示设备和控显机转换。功能：采集按钮操作信息，采集联锁机发来的站场设备状态信息和控制命令输出的回读信息、控制显示器显示站场操作及报警信息。 监测：实现对联锁系统设备开关量的监测、实现对信号设备模拟量的检测。 输入输出接口：通过开关量输入接口采集现场信号设备的状态信息，有网络接收控显机发来操作命令信息，经联锁运算形成控制命令，通过开关量输出接口，驱动有关继电器，实现对道岔信号机的控制。 三种状态：工作、热备和冷机状态。 指示灯：电源灯（红色）、运行灯（绿色）、控制灯（黄色）、同步灯（绿色） JD-ⅠA控制特点：分散控制、集中管理。包括：人机对话层、联锁运算层、执行层。结构：G型系统为标准型结构，S型系统为小型结构，L型系统为大型系统。组成：1、操作执表机2、联锁机3、电务维修机4电源5接口电路6防雷。 操作表示机：接受车站值班员的操作命令，并通过网络通信传给联锁机，接收来自联锁机的站场数据和提示信息，在显示器或控制台上显示站场情况，系统工作状态、提示信息及报警信息。操表机通过操作表示切换单元到运转室配线。 联锁机：接收操作表示机下发的操作命令，通过输入接口电路采集站场状态信息，进行连锁运算，根据运算结果，通过输出接口电路控制接口继电器动作，将站场状态信息、提示信息、故障信息传送给执表机。实现无缝切换。 四种状态：停机、主机、热备、同步校核状态。 电务维修机：接收执表机传来的站场状态、操作、表示、故障信息，实时监测车站、联锁系统运行情况、记录车站值班员操作情况，联锁故障以及故障原因。 系统切换：JD-ⅠA两台联锁A和B都基于自律原则设计的，没有主从时先入为主 网络运行状态显示：红线：网络故障绿线：网络正常青蓝线、青蓝字：执表机/联锁机失去表示白线、白字：操表机/联锁机工作黄线、黄字：操表机/联锁机热备天蓝线、天蓝字：操表机/联锁机主控红线、红字：操表机/联锁机故障 Power 电源指示灯H D D 硬盘工作指示灯KB-LK 键盘锁指示灯红色自复式按钮复位蓝色自复式按钮键盘锁 循环控制输出图案 【程序1】 题目：输出9*9口诀。 1.程序分析：分行与列考虑，共9行9列，i控制行，j控制列。 2.程序源代码： #include "stdio.h" main() { int i,j,result; printf("\n"); for (i=1;i<10;i++) { for(j=1;j<10;j++) { result=i*j; printf("%d*%d=%-3d",i,j,result);/*-3d表示左对齐，占3位*/ } printf("\n");/*每一行后换行*/ } } 【程序2】 题目：要求输出国际象棋棋盘。 1.程序分析：用i控制行，j来控制列，根据i+j的和的变化来控制输出黑方格，还是白方格。 2.程序源代码： #include "stdio.h" main() { int i,j; for(i=0;i<8;i++) { for(j=0;j<8;j++) if((i+j)%2==0) printf("%c%c",219,219); else printf(" "); printf("\n"); } } ============================================================== 【程序3】 题目：打印楼梯，同时在楼梯上方打印两个笑脸。 1.程序分析：用i控制行，j来控制列，j根据i的变化来控制输出黑方格的个数。 2.程序源代码： #include "stdio.h" main() { int i,j; printf("\1\1\n");/*输出两个笑脸*/ for(i=1;i<11;i++) { for(j=1;j<=i;j++) printf("%c%c",219,219); printf("\n"); } } 【程序4】 题目：打印出如下图案（菱形） * *** ****** ******** ****** *** * 1.程序分析：先把图形分成两部分来看待，前四行一个规律，后三行一个规律，利用双重 for循环，第一层控制行，第二层控制列。 2.程序源代码： main() { int i,j,k; for(i=0;i<=3;i++) { for(j=0;j<=2-i;j++) printf(" "); for(k=0;k<=2*i;k++) printf("*"); printf("\n"); } for(i=0;i<=2;i++) { for(j=0;j<=i;j++) printf(" "); for(k=0;k<=4-2*i;k++) printf("*"); printf("\n"); } } TYJL-II型计算机联锁系统 操作手册 HT/LS2001-研1-05 编制年月日 审核年月日 批准年月日 车站计算机联锁事业部 北京市华铁信息技术开发总公司 目录 1．引言 (1) 1．1 编写目的 (1) 1．2 简介 (1) 1．3 定义 (1) 1．4 参考资料 (1) 2．系统结构 (2) 3．数字化仪和鼠标的操作说明 (3) 3．1 屏幕显示 (3) 3．2 按钮设置 (5) 3．3 进路的办理与操作 (8) 3．4 溜放作业 (11) 3．5 闭塞办理 (14) 3．6 进路引导接车 (15) 3．7 引导总锁闭 (15) 3．8 应急台和引导总锁闭按钮盘 (15) 3．9 站间联系 (16) 3．10 场间联系 (16) 3．11 与机务段联系 (16) 3．12 与编发线联系 (17) 3．13 与驼峰场双重控制信号机 (17) 3．14 到达场与驼峰头部的联系 (17) 3．15 坡道延续进路的办理方法 (17) 3．16 局部控制道岔 (17) 3．17 非进路调车 (18) 3．18 出发场与驼峰尾部的联系 (18) 1．引言 1．1 编写目的 编写本操作手册，是为了使车务操作人员和电务维修人员熟练掌握本系统的操作，1．2 简介 车站计算机联锁系统(以下简称计算机联锁)是一种新型的铁路车站自动控制设备, 在保证安全的前提下, 以最经济、合理的技术措施提高运输效率, 改善劳动条件, 设备可靠, 维修方便, 便于联网。 计算机联锁根据作业情况可办理列车、调车作业，单独操作道岔和单独锁闭道岔，引导 接车或引导总锁闭接车等,有的站还可办理单钩、连续溜放作业，储存溜放进路,具有检查、修改、增钩、减钩的功能。操作方式可采用数字化仪控制台、鼠标或单元控制台,所有作业均在数字化仪上通过点压按钮、用鼠标在屏幕上按压“按钮”或单元控制台上按压按钮进行操作。通过21英寸的彩色监示器(简称CRT) 显示操作的控制命令和现场的设备状态。采用数字化仪＋鼠标＋21英寸彩色监示器代替传统的控制表示合一的控制台，具有体积小、 整洁、使用方便、可靠等特点。屏幕上有各种汉字提示，并通过语音代替电铃报警。若办理进路的操作有误时，在屏幕上将显示办理有误的提示。 计算机联锁系统是双机热备，在同步状态下，故障时可自动切换，切换时不影响进路的办理。亦可进行人工切换，非同步时人工切换必须由电务和车务人员共同确认全场没有办理任何进路时才能进行，并记录切换的原因。人工切换后全场锁闭，由电务和车务人员共同确认机车车列完全停止行走时，通过“上电解锁”按钮进行全场解锁。同步状态下进行人工切换不锁闭进路。 1．3 定义 监控机――系统实现人机界面的计算机。 联锁机――用于联锁运算的计算机，兼执表机的功能。 执表机――计算机联锁系统用于控制车站信号设备和采集现场设备状态的机器。 联锁总线――联锁机、执表机、监控机之间交换与安全有关的信息的通道。 64D――单线半自动。 64F――复线半自动。 1．4 参考资料 1) 微机联锁系统技术条件，铁道部； 2) TB1774—86“继电式电气集中联锁技术条件”，铁道部；1987。1 3) (84) 铁鉴字1486号“平面调车电气集中标准设计意见书”； 4) GB10495，铁路信号技术中采用电子器件时应遵循的主要安全条件； 5)TB铁路信号设计规范；北京1999 6)TB10071－－2000，铁路信号站内联锁设计规范，铁道部； 1.世界上公认的第一台电子计算机【】是1946年诞生。 A. ENIAC B. EDSAC C. EDVAC D. IBM PC 2.下列不属于信息基本特性的是【】。 A. 信息的凝缩性 B. 信息的可共享性 C. 信息的有限性 D. 信息的扩散性 3.用计算机进行情报检索，属于计算机应用中的【】。 A. 科学计算 B. 人工智能 C. 信息处理 D. 过程控制 4. 下列说法不正确的是【】。 A.比特是事物存在的一种状态 B.数据就是信息 C.信息可以具有与数据相同的形式 D.数据是人或机器能识别并处理的符号 5. 操作系统是在计算机发展的【】出现的。 A. 第一代 B. 第三代 C. 第二代 D. 第四代 6. 就工作原理而论，世界上不同型号的计算机，一般认为是基于匈牙利籍的科学家冯.诺依曼提出的【】原理。 A. 二进制数 B. 布尔代数 C. 开关电路 D. 存储程序 7. 以二进制和程序控制为基础的计算机结构是由【】最早提出的。 A. 布尔 B. 卡诺 C. 冯.诺依曼 D. 图灵 8. 最早推出微处理器的时间是【】。 A. 1946 B. 1965 C. 1971 D. 1978 9. 电子计算机之所以能够快速、自动、准确地按照人们意图进行工作，其最主要的原因是【】。 A. 存储程序 B. 采用逻辑器件 C. 总线结构 D. 识别控制代码 10. 现代通用电子数字计算机其内部使用【】数制。 A. 二进制数 B. 八进制数 C. 十进制数 D. 十六进制数 11. 现代通用电子数字计算机按其功能可分为【】等几种类型。 A. 模拟计算机和数字计算机 B. 科学计算，数据处理，人工智能 C. 巨型，大型，中型，小型，微型 D. 便携，台式，微型 12. 国产银河数字式电子计算机是属于【】。 A. 中型机 B. 微型机 C. 小型机 D. 巨型机第一台电子计算机
什么叫源代码(多种说法)
1世界第一台电子计算机的英文名称是
VB 做简易计算机程序代码
计算机联锁
(完整word版)(整理)C语言入门经典案例及源代码.
TYJL-II型计算机联锁系统操作手册
世界上公认的第一台电子计算机资料