CTCS2級(jí)列控系統(tǒng)行車許可使用

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

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

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

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

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

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