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

一、ZUOBIAO—ZH（由线路上任意点坐标计算相应的桩号、中桩距[偏左或偏右的距离]）
主程序：
AbsJ“Fixmc⇒”=7⇒Fixm：Goto1△{ABFHGRQ}：A“X-JD”：B“Y-JD”：G“A0”：G＜0⇒Q=1△G＞0⇒Q=-1△F=AbsG:Prog“S3”：G=F：R“R”：O“Gra0(ZY-JD)”:F=O：Prog“S3”：F=F：H“L-ZY”：S=R÷COS（G÷2）：M“X（YXIAN）”=A+Scos（F+180°+Q×（90°-G÷2））◢N“Y（YIAN）”=B+Ssin（F+180°+Q×（90°-G÷2））◢L=2πR÷360°×G：F=F- Q×90°+180°：F＜0⇒F=F+360°△F＞360°
⇒F=F-360°：≠⇒F=F△Lbl1:{CD}:C“X”：D“Y”：POL（M-C，N-D）：T=J：
T=Ans+180°：P=I：U=T-F：-Q×U≦0⇒Prog“T”：Goto1△-Q×U＞0⇒Prog“U”：Goto1△ (主程序完)
子程序：
1、V
Pol(A—C，B—D)：T=J：T=Ans+180°：P=I：U=T-（F+90°Q）：E“LI”=H+Rtan(G ÷2)-PcosU◢K“B”=-Psin(u)◢
2、W
Pol(A—C，B—D)：T=J：T=Ans+180°：P=I：U=T-（F-GQ-90°Q）：E“LI”=H+L+（PcosU-Rtan(G÷2)）◢K“B”=Psin(u)◢
3、T
Abs U≤180°⇒Prog“V”△A bs U＞180°⇒U=T+360°-F：U＞G⇒Prog“W”：≠⇒Prog“X”△
4、U
AbsU＞180°⇒Prog“V”：≠⇒AbsU≤G⇒Prog“X”⊿AbsU＞G⇒Prog“W”⊿5、X
E“LI”=H-Q（2πR÷360°×U）◢K“B”=Q（P-R）◢
说明：
一、本程序用于计算直线与圆曲线组合的线路上由点坐标计算相应桩号及其从中桩左、右偏移量。

二、输入：X-JD、Y-JD：交点坐标 A0：转向角（以十进制的形式，即13°25′30″按13.2530
的形式输入,左拐曲线取“-”值，右拐曲线取“+”值） R：半径
Gra0(ZY-JD):ZY点至JD方向坐标方位角,输入形式同A0(转向角)
L-ZY:ZY点桩号 X，Y：所要计算点的坐标
三、显示：X（YXIAN）、Y（YXIAN）：圆心坐标 LI：计算所得桩号 B：所计算点至中桩的距离，负值为左偏量，正值为右偏量，0为中桩。