1、CTCS-2級列控系統行車許可使用班級自動化11042.1實驗目的（1） 理解 CTCS-2 級列車運行控制系統地面設備工作原理。（2） 理解 CTCS-2 級列控系統車載設備使用 MA 的原理。 （3） 掌握列控系統車載設備基本工作原理。 （4） 初步具備解決列控系統實際工程問題的能力。2.1實驗內容列車在裝備 CTCS-2 級列控設備的線路上運行。但是，當前的仿真程序由于車載控車部分的程序不完善，會出現超速或冒進等危險。本實驗要求實驗人員： （1）補充完成 CTCS-2 級車載安全防護程序 ATPprotection，使列車可安全地在該線路上運行（不超速、不冒進），并且能夠完成以下典型場景

2、： l 區間運行 l 正線接車 l 側線接車 l 側線大號碼道岔接車 l 側線引導接車（選做） （2）編寫完成后，請利用仿真程序測試你的程序功能。2.3實驗報告（1） 所編寫程序 ATPprotection 的流程圖。開始計算列車當前所在軌道區段接收軌道電路碼確定前方空閑區段接收CurrentPos確定目標距離及目標速度計算當前曲線限速確定線路限速綜合考慮當前點限速值確定BrakeFlage取值結束（2） 為驗證結果正確所設計的測試案例及測試結果，格式如下： 測試案例 測試程序的正線接車停車功能 測試步驟 1、設置初速度 200km/h，加速運行； 2、選擇正線接車進路類型，直到列車停車； 3

3、、觀察所計算的允許速度曲線是否正確； 4、查看記錄文件。 測試結果 正線接車測試結果截圖正線接車測試案例 測試程序的18號道岔以下接車停車功能 測試步驟 1、設置初速度 200km/h，加速運行； 2、選擇18號道岔以下接車進路類型，直到列車停車； 3、觀察所計算的允許速度曲線是否正確； 4、查看記錄文件。 測試結果 18號道岔以下接車 測試結果截圖18號道岔以下接車測試案例 測試程序的18號道岔以上接車停車功能 測試步驟 1、設置初速度 200km/h，加速運行； 2、選擇18號道岔以下接車進路類型，直到列車停車； 3、觀察所計算的允許速度曲線是否正確； 4、查看記錄文件。 測試結果 18號

4、道岔以上接車 測試結果截圖18號道岔以上接車測試案例 測試程序的側線引導接車停車功能 測試步驟 1、設置初速度 200km/h，加速運行； 2、選擇側線引導接車進路類型，直到列車停車； 3、觀察所計算的允許速度曲線是否正確； 4、查看記錄文件。 測試結果 側線引導接車測試結果截圖側線引導接車（3） 實驗程序Dim i As IntegerDim k As IntegerDim L As SingleDim s As SingleDim j As IntegerDim TargetDistance As SingleDim TargetSpeed As Singles = 0L = 0Targe

5、tDistance = 0For i = 0 To 10 s = s + Blocks(i) If s > CurrentPos Then For j = 0 To i L = L + Blocks(j) Next Exit For End IfNextIf TrackSignal = "L5" Then For k = (i + 1) To (i + 7) TargetDistance = TargetDistance + Blocks(k) NextTargetDistance = TargetDistance + L - CurrentPosTargetSpee

6、d = 0TrainAllowSpeed = ff.CalcLimit(TargetDistance, TargetSpeed)ElseIf TrackSignal = "L4" Then For k = (i + 1) To (i + 6) TargetDistance = TargetDistance + Blocks(k) NextTargetDistance = TargetDistance + L - CurrentPosTargetSpeed = 0TrainAllowSpeed = ff.CalcLimit(TargetDistance, TargetSpee

7、d)ElseIf TrackSignal = "L3" Then For k = (i + 1) To (i + 5) TargetDistance = TargetDistance + Blocks(k) NextTargetDistance = TargetDistance + L - CurrentPosTargetSpeed = 0TrainAllowSpeed = ff.CalcLimit(TargetDistance, TargetSpeed)ElseIf TrackSignal = "L2" Then For k = (i + 1) To

8、(i + 4) TargetDistance = TargetDistance + Blocks(k) NextTargetDistance = TargetDistance + L - CurrentPosTargetSpeed = 0TrainAllowSpeed = ff.CalcLimit(TargetDistance, TargetSpeed)ElseIf TrackSignal = "L" Then For k = (i + 1) To (i + 3) TargetDistance = TargetDistance + Blocks(k) NextTargetD

