线路上点坐标反算其里程桩号及中桩距.doc

一、ZUOBIAOZH（由线路上任意点坐标计算相应的桩号、中桩距偏左或偏右的距离）主程序：AbsJ“Fixmc”=7Fixm：Goto1ABFHGRQ：A“X-JD”：B“Y-JD”：G“A0”：G0Q=1G0Q=-1F=AbsG:Prog“S3”：G=F：R“R”：O“Gra0(ZY-JD)”:F=O： Prog“S3”：F=F：H“L-ZY”：S=RCOS（G2）：M“X（YXIAN）”=A+Scos（F+180+Q（90-G2）N“Y（YIAN）”=B+Ssin（F+180+Q（90-G2）L=2R360G：F=F- Q90+180：F0F=F+360F360F=F-360：F=FLbl1:CD:C“X”：D“Y”：POL（M-C，N-D）：T=J：T=Ans+180：P=I：U=T-F：-QU0Prog“T”：Goto1-QU0Prog“U”：Goto1 (主程序完)子程序：1、 V Pol(AC，BD)：T=J：T=Ans+180：P=I：U=T-（F+90Q）：E“LI”=H+Rtan(G2)-PcosUK“B”=-Psin(u)2、 W Pol(AC，BD)：T=J：T=Ans+180：P=I：U=T-（F-GQ-90Q）：E“LI”=H+L+（PcosU-Rtan(G2)）K“B”=Psin(u)3、TAbsU180Prog“V”AbsU180U=T+360-F：UGProg“W”：Prog“X” 4、 UAbsU180Prog“V”：AbsUGProg“X”AbsUGProg“W”5、 X E“LI”=H-Q（2R360U）K“B”=Q（P-R）说明：一、本程序用于计算直线与圆曲线组合的线路上由点坐标计算相应桩号及其从中桩左、右偏移量。 二、输入：X-JD、Y-JD：交点坐标 A0：转向角（以十进制的形式，即132530按13.2530的形式输入,左拐曲线取“-”值，右拐曲线取“+”值） R：半径 Gra0(ZY-JD):ZY点至JD方向坐标方位角,输入形式同A0(转向角) L-ZY:ZY点桩号 X，Y：所要计算点的坐标 三、显示：X（YXIAN）、Y（YXIAN）：圆心坐标 LI：计算所得桩号 B：所计算点至中桩的距离，负值为左偏量，正值为右偏量，0为中桩 程 序 示 例序号屏 幕 显 示操 作备 注1Fixmc？0.000010000000 【EXE】重启动功能控制符，输入“7”或“-7”可启动重启动功能，首次启动时，需输入密码：“10000000” ，否则将出现随机错误。2X-JD?0.00001130.226【EXE】输入平面线交点坐标X坐标。3Y-JD?0.00001162.669【EXE】输入平面线交点坐标Y坐标。4A0?0.0000122.38297【EXE】输入平面线转向角1223829.7，要求以十进制的形式输入，左拐曲线取负值，右拐曲线取正值。5R？0.0000100【EXE】输入平面线半径。6Grao(ZY-JD)?0.000080.00004【EXE】输入平面线中ZY点至交点(JD)方向的坐标方位角80000.04，要求以十进制的形式输入。7L-ZY?0.0000185.364【EXE】输入平面线中ZY点桩里程。8X（YXIAN）=1000.0000【EXE】程序输出平面线圆心坐标X坐标。9Y（YXIAN）=1000.0000【EXE】程序输出平面线圆心坐标Y坐标。10X？0.00001022.816【EXE】程序要求输入计算点坐标X坐标。11Y?0.000915.012【EXE】程序要求输入计算点坐标Y坐标。12LI=105.6291【EXE】程序输出计算点桩里程。13B=62.7731【EXE】程序输出计算点中桩距（即计算点至中线的距离），正值表示右边桩，负值表示左边桩，“0”表示中桩。14X？1022.8161081.563【EXE】程序要求输入计算点坐标X坐标。15Y?915.0121057.858【EXE】程序要求输入计算点坐标Y坐标。16LI=264.5160【EXE】程序输出计算点桩里程。17B=0.000【EXE】程序输出计算点中桩距（即计算点至中线的距离），正值表示右边桩，负值表示左边桩，“0”表示中桩。18X？1081.563AC/ON【EXE】人为暂停程运行，并重新启动程序。19Fixmc？-144.6494-7【EXE】输入“-7”直接进入原有计算状态。20X？1081.5630879.8700【EXE】同上21Y?1057.85801176.906【EXE】同上22LI=442