文档介绍：线路中边桩任意里程坐标正反算改
含数据库、测站放样计算（第五次修改-正式版）
,计算中无须逐项输入"线元要素",提升运算速度，避免现场忙中犯错
,内业输入数据,外业一目了然
,人性化
,反算输入近似里程便可
“计算点和测站点”距离和方位角计算语句，方便直接放样
,同时也期望大家提出心得和宝贵提议
“yshf”
 
    ，增设数据库程序,可输入n条线路数据库
    1.(QXZDJS   计算总调度程序)
M=1=>Prog "SJK1":Prog "SUBSJK"△←┘
...........
M=n=>Prog "SJKn":Prog "SUBSJK"△←┘
  2.(SJK1   数据库程序)
" => XY"：" => SZ"：｛N,S｝：N：S"DKI"←┘
S≤本线元终点里程＝＞U=本线元起点X坐标：V=本线元起点Y坐标：G=本线元起点正切线方位角：P=本线元起点曲率半径：R=本线元终点曲率半径：O=本线元起点里程：H=本线元终点里程：Q=本线元左直右偏向(0或1、-1):Goto0Δ←┘
S≤下一线元终点里程=＞O=。。。。。。。。。。。。。。。。： Goto0Δ←┘
LB1 0
    3.(SUBSJK   运算主程序)
{UVGPROHQ}：U"XA"：V"YA"：G"FA"：P"RA"：R"RB"：O"DKA"：H"DKB"：Q←┘
Deg:S>H=>Goto AΔD=(P-R)÷2PR(H-O)：N=1=>Goto 1：≠>Goto 2Δ←┘
Lbl 1：{Z}：Z：W=Abs(S-O)：Prog "SUB1"："XS="：X◢
"YS="：Y◢
"QX-FWJ="：F=F-90←DMS◢
I=0：J=0：Pol（X-C"XC"，Y-E"YC"）：J<0＝＞J=J+360：Δ“FWJ=”:J←DMS◢
“I=”：I◢
Goto A←┘
Lbl 2：{XY}：I=X：J=Y：Prog "SUB2"："S=":S=O+W◢
"Z=":Z◢
Lbl  A                        
    4. (SUB1   正算子程序)
A=0.：B=0.：K=0.：L=0.：X=U+W(Acos(G+180QKW(1÷P+KWD)÷π)+Bcos(G+180QLW(1÷P+LWD)÷π)+Bcos(G+180(1-L)QW(1÷P+(1-L)WD)÷π)+Acos(G+180(1-K)QW(1÷P+(1-K)WD)÷π))：Y=V+W(Asin(G+180QKW(1÷P+KWD)÷π)+Bsin(G+180QLW(1÷P+LWD)÷π)+Bsin(G+180(1-L)QW(1÷P+(1-L)WD)÷π)+Asin(G+180(1-K)QW(1÷P+(1-K)WD)÷π))：F=G+180QW(1÷P+WD)÷π+90：X=X+ZcosF：Y=Y+ZsinF
    5.(SUB2   反算子程序)
T=G-90：W=Abs((Y-V)cosT-(X-U)sinT