文档介绍：第一篇 坐标正反算通用程序(终极篇)(命名为ZBZS)第1行:Lbl 0:”K=”?K:”BIAN=”?Z:”α=”?B第2行:Prog“A”第3行:”X=”:N+Zcos(F+B)◢第4行:”Y=”:E+Zsin(F+B)◢第5行:”F=”:F◢第6行:Goto 0K——计算点的里程BIAN——计算点到中桩的距离(左负右正)α——取前右夹角为正更改红色字体部分可调用其他线路数据库,本程序调用A匝道数据显示X坐标显示Y坐标显示中线切线方位角,(命名为ZBFS)第1行:”X1=”?C:”Y1=”?D:”K1=”?K第2行:Lbl 0:Prog“A”第3行:Pol(C-N,D-E)第4行:ListAns[1]→I第5行:ListAns[2]→J第6行:Icos(F-J)→S:K+S→K第7行:Abs(S)>=>Goto0第8行:”K1=”:K◢第9行:”BIAN=”:Isin(J-F)→Z◢X1——取样点的X坐标Y1——取样点的Y坐标K1——输入时为计算起始点(在线路内即可),输出时为反算点的桩号Z——偏距(左负右正)更改红色字体部分可调用其他线路数据库,本程序调用A匝道数据取出距离,在9860中,Pol和Rec函数结果存储在ListAns列表中取出方位角反算桩号反算偏距,为方便其他程序的调用,赋值到变量Z注:第4行和第5行为5800版本计算器以上特有的语句,在5800中不能增加此语句,其余程序语句均可与5800共用。(命名为XYF)为了简洁,本程序由数据库直接调用,上述中的正反算主程序不直接调用此程序第1行:K-A→S:(Q-P)÷L→I第2行:N+∫(cos(F+X(2P+XI)×90÷π),0,S)→N第3行:E+∫(sin(F+X(2P+XI)×90÷π),0,S)→E第4行:F+S(2P+SI)×90÷π→F反向计算时需改为Abs(K-A)→(命名为A)第1行:K≤=>Stop第2行:→A:→N:→E:92°26′40″→F:0→P:1/240→Q:→L:K≤A+L=>GoTo1(第一缓和曲线,圆半径为240)第3行:→A:→N:→E:100°50′″→F:1/240→P:1/240→Q:→L:K≤A+L=>Goto1(第圆曲线,半径为240)第4行:→A:→N:→E:118°15′″→F:1/240→P:0→Q:→L:K≤A+L=>Goto1(第二缓和曲线,圆半径为240)第5行:→A:→N:→E:124°50′″→F:0→P:-1/180→Q:→L:K≤A+L=>Goto1:Stop(第一缓和曲线,圆半径为180)第6行:Lbl 1:Prog“XYF”A——曲线段起点的里程N——曲线段起点的x坐标E——曲线段起点的y坐标F——曲线段起点的坐标方位角P——曲线段起点的曲率(左负右正)Q——曲线段终点的曲率(