北交列控实验二报告.docVIP

Time \@ yyyy年M月d日2015年12月2日 Time \@ yyyy年M月d日2015年12月2日 班级：自动化120姓名： 班级：自动化120 姓名： 学号： 指导教师： 袁磊 《列车运行控制技术》实验二报告 ——CTCS-2 级列控系统行车许可使用 1 实验目标： （1）理解 CTCS-2 级列车运行控制系统地面设备工作原理。 （2）理解 CTCS-2 级列控系统车载设备使用 MA 的原理。 （3）掌握列控系统车载设备基本工作原理。 （4）初步具备解决列控系统实际工程问题的能力。 1.1 实验预期 本次实验主要为编写程序完成正线接车、18号道岔以下侧线接车、18号道岔以上侧线接车以及侧线引导接车的功能。使用程序自带的距离-速度的运算公式从而得出相应的速度限制曲线。再比较实际速度与限制速度，从而得到是制动还是缓解。 2．实验过程 2.1 ATPprotection的流程图 2.2 程序代码 Dim p As Integer Public Function ATPProtection(Blocks() As Single, LineAllowSpeed() As Single, TrackSignal As String, CurrentSpeed As Single, CurrentPos As Single) Dim n As Integer Dim i As Integer Dim s As Single Dim TargetDist As Single Dim TargetSpeed As Single If TrackSignal = L5 Then n = 0 s = CurrentPos While s 0 s = s - Blocks(n) n = n + 1 Wend TargetDist = 0 - CurrentPos For i = 0 To n + 6 TargetDist = TargetDist + Blocks(i) Next TargetSpeed = 0 ElseIf TrackSignal = L4 Then n = 0 s = CurrentPos While s 0 s = s - Blocks(n) n = n + 1 Wend TargetDist = 0 - CurrentPos For i = 0 To n + 5 TargetDist = TargetDist + Blocks(i) Next TargetSpeed = 0 ElseIf TrackSignal = L3 Then n = 0 s = CurrentPos While s 0 s = s - Blocks(n) n = n + 1 Wend TargetDist = 0 - CurrentPos For i = 0 To n + 4 TargetDist = TargetDist + Blocks(i) Next TargetSpeed = 0 ElseIf TrackSignal = L2 Then n = 0 s = CurrentPos While s 0 s = s - Blocks(n) n = n + 1 Wend TargetDist = 0 - CurrentPos For i = 0 To n + 3 TargetDist = TargetDist + Blocks(i) Next TargetSpeed = 0 ElseIf TrackSignal = L Then n = 0 s = CurrentPos While s 0 s = s - Blocks(n) n = n + 1 Wend TargetDist = 0 - CurrentPos For i = 0 To n + 2 TargetDist = TargetDist + Blocks(i