4800曲线计算及常用导线坐标正算，反算.（步骤极少，方便输入）

4800曲线计算及常用导线坐标正算，反算.（步骤极少，方便输入） 

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坐标