利用Gauss-Legendre 5点通用公式计算线路中边桩坐标并计算放样数据

.正算主程序  GSZS
10→DimZ
"X0"?I："Y0"?S："K0" ?O："F0"?G："KN"?H："R0"?P："RN"?R：”Q(-Z  +Y)”?Q
(P-R)÷(2(H-O)PR) →D
?K:”L(-Z  +Y)”?L :”ANG(YJJ)”?M
Abs(K-O) →J：Prog"SUB1":F-M→M:Cls
”FWJ=”:M ►DMS◢
”X=”:X ◢
”Y=”:Y◢

2. 反算主程序  GSFS
10→DimZ
?X:?Y：X→Z[2]：Y→Z[3] =
"X0"?I："Y0"?S："K0" ?O："F0"?G："KN"?H："R0"?P："RN"?R：”Q(-Z  +Y)”?Q
(P-R)÷(2(H-O)PR)→D
Abs((Y-S)cos(G-90)－(X-I)sin(G-90))→J
0→L：”M(YJJ)”?M
Lbl 0：Prog "SUB1"
G-90+QJ(1÷P+JD)×180÷π→Z[5]
(Z[3]-Y)cos(Z[5])-(Z[2]-X)sin(Z[5]) →L
If Abs(L)<1E-6:Then Goto1：Else J+L→J：Goto 0: IfEnd
Lbl 1：0→L：P