文档介绍：主程序坐标正反算程序名称: ZBZFS Lb1 A↙ 30→ Dim Z :"0=ZS,1=FS"?Z ↙ If Z=0:Then Goto B:IfEnd ↙(Z=0 进入里程点坐标正算) If Z=1:Then Prog"FSLCZ "↙(Z=1 进入反算里程边桩) Lb1 B↙ Prog ” ZBZS ”↙子程序反算里程桩名称: FSLCZ Lb1 1↙"XK="?X:"YK="?Y ↙(输入任意测点的 X、Y 坐标) “ K= ”?K ↙( 试算里程, 任意输入标段内里程点即可, 也可以输入大致的估算里程加快速度) Lb1 2↙ Prog"SJK ":T-90 → W:W<0=>360+W → W:Abs((Y-Z[19])*Cos(W)-(X-Z[18])*Sin(W)) →S↙ If S<:Then Goto 4:Else Goto 3:Ifend ↙ Lb1 3↙ K+S → K: Prog"SJK":T-90 → W:W<0=>360+W → W:Abs((Y-Z[19])*Cos W-(X-Z[18])*Sin (W) →Q↙ If Q< :Then Q→ S: Goto 4:Else if Q<S: Then K+Q → K: Goto 2 :Else if Q> S :Then K-Q → K:Goto 2:Ifend:Ifend:Ifend ↙ Lb1 4↙ Pol (X-Z[18],Y-Z[19]: "DP(-Z+Y)=":I ◢( 偏距) "K=":K+S →K◢(里程) Goto 1↙子程序坐标正算名称: ZBZS Lb1 0↙“ XHS="?G( 后视点 X):"YHS="?L( 后视点 Y):"XZJ="?M( 置镜点 X):"YZJ="?N( 置镜点 Y):Pol(G -M,L-N):"DH=":I( 后视距)◢ J<0=>J+360 → J:"FH=":JDMS ◢( 后视方位角) Lb1 1↙“ K= ”?K :(输入所需计算里程) Prog"SJK "↙ XI: Z[18] ↙ YI: Z[19] ↙ Pol(Z[18]-M,Z[19]-N): J<0=>J+360 →J↙“ PJ= ”?P↙( 输入桩与线路夹角) “ PD= ”?D ↙(输入桩距中线的距离) Z[18]+D*Cos(T+P) → Z[20] ↙ Z[19]+D*Sin(T+P) → Z[21] ↙“ X= ”: Z[20] ◢(放样坐标 X) “ Y= ”: Z[21] ◢(放样坐标 Y) Pol(Z[20]-M,Z[21]-N):"D=":I ◢(放样距) J<0=>J+360 → J:"F=":JDMS ◢(放样方位角) Goto 1↙子程序数据库名称: SJK if K< 本段曲线终点里程 And K≥上段曲线终点里程: Then 本段曲线终点里程→ Z[1] : 上段曲线终点里程( 第一段曲线输起点的里程)→ Z[2] :1→O(注: 左偏曲线输入-1→ O, 右偏曲线输入 1→O): 半径→R: 曲线偏角→ A: 第一缓和曲线→ Z[6] : 第二缓和曲