文档介绍：经苦心钻研，奋战多日，终于编写出了代码短，速度快，精度高，功能全的线路坐标正反算程序，欢迎试用并提出宝贵意见。
功能简介及特点：
1、选用高斯-勒让德公式作计算内核，保证精度，模块化设计，便于扩充功能。
2、线元数据可自动从数据库先级高于除法。
程序使用说明：
数据库准备
将各条线路的线元要素”依次输入各数据库“1：' ”2；注意其中曲线半径右偏为正，直线请输为10八10。
线路起点里程即第一个线元的起点里程，线路终点里程即最后一个线元的终点里程。
如线元起点和上一线元终点半径相同，P=起点里程可简写成
P=R,如果线元终点半径和起点半径相同 R=终点里程可简写R=P。
如果线元起点半径等于前一线元终点半径，同时本线元是直线或
圆，R=P还可省略！！！
新增语句解决断链并考虑反算中间结果在断链处时的处理方式。
短链按示例输，长链要把长链后里程前加一位 1,转化成短链，如。断链长要按调整后的里程推算，运行时
运行程序：
ZFS为主程序运行后首先提示：
0 ZS 1 FS破0正算，选1反算
正算计算流程
①0 SD?输入线路号，手工输入线元输0,然后依提示输入线元数
据;K0?起点里程 X? Y? A?起点坐标、方位角 LS?线元长R0?
RN?起终点半径（右转为正）
②K?输入K中桩里程;里程在断链显示"DL"到②
③L?输入相对上点偏距；按EXE输入0则输出中桩坐标到②，否则＜?
输入相对线路前进方向右角，输出坐标 ;
④再次L?输入相对上点偏距；＜?输入相对上两点连线前进方向右角，
输出坐标到④。任何时候L?按EXE输入0到②。
反算计算流程
①XC?YC?输入测点坐标;0 SD?画正算）；
②从起点推算输出里程、外移距；
③提示0 NEXT?认为可能还有下个可能选0到④，选其它值到①，除
不再提问线路号外其它相同。
④从终点推算输出里程、外移距；
⑤提示0 NEXT?认为可能还有下个可能选0到⑥，选其它值到①，除
不再提问线路号外其它相同。
⑥K?输入近似里程，输出里程、外移距到⑤；
如不输绿色部分代码，执行下列流程
①X?Y?输入测点坐标;0 SD?画正算）；
②K?输入近似里程，输出里程、外移距到①，除不再提问线路号外
其它相同。
在运行过程时，无论正反算，任何时候发生里程超出线路范围都会有警告，偏小会提示“<<!偏大会提示“>>!'返回到0 SD?重新选择线路、并要求重输里程，此时应该核对数据重算
读者可利用上述警告功能在想转换线路时，有意输入线路外里程或坐标。当然按AC跳出再按光标左、右键重新进入程序也可转换线路，但多了正反算选项。
关于本程序计算坐标的精度
为了对坐标计算结果精度心中有数，本人通过数据试算，对本程
序的坐标计算精度进行了系统分析，并用回归分析得出了线元长和线元平均半径的关系，得出了一个通用的表达式。
直线精度永远是0不再用公式表示。只对圆曲线和缓和曲线进行分析。
式中
R-平均半径，可用 2/|1/RA+1/RB|表示，RA、RB分别是起点、测点半径，
LS是起点到测点距离
Y-圆曲线标志，圆曲线为1,为0
精度要求为恰好1mm时：
圆曲线LS=5
缓和曲线 LS=2
如 LS ，反之每缩短
。
如计算出某半径精度为1mm时LS=100,若实际长156米则精度为 1cm。。
以下为相关问题的提问与解答
WY %外移点计算子程序
Lbl 1:J=90:{J}:J=F+J"<":F=J:A=A+Rec（I ， J:B=B+J:
Prog"ZB":I=0:{I}:I"L" 丰 0=>Goto 1
FS %反算子程序
Lbl 1:{KVW}:V"X"W"Y":U=2:Lbl 2:Prog "ZZ":I=V-A:J=W-B ： Pol（I ，
J:J=J-F:
I=Rec（I, J:K=K+I:AbsI>1m=>Goto 2 △"KJ":K:Pause1:J，Goto 1
以上两个子程序中：Rec与Pol后面的括号怎么只中有半个？另外半个
在哪里呢?.
另外 ,该程序可计算不等缓曲（LS1 不等于LS2）曲线中边桩坐标吗？线
路起点坐标有什么规定,是否一定得是（ZH 点或ZY 点）？如是前后两曲
线相切只有一个公切点（GQ点），而无（ZH或ZY点时），此种不等缓曲曲
线起点坐标怎么确定？起点切线方位角怎么确定？这种