CTCS-2級列控系統(tǒng)行車許可使用

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

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

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

4、道岔以上接車 測試結(jié)果截圖18號道岔以上接車測試案例 測試程序的側(cè)線引導(dǎo)接車停車功能 測試步驟 1、設(shè)置初速度 200km/h，加速運行； 2、選擇側(cè)線引導(dǎo)接車進(jìn)路類型，直到列車停車； 3、觀察所計算的允許速度曲線是否正確； 4、查看記錄文件。 測試結(jié)果 側(cè)線引導(dǎo)接車測試結(jié)果截圖側(cè)線引導(dǎo)接車（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） 總結(jié)實驗調(diào)試過程中出現(xiàn)的問題，形成調(diào)試記錄，格式如下：問題現(xiàn)象描述問題原因解決方法1.需要較多的if判斷語句，有時甚至需要較多的判斷嵌套2.目標(biāo)距離的計算3.For循環(huán)的編寫4.目標(biāo)速度的計算1.接車情況分為多種，每種情況的軌道序列碼都不一樣；每種軌道序列碼的限速信息不一樣；D1、D2、D3三段軌道

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

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