北交列控实验三报告.docVIP

1 实验目标： （1）理解应答器报文结构和填写方式。 （2）完成应答器报文的解码，并理解应答器报文的应用方式。 （3）理解 ETCS 语言的应用。 1.1 实验预期 当列车经过应答器组的时候，会收到它们提供的信息。本实验所编写程序，即应答器信息读取部分，需能正确解析出信息包【ETCS-27】、信息包【CTCS-1】，并提取出有用的信息计算该应答器组中存储的闭塞分区长度和线路限速，输出给仿真环境，由仿真环境进行数据的进一步转换，变为ATPprotection()程序的输入，完成线路数据的使用，正确完成超速防护的功能。 2．实验过程 2.1 程序流程图 2.2 程序代码 Dim i As Single Dim j As Single Dim s As Long Dim k As Long Dim NID_SIGNAL1(100) As Single Dim L_SECTION1(100) As Single Dim NID_SIGNAL As Single Dim L_SECTION As Single Dim D_STATIC As Long Dim V_STATIC As Long Dim N_ITER As Long Dim Q_SCALE As Long Dim NID_PACKET As Long Dim L_PACKET As Long L_PACKET = ff.GetValueOfVar(13, 60, Telegram) NID_PACKET = ff.GetValueOfVar(8, 50, Telegram) If NID_PACKET = 27 Then sLineAllowSpeed(0, 0) = 0 D_STATIC = ff.GetValueOfVar(15, 75, Telegram) V_STATIC = ff.GetValueOfVar(7, 90, Telegram) N_ITER = ff.GetValueOfVar(5, 103, Telegram) If N_ITER = 1 Then D_STATIC = ff.GetValueOfVar(15, 108, Telegram) sLineAllowSpeed(0, 1) = V_STATIC * 5 sLineAllowSpeed(1, 0) = D_STATIC End If If N_ITER = 2 Then sLineAllowSpeed(0, 1) = V_STATIC * 5 D_STATIC = ff.GetValueOfVar(15, 108, Telegram) sLineAllowSpeed(1, 0) = D_STATIC V_STATIC = ff.GetValueOfVar(7, 123, Telegram) sLineAllowSpeed(1, 1) = V_STATIC * 5 End If End If NID_PACKET = ff.GetValueOfVar(8, 50 + L_PACKET, Telegram) If NID_PACKET = 44 Then j = 0 Q_SCALE = ff.GetValueOfVar(2, 97 + L_PACKET, Telegram) If Q_SCALE = 0 Then k = 0.1 End If If Q_SCALE = 1 Then k = 1 End If If Q_SCALE = 2 Then k = 10 End If NID_SIGNAL = ff.GetValueOfVar(4, 114 + L_PACKET, Telegram) L_SECTION = ff.GetValueOfVar(15, 123 + L_PACKET, Telegram) s = L_SECT