工程测量(1)小写o为大写字母“O”，与零区分。(2)程序中没有空格符号。 1、坐标正算 〝X0=〞?X：〝Y0=〞?Y：〝I=〞?I：〝J=〞?J X+ICos(J)→U：Y+ISin(J)→V 〝X=〞：U◢ 〝Y=〞：V◢ 说明：X0 Y0：已知点坐标，I：两点的距离，J：方位角 ２、坐标反算 Lbl 0 〝X1=〞?X：〝Y1=〞?Y：〝X2=〞?U：〝Y2=〞?V Pol(U-X，V-Y)： J<0J+360→J 〝I=〞：I◢ 〝J=〞：JDMS◢ Goto 0 说明：X1Y1：第一点的坐标，X2Y2第二点的坐标，I：两点的距离，J：方位角 ３、圆曲线 〝X0=〞?X：〝Y0=〞?Y：〝FWJ=〞?D：〝QDHAO=〞?G：〝ZDHAO=〞?C：〝R=〞?R Lbl 1 〝DQHAO=〞?L L<G Or L﹥CGoto 2 〝PY=〞?K 180(L-G)÷(πR)→E 2Rsin(0。
5E)→F Rec(Abs(F)，D+0。5E) 〝X=〞：X+I+Kcos(D+E+90)→A◢ 〝Y=〞：Y+J+Ksin(D+E+90)→B◢ D+E→o：o<0360+o→o 〝FWJ=〞：oDMS◢ Goto 1 Lbl 2 〝END〞 说明：X0Y0：起始点的坐标，FWJ：起始点的方位角，QDHAO：起点里程，ZDHAO终点里程，R：半径，DQHAO：待求点里程，PY：偏移量 ４、竖曲线 〝QZHAO =〞?J：〝HB〞=?B：〝I1=〞?C：〝I2=〞?D：〝R=〞?R：〝T=〞?T： ((D-C)÷100)÷Abs((D-C)÷100)→A：Abs(0。
5R(D-C)÷100)→S 〝T〞：S◢ J-T→X J＋T→Y Lbl 0 〝DQ=〞?L If L<X：Then Goto1：Else If L﹥Y：Then Goto1：If End：If End 〝GC=〞：B+C(L-J)÷100+A(L-J+T)2÷(2R)→H◢ Goto 0 Lbl 1 〝END〞 说明：QZHAO：竖曲线中点里程，HB：交点高程（不是交点路面高），I1：第一坡度，I2：第二坡度，R：半径，T：切线长，DQ：待求点里程。
5．正算偏移 〝X0=〞?A：〝Y0=〞?B：〝FWJ=〞?D： Lbl 0 〝LS=〞?L：〝PY=〞?C Rec(L，D) 〝X=〞：A+I+Ccos(D+90)→X◢ 〝Y=〞：B+J+Csin(D+90)→Y◢ Goto 0 说明：X0 Y0：已知点坐标，LS：两点距离（里程之差），FWJ：方位角 6。
万能公式 〝X0=〞?A：〝Y0=〞?B：〝FWJ=〞?C：〝1÷R-QD=〞?D：〝1÷R-ZD=〞?E： 〝QDHAO=〞?F：〝ZDHAO=〞?G Lbl 1 〝DQHAO=〞?H：〝PY=〞?o If H<F：Then Goto 2：Else If H﹥G：Then Goto 2：If End：IfEnd (E-D)÷Abs(G-F)→P：Abs(H-F)→Q：PQ→I：C+90Q(I+2D)÷π→J：C+45Q(I÷8+D)÷π→M：C+135Q(3I÷8+D)÷π→N：C+45Q(I÷2+2D)÷π→K A+Q(cos(C) +4(cos(M)+cos(N))+2cos(K)+cos(J))÷12→U： B+Q(sin(C)+4(sin(M)+sin(N))+2sin(K)+sin(J))÷12→V 〝X=〞：U+oCos(J+90)→X◢ 〝Y=〞：V+oSin(J+90)→Y◢ 〝FWJ=〞：JDMS◢ Goto 1 Lbl 2 〝END〞 说明：X0Y0：起始点坐标，FWJ：起始点方位角，1÷R-QD：起始点曲率，1÷R-ZD终点曲率，QDHAO：起点里程，ZDHAO终点里程，DQHAO：待求点里程，XY：待求点坐标。
全部
