列车运行控制实验三实验报告材料

word列车运行控制应答器报文组帧实验报告学院：电子信息工程学院班级：自动化1301成员：1/14word目录222333345566712实验目标实验整体目标ETCS语言的应用。实验具体目标Excel号以下道岔侧线接车、18号以上道岔侧线接车和引导接车四种情况，其具体码序与实验二一样，此处不再罗列。2/14word实验过程原理分析应答器报文结构原理收到一个完整的、固定长度的报文帧〔104ETCSETCS语言进展编码后的二进制数据。据。ETCS语言组成关系如下：线路参数相关的应答器信息包定义和提供闭塞分区长度的轨道区段信息包【CTCS-1【ETCS-27】包中针对速度变化点描述定义情况可用如下图表示：3/14word信息包的其他具体结构和变量情况等信息在实验过程中可具体参考实验指导书。2.1.3 整体函数变量情况BaliseBitToByte()函数中，其输入变量和输出变量为：仿真环境excel收它们提供的信息。具体仿真环境结构如如下图所示：4/14word程序编写程序分析5/14word程序框图程序代码〔注：本局部只列出关键局部，完整代码请查看附录〕实现变量由bit到字节转换，将线路允许速度填充到sLineAllowSpeed数组中offset=50VarBitNum=8TotoalBitBeforeVar=offsetNID_PACKET1=(VarBitNum,TotoalBitBeforeVar,Telegram)//读取NID_PACKET1中的信息VarBitNum=13TotoalBitBeforeVar=offset+10L_PACKET1=(VarBitNum,TotoalBitBeforeVar,Telegram)//读取L_PACKET1中的信息6/14wordIfNID_PACKET1=27Then//判断是否读取线路信息包ETCS-27中的数据sLineAllowSpeed(0,0)=0VarBitNum=15TotoalBitBeforeVar=offset+25D_STATIC=(VarBitNum,TotoalBitBeforeVar,Telegram)//读取应答器中速度信息起始点距离VarBitNum=7TotoalBitBeforeVar=offset+40V_STATIC=(VarBitNum,TotoalBitBeforeVar,Telegram)//读取应答器中最大允许列车速度VarBitNum=5TotoalBitBeforeVar=offset+53N_ITER=(VarBitNum,TotoalBitBeforeVar,Telegram)//速度变化点数量IfN_ITER=1Then//变化点数量为1时VarBitNum=15TotoalBitBeforeVar=offset+58D_STATIC=(VarBitNum,TotoalBitBeforeVar,Telegram)VarBitNum=7TotoalBitBeforeVar=offset+73V_STATIC=(VarBitNum,TotoalBitBeforeVar,Telegram)sLineAllowSpeed(1,0)=D_STATICsLineAllowSpeed(0,1)=V_STATIC*5EndIf实现变量由bit到字节转换，将轨道电路合并为闭塞分区填充到sBlocks数组IfNID_PACKET=44Then//判断是否读取线路信息包CTCS-1中的数据Q_SCALE=(VarBitNum,TotoalBitBeforeVar,Telegram)IfQ_SCALE=0Then7/14word//获取轨道区段的长度分辨率信息NID_SIGNAL=(VarBitNum,TotoalBitBeforeVar,Telegram)//获取信号灯情况VarBitNum=15TotoalBitBeforeVar=offset+L_PACKET1+73L_SECTION1=(VarBitNum,TotoalBitBeforeVar,Telegram)//读取轨道区段信息IfNID_SIGNAL=0Then//判断是否有信号机sBlocks(r)=s*B//有信号机如此确定闭塞分区区间长度s=0//中间变量置零r=r+1EndIfNextEndIf实验结果分析实验结果记录表实验结果记录表测试案例正线接车停车测试步骤200km/h，加速运行；选择正线接车进路类型，直到列车停车；测试结果正线接车测试结果截图8/14word实验结果记录表测试案例 18号道岔以下接车停车功能200km/h，加速运行；测试步骤测试结果

18号道岔一下侧线接车进路类型，直到列车停车；d.查看记录文件。18号道岔以下接车测试结果截图9/14word实验结果记录表测试案例 18号道岔以上接车停车功能200km/h，加速运行；测试步骤测试结果

18号道岔以上侧线接车进路类型，直到列车停车；d.查看记录文件。18号道岔以上接车停车功能测试结果截图实验结果记录表测试案例 侧线引导接车停车功能200km/h，加速运行；测试步骤

