列车运行控制实验2..docx

列车运行控制系统实验报告CTCS-2级列控系统行车许可使用摘要： 本次实验主要为编写程序完成站外停车、18号道岔以下侧线接车、18号道岔以上侧线接车以及侧线引导接车的功能。使用程序自带的距离-速度的运算公式从而得出相应的速度限制曲线。再比较实际速度与限制速度，从而得到是制动还是缓解。关键词：1；站外停车2；18号道岔以下侧线接车3；18号道岔以上侧线接车4；侧线引导接车1 实验目的 1）理解CTCS-2 级列车运行控制系统地面设备工作原理。 2）理解CTCS-2 级列控系统车载设备使用MA 的原理。 3）掌握列控系统车载设备基本工作原理。 4）初步具备解决列控系统实际工程问题的能力。2 编写程序ATPprotection的流程框图输出制动缓解制动测速距离读取轨道电路码信息读取应答器信息，获取轨道区段长度计算目标距离和目标速度计算当前位置的速度-距离防护曲线在当前位置的限速确定当前位置处的线路静态限速确定当前位置处的最终限速判断当前速度与限速大小输出制动缓解制动测速距离读取轨道电路码信息读取应答器信息，获取轨道区段长度计算目标距离和目标速度计算当前位置的速度-距离防护曲线在当前位置的限速确定当前位置处的线路静态限速确定当前位置处的最终限速判断当前速度与限速大小输出制动缓解制动测速距离读取轨道电路码信息读取应答器信息，获取轨道区段长度计算目标距离和目标速度计算当前位置的速度-距离防护曲线在当前位置的限速确定当前位置处的线路静态限速确定当前位置处的最终限速判断当前速度与限速大小3 实验程序Dim a As IntegerDim c As IntegerDim b As SingleDim d As SingleDim TargetDistance As SingleDim TargetSpeed As SingleDim TrainAllowSpeed1 As SingleDim TrainAllowSpeed2 As Singleb = 0For a = 0 To 10 b = b + Blocks(a) If b = CurrentPos Then Exit For End IfNextd = 0If TrackSignal = L5 Then For c = 0 To (a + 7) d = d + Blocks(c) Next TargetDistance = d - CurrentPos TargetSpeed = 0End IfIf TrackSignal = L4 Then For c = 0 To (a + 6) d = d + Blocks(c) Next TargetDistance = d - CurrentPos TargetSpeed = 0End IfIf TrackSignal = L3 Then For c = 0 To (a + 5) d = d + Blocks(c) Next TargetDistance = d - CurrentPos TargetSpeed = 0End IfIf TrackSignal = L2 Then For c = 0 To (a + 4) d = d + Blocks(c) Next TargetDistance = d - CurrentPos TargetSpeed = 0End IfIf TrackSignal = L Then For c = 0 To (a + 3) d = d + Blocks(c) Next TargetDistance = d - CurrentPos TargetSpeed = 0End IfIf TrackSignal = LU Then For c = 0 To (a + 2) d = d + Blocks(c) Next TargetDistance = d - CurrentPos TargetSpeed = 0End IfIf TrackSignal = U2S Then For c = 0 To (a + 1) d = d + Blocks(c) Next TargetDistance = d - CurrentPos TargetSpeed = 80End IfIf TrackSignal = U2 Then For c = 0 To (a + 1) d = d + Blocks(c) Next TargetDistance = d - CurrentPos TargetSpeed = 45End IfIf TrackSignal = U Then For c = 0 To (a + 1) d = d + Blocks(c) Next TargetDistance = d - CurrentPos TargetSpe