本程序由一个主程序(TYQXjs)和四个子程——正算子程序(SUB1)、反算子程序(SUB2)等构成

一、程序功能及原理
1.功能说明：本程序由一个主程序(TYQXjs)和四个子程——正算子程序(SUB1)、反算子程序(SUB2)等构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。本修改版程序既可实现正算全线贯通，亦可实现反算全线贯通。本程序也可以在CASIO fx-4800P计算器运行。
2．计算原理：利用Gauss-Legendre 5点通用公式正算线路中边桩坐标、线外测点至曲线元起点和终点的垂距的符号是否相异（即Dca×Dcb<0=>该测点在其线元内）进行判断并利用该线元要素反算中桩里程、支距，最后计算出放样数据。
二、源程序
1.主程序(TYQXjs)
Lbl 0：Defm 50:"1.SZ => XY,2.XY => SZ"：N： N=1=>Goto 1：≠>Goto 2Δ←
Lbl 1：{SZ}：SZ
S≤Z[18]=>J=1：Prog “DAT1”：Goto 3Δ
S≤Z[26]=>J=2：Prog “DAT1”：Goto 3Δ
S≤Z[34]=>J=3：Prog “DAT1”：Goto 3Δ
S≤Z[42]=>J=4：Prog “DAT1”：Goto 3Δ
             ……………
S≤Z