文档介绍：“SO”算方位Lbl0“D”:Pol(X-A,Y-B)→D◢IfJ≥0:ThenJ◢Else“J”:J+360◢IfEnd“ZZ”正算直线坐标A+Rec(Abs(P-K),Q)→XB+J→Y“X”:X+Rec(D,Q+N×90)→X◢“Y”:Y+J→Y◢P?所求桩号A,B:起点x,yK:起点桩号Q:方位角D:边桩距离N?左偏“-1”右偏:“+1”X=Y=所求点坐标“YY”正算圆曲线坐标Q+C×(P-K)÷S×180÷∏→Z“X”:A+C×S×(Sin(Z)-Sin(Q))+Rec(D,Z+N×90)→X◢“Y”:B-C×S×(Cos(Z)-Cos(Q))+J→Y◢P:所求点桩号A,B:起点x,yK:起点桩号Q:方位角S:曲线半径D?边桩距离N?左偏“-1”,右偏“+1”X=y=所算点坐标C:线路左转“-1”右转“+1”“H1”正算缓和曲线坐标Abs(P-K)→LT2÷L→HL2×180÷∏÷2÷T2→VQ+C×V→ZL-L∧(3)÷40÷H2+L∧(5)÷3456÷H∧(4)-L∧(7)÷H∧(6)÷599040→EL2÷6÷H-L∧(4)÷336÷H∧(3)+L∧(6)÷42240÷H∧(5)-L∧(8)÷H∧(7)÷(6×1612800)→FIfC<0:Then-F→F:IfEndA+E×Cos(Q)-F×Sin(Q)→X“X”:X+Rec(D,Z+M×N×90)→X◢B+E×Sin(Q)+F×Cos(Q)→Y“Y”:Y+J◢P?所求点桩号A,B:起点x,yK:起算点里程桩号Q:前切线方位角T(是圆曲线要素的A1)=√(根号)缓曲总长×半径C=切线线路方向左转“-1”,右转“+1“M=第一缓曲“+1”,第二缓曲”-1“N:算边桩左偏“-1”,右偏“+1”D:边桩距离坐标正算数据库例子“肇兴隧道右线数据库”Lbl0“P”?P:“N”?N:“D”?DIfP≥≤:→A:→B:→K:→Q:→T:1→C:1→M:Prog“H1”:IfEnd(第一缓曲线)IfP≥≤:→A:→B:→K:→Q:4700→S:Prog“YY”:IfEnd(圆曲线)IfP≥≥P:→A:→B:→K:→Q:→T:-1→C:-1→M:Prog“H1”:IfEnd(第二缓曲线)IfP≥≤19550:→A:→B:→K:→Q:Prog“ZZ”:IfEnd(直线)。。。。。。fx-5800坐标反算程序“FZ”反算直线Lbl0“A”?A:“B”?B:“K”?K:“Q”?Q:“X”?X:“Y”?Y:Pol(X-A,Y-B)→TIfJ≥0:ThenJ◢ElseJ+360→J◢“P”:T×Abs(Cos(J-Q))+K→P◢“D”:T×Sin(J-Q)→D◢Goto0A?B?起点x,yK?起点里