5800直线坐标程序

5800直线坐标程序

ZXZB（直线坐标程序，可以算直线上任意桩号坐标）

“L0”?K: ”X1”? A:“Y1”?B: “X2”?C: “Y2”?D

Lbi 1:”L”?L: POI(C-A,D-B): J→T:A+(L-K)COS(T)→X: B+(L-K)Sin(T)→Y

“X=”: X▲

“Y=”: Y▲

Lbi 2: “s”?S: IF S=0 Then Goto 1: else goto 3：Ifend Lbi 3: Rec(s,T+E): “X+I=”: X+I▲

“Y+J=”: Y+J▲

Goto 2

注解：L0：已知起点里程

X1,Y1:已知起点坐标

X2,Y2：已知该直线另一点坐标

L: 所求点的坐标里程

S：所求边桩（法线方向）点坐标距离中桩的长度，不计算边桩时输入零。

E：计算边桩坐标的方位角，右边桩输入90，左边桩输入270.

该程序可以算直线上任意点里程，包括小于L0里程的坐标。

HFJH（后方交会）

”X1”? A:“Y1”?B: “X2”?C: “Y2”?D: “S1”? S: “S2”? F: “O”? O: Rec(F,O): POI(S-I,-J)

:I→N: -J→E: POI(C-A,D-B):J→T: I÷N→K: “K=”:K▲

K×S→S:Rec(S,T+E): POI(A+I,B+J):Rec(I,J)

注解：

X1、Y1：已知点1坐标

X2、Y2：已知点2坐标

S1：自由设站点到已知点1距离

S2：自由设站点到已知点2距离

O：已知点1至自由设站点至已知点2的夹角

K：衡量交会点的精度，如若显示0.99999···或1.00000···即为交会坐标的精度很高

最后程序显示交会点的坐标

说明：ZXZB和HFJH程序从4800程序变换而来。经过试运行，这两个改编过来的程序完全正确。