1、1公路逐桩坐标计算程序(可以计算对称、不对称缓和曲线)Lb1 0Z=？ V=？W=V+2：FixmKLb1 1KZW+5Z+4=W=W+1:Goto 1 ( 判断桩号在哪个交点范围，就是该交点曲线起点至下一交点曲线起点)S=K-ZW+5Z+3 （计算该桩号与曲线起点的距离） R=ZW+2Z+2：L=ZW+3Z+2:E=ZW+4Z+2 （读取该交点曲线要素 R、Ls1 、Ls2）Pol（ZW-ZW-1,ZW+Z+2-ZW+Z+1） （计算该交点与下一交点直线方位角）JJ=J+360A=JPol（ZW-1-ZW-2,ZW+Z+1-ZW+Z ） （计算该交点与上一交点直线方位角）JJ=J+360C=
2、A-J:A=J （计算偏角）W=V+2=Goto2 （如果桩号在起点与第一交点曲线起点之间，则转 Lb1 2 ）I=Abs（tan（c2） ）M=L2-L3240R2:N=E2-E3240R2P=L26R-L4336R3-R（1-cos （90LR） ）Q=E26R-E4336R3-R（1-cos（90ER） ）D=（P-Q）I2 : F=（P+Q+2R）I2M=F+M-D:Q=F+N+DN=RAbsC180+（L+E ）2X=ZW-1-McosAY=ZW+Z+1-MsinAM=ZW-1+Qcos（A+C）V=ZW+Z+1+Qsin（A+C） Q=AbsCCSL=P=0:Goto3 （如果桩号
3、在第一缓和曲线内，则转 Lb1 3）SN-E=S=S-L:Goto4（如果桩号在圆曲线内，则转 Lb1 4）SN=S=N-SQ=-Q:A=A+C-180:X=M:Y=V:L=E：P=180:Goto3 （如果桩号在第二缓和曲线内，则转 Lb1 3）P=A+C:S=S-N:D=M+ScosP:F=V+SsinPGoto6 （如果桩号在直线内，则转 Lb1 6）Lb1 2P=A+CD=ZW-1+ScosPF=ZW+Z+1+SsinP:Goto6Lb1 32I=S-S540R2L2+S93456R4L4J=Q（S36RL-S7336R3L3 ）P=P+A+90QS2RL:Goto5Lb1 4M=90
4、（2S+L）RI=RsinM+L2-L3240R2J=Q（L224R+R（1-cosM） ）P=A+QMLb1 5D=X+IcosA-jsinA:F=Y+JcosA+IsinA Lb1 6DX= （结果显示 X 坐标）FY= （结果显示 Y 坐标）PAT= （结果显示该桩号方位角）BO：BSO （输入边桩距离，交角）P=P+OLXB=D+BcosP （结果显示边桩 X 坐标）MYB=F+BsinP （结果显示边桩 Y 坐标）以上是坐标计算程序，括号内是程序计算的大致原理及说明，中间部分为直线、圆曲线、缓和曲线计算的各种公式，大家也知道，书上也有。该程序是最基本的，如再加几条语句就可以处理断链。该程序还需变量输入，把整条线路曲线要素一次输入到 4800 中，就可以计算线路任意中、边桩坐标。
