4800常用导线坐标正算

1.坐标反算程序 文件名：ZBFS

C“X1”：D“Y1”：E“X2”：F“Y2”：Fixm：Pol（E-C，F-D）：I“S=” ▲J≤0=＞J=J+360△ J“W=” 说明：

X1，Y1，为测站坐标 X2，Y2，为后视坐标

S，W，为两点距离，测站到后视方位角

2.坐标正算程序 文件名：ZBZS

C“X1”：D“Y1”：S“S”：R“W”：U“V”：Fixm：X“X2”=C+Rec（（S，（R+U））▲ Y“Y2”=D+Ssin（R+U） 说明：

X1，Y1，为测站坐标 W为测站到后视方位角

V为后视置0度0分0秒,盘左到前视夹角读数 S为测站到前视水平距离 X2，Y2，为求得前视坐标

3.本人根据其他公试修改缓和曲线，圆曲线4800公试，望各位同行参考，提出意见， （本程序是运用复化辛普生公式）

文件名：QXJS

A“X0=”：B“Y0=”：C“W1=”：E“(+-)QR”：P“DKQ=” E≠0=＞E=1÷E: ≠＞E=0△

Lb1 1：{FQ}：F“(+-)ZR”：Q“DKZ=” F≠0=＞F=1÷F: ≠＞F=0△

Lb1 2：{VD}：V“DK=”：D“-DKL, +DKR”：○=V：○﹤P=＞G0t0 3：≠＞G0t0 4 Lb1 3：“K-SMALL”：G0t0 2

Lb1 4：○﹥Q=＞G0t0 5：≠＞G0t0 6

Lb1 5：V=Q：D=0：“JISUAN：A-TXY”：G0t0 6 Lb1 6：W=C+90÷∏×（2×E+（F-E）（V-P）÷（Q-P））（V-P）：W﹤0=＞W=W+360△W﹥360=＞W=W-360△W▲

Rad:H“X”=A+∫（COS（C°×∏÷180+0.5×（2×E+（F-E）（X-P）÷（Q-P））（X-P）），P，V，4）+D×COS（W°×∏÷180+90°×∏÷180）：Y=B+∫（SIN （C°×∏÷180+0.5×（2×E+（F-E）（X-P）÷（Q-P））（X-P）），P，V，4）+D×SIN（W°×∏÷180+90°×∏÷180）：Deg：H“X=” △Y“Y=”△ G0t0 7

Lb1 7：○≤Q=＞G0t0 2：≠＞G0t0 8

Lb1 8：A=H：B=Y：C=W：E=F：P=Q：G0t0 1

说明：X0，Y0，为起始点坐标

W1为起始点方位角 绶和曲线-----起始到交点

(+-)QR起始点半经，0为无穷大，非无穷大时左偏为负右为正。 DKQ起始里程,

(+-)ZR终点半经, 0为无穷大，非无穷大时左偏为负右为正。 DKZ为终点里程 D K为要求点里程

-DKL, +DKR节 中桩0 边桩 左- 显示W下一线形起点方位角 显示要求点的XY坐标

右+