9、istance = TargetDistance + L - CurrentPosTargetSpeed = 0TrainAllowSpeed = ff.CalcLimit(TargetDistance, TargetSpeed)ElseIf TrackSignal = "LU" Then For k = (i + 1) To (i + 2) TargetDistance = TargetDistance + Blocks(k) NextTargetDistance = TargetDistance + L - CurrentPosTargetSpeed = 0TrainA

10、llowSpeed = ff.CalcLimit(TargetDistance, TargetSpeed)ElseIf TrackSignal = "U" Then k = i + 1 TargetDistance = TargetDistance + Blocks(k) TargetDistance = TargetDistance + L - CurrentPos TargetSpeed = 0 TrainAllowSpeed = ff.CalcLimit(TargetDistance, TargetSpeed)ElseIf TrackSignal = "U2

11、" Then TargetDistance = L + Blocks(9) - CurrentPos TargetSpeed = 45 TrainAllowSpeed = ff.CalcLimit(TargetDistance, TargetSpeed)ElseIf TrackSignal = "UU" Then TargetDistance = L - CurrentPos TargetSpeed = 45 TrainAllowSpeed = ff.CalcLimit(TargetDistance, TargetSpeed)ElseIf TrackSignal

12、= "U2S" Then TargetDistance = L + Blocks(9) - CurrentPos TargetSpeed = 80 TrainAllowSpeed = ff.CalcLimit(TargetDistance, TargetSpeed)ElseIf TrackSignal = "UUS" Then TargetDistance = L - CurrentPos TargetSpeed = 80 TrainAllowSpeed = ff.CalcLimit(TargetDistance, TargetSpeed)ElseIf

13、TrackSignal = "HB" Then TrainAllowSpeed = 40ElseIf TrackSignal = "B" Then TrainAllowSpeed = 40ElseIf TrackSignal = "HU" Then TargetDistance = L - CurrentPos TargetSpeed = 0 TrainAllowSpeed = ff.CalcLimit(TargetDistance, TargetSpeed)End IfIf CurrentPos <= LineAllowSpe

14、ed(1, 0) Then If TrainAllowSpeed > LineAllowSpeed(0, 1) Then TrainAllowSpeed = LineAllowSpeed(0, 1) End IfElseIf CurrentPos >= LineAllowSpeed(2, 0) Then If TrainAllowSpeed > LineAllowSpeed(2, 1) Then TrainAllowSpeed = LineAllowSpeed(2, 1) End IfElse If TrainAllowSpeed > LineAllowSpeed(1,

15、 1) Then TrainAllowSpeed = LineAllowSpeed(1, 1) End IfEnd IfIf CurrentSpeed > TrainAllowSpeed Then BrakeFlag = TrueElse BrakeFlag = FalseEnd If（4） 總結實驗調試過程中出現的問題，形成調試記錄，格式如下：問題現象描述問題原因解決方法1.需要較多的if判斷語句，有時甚至需要較多的判斷嵌套2.目標距離的計算3.For循環的編寫4.目標速度的計算1.接車情況分為多種，每種情況的軌道序列碼都不一樣；每種軌道序列碼的限速信息不一樣；D1、D2、D3三段軌道

16、的限速信息不一樣；根據列車現行速度和每一點的允許速度，最終輸出制動和緩解制動的情況不一致。2.對每種軌道序列碼前方允許的空閑閉塞分區不一樣；每段軌道長度不一樣；列車目前所在的軌道區段需要確定；3.由于每種軌道序列碼所預示的前方閉塞分區的數目不一樣，列車在不同時刻所在軌道區段不同，所以求取目標距離時for循環的控制次數不一樣4.每種軌道序列碼所限定的目標速度不一致，再加上每段的限制速度，所以情況復雜1.對每種接車情況所用的軌道序列碼分類列舉，不重不漏；用if多重嵌套判斷語句將每種限速信息準確的疊加到TainAllowSpeed2.根據CurrentPos先確定目前列車所在軌道區段；根據接收到的軌

17、道電路碼確定前方空閑閉塞分區數目，并計算空閑閉塞分區的總長度；計算從運行開始區段到目前所在區斷的總距離，用上述兩者之和減去CurrentPos即可。3.根據接收到的軌道序列碼的不同，用if語句分條件求取，并新設變量控制循環次數；每次調用 ATPprotection函數時先用for循環判斷列車當前所在區段。4.先用if語句將每種軌道序列碼所要求的限速分類作為目標速度，調用函數算出當前允許速度，再用if語句加上每段的速度限制（5） 實驗感想總結。這次實驗總體來說難度較大 ，雖然實驗原理我們課上都有學習，但是要將其真正用軟件表現出來還是很困難。首先我們也是第一次用到Excel表格的宏編程，這在以前是沒有接觸到的。但是有了其他編程語言的基礎，上手起來還是可以的。緊接著，就需要把具體的列控系統行車