文档介绍：线路中边桩任意里程坐标正反算改线路中边桩任意里程坐标正反算改含数据库、测站放样计算(第五次修改-正式版),计算中不必逐项输入"线元要素",提高运算速度,,内业输入数据,,,“计算点与测站点”的距离和方位角计算语句,,“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Δ←┘LB10   3.(SUBSJK  运算主程序){UVGPROHQ}:U"XA":V"YA":G"FA":P"RA":R"RB":O"DKA":H"DKB":Q←┘Deg:S>H=>GotoAΔD=(P-R)÷2PR(H-O):N=1=>Goto1:≠>Goto2Δ←┘Lbl1:{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◢GotoA←┘Lbl2:{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):Z=0:Lbl0:Prog"SUB1":L=T+180QW(1÷P+WD)÷π:Z=(J-Y)cosL-(I-X)sinL:AbsZ<1÷10^6=>Goto1:≠>W=W+