c.观察所计算的允许速度曲线是否正确；d.查看记录文件。测试结果 侧线引导接车停车功测试结果截图10/14word调试记录汇总表问题描述 原因分开始运行后图像与实验实验过程操作错误二完全一致开始运行后无曲线生成 实验理解错误

解决方法本实验中为“人工解析〞在实验二的根底上完成二程序正确完成并写入三程序的编写和测试

后面的区间赋值错误

对中间变量s置零〔〕函数运行错未在函数开始前对 定义Telegram函数并定误 Telegram进展正确定义 义类型4实验总结11/14word可。虽然实验过程中没有遇到很大的困难，但实验过程还是让我们有很大收获，首先是对地面设备有了更多的了解，熟悉了应答器的工作方式与ETCS语言，并能通过程序的编写对其进展运用。附源代码PublicFunctionBaliseBitToByte(Telegram()AsByte,ByRefsBlocks()AsSingle,ByRefsLineAllowSpeed()AsSingle)'[codeherebegin]DimNID_PACKET1AsLongDimNID_PACKET2AsLongDimL_PACKET1AsLongDimQ_SCALEAsLongDimNID_SIGNALAsLongDimL_SECTION1AsLongDimL_SECTIONAsLongDimN_ITERAsLongDimD_STATICAsLongDimV_STATICAsLongDimVarBitNumAsByteDimTotoalBitBeforeVarAsIntegerDimoffsetAsSingleDimBAsSingleDimiAsSingleDimrAsSingleDimsAsSingleoffset=50VarBitNum=8TotoalBitBeforeVar=offsetNID_PACKET1=(VarBitNum,TotoalBitBeforeVar,Telegram)VarBitNum=13TotoalBitBeforeVar=offset+10L_PACKET1=(VarBitNum,TotoalBitBeforeVar,Telegram)12/14wordIfNID_PACKET1=27ThensLineAllowSpeed(0,0)=0VarBitNum=15TotoalBitBeforeVar=offset+25D_STATIC=(VarBitNum,TotoalBitBeforeVar,Telegram)VarBitNum=7TotoalBitBeforeVar=offset+40V_STATIC=(VarBitNum,TotoalBitBeforeVar,Telegram)VarBitNum=5TotoalBitBeforeVar=offset+53N_ITER=(VarBitNum,TotoalBitBeforeVar,Telegram)IfN_ITER=1ThenVarBitNum=15TotoalBitBeforeVar=offset+58D_STATIC=(VarBitNum,TotoalBitBeforeVar,Telegram)VarBitNum=7TotoalBitBeforeVar=offset+73V_STATIC=(VarBitNum,TotoalBitBeforeVar,Telegram)sLineAllowSpeed(1,0)=D_STATICsLineAllowSpeed(0,1)=V_STATIC*5EndIfIfN_ITER=2ThensLineAllowSpeed(0,1)=V_STATIC*5VarBitNum=15TotoalBitBeforeVar=offset+58D_STATIC=(VarBitNum,TotoalBitBeforeVar,Telegram)sLineAllowSpeed(1,0)=D_STATICVarBitNum=7TotoalBitBeforeVar=offset+73V_STATIC=(VarBitNum,TotoalBitBeforeVar,Telegram)sLineAllowSpeed(1,1)=V_STATIC2*5EndIfEndIfVarBitNum=8TotoalBitBeforeVar=offset+L_PACKET1NID_PACKET2=(VarBitNum,TotoalBitBeforeVar,Telegram)IfNID_PACKET=44ThenVarBitNum=2TotoalBitBeforeVar=offset+L_PACKET1+47Q_SCALE=(VarBitNum,TotoalBitBeforeVar,Telegram)13/14wordIfQ_SCALE=0ThenElseIfQ_SCALE=1ThenB=1ElseIfQ_SCALE=2ThenB=10EndIfVarBitNum=4TotoalBitBeforeVar=offset+L_PACKET1+64NID_SIGNAL=(VarBitNum,TotoalBitBeforeVar,Telegram)VarBitNum=15TotoalBitBeforeVar=offset+L_PACKET1+73L_SECTION1=(VarBitNum,TotoalBitBeforeVar,Telegram)VarBitNum=5TotoalBitBeforeVar=offset+L_PACKET1+88N_ITER=(VarBitNum,TotoalBitBeforeVar,Telegram)s=L_SECTION1Fori=1ToN_ITERVarBitNum=4TotoalBitBeforeVar=offset+L_PACKET1+93+24*(i-1)NID_SIGNAL=(VarBitNum,TotoalBi