FX4800常用测量程序 编制：谯生有（中铁一局五公司精测队）
FX4800P常用测量程序集
1、由一个已知点坐标和一个已知方位角计算支导线坐标（程序名：ZBJS）
程序清单：
X：Y：T：Lb1 0：Fixm：{AS}：T=T+A-180：T〈0 =〉T=T+360⊿ T〉360 =〉T=T-360⊿T◢ X=X+Scos T◢ Y=Y+Ssin T◢ Goto 0 程序运行说明：
运行“ZBJS”，每运行一步按EXE键一次，显示X？时输入已知点X坐标，显示Y？时输入已知点Y坐标，显示T？时输入已知点由后视到前视的已知坐 标方位角，运行一次本程序只需输入一次已知数据。显示A？时输入第一个左转角值，显示S？时输入测站到前视的水平距离。接下来计算器显示的T是测站到前视的坐标方位角，按 + 可将显示的十进制角度换算为度分秒。如此继续可计算出所有支导线未知坐标。
2、由两个已知点坐标计算支导线坐标（程序名：ZBJS2）
程序清单：
M“X0”：N“Y0”：D“XH”：E“YH” ?
Pol(M-D，N-E)：Fixm：T=J：X=M：Y=N：T〈0=〉T=T+360⊿T“TH-J=” ◢ I“S=”◢
1
FX4800常用测量程序 编制：谯生有（中铁一局五公司精测队）
Lb1 0:{AS}: T=T+A-180：T〈0 =〉T=T+360⊿ T〉360 =〉T =T-360⊿T◢ X=X+Scos T◢ Y=Y+Ssin T◢ Goto 0 程序运行说明：
运行后，显示X0，Y0时输入已知置镜点坐标，显示XH，YH时输入已知后视点坐标，其它同ZBJS的输入与显示。
3、由一个已知点坐标和一个已知方位角进行放射型导线坐标计算（程序名FSXZBJS） 程序清单：
C“X0”：D“Y0”：E“T0”：Fixm：Lb1 1:{SA}?
T=E+A-180：T〈0=〉T=T+360⊿ T〉360 =〉T=T-360⊿T◢ X=C+Scos T◢ Y=D+Ssin T◢ Goto 1 程序运行说明： 变量输入参照ZBJS程序。
4、由两个已知点坐标进行放射型导线坐标计算（程序名FSXZBJS2）
M“X0”：N“Y0”：D“XH”：E“YH” ?
Pol(M-D，N-E)：Fixm：F=J：X=M：Y=N：F〈0=〉F=F+360⊿F“TH-J=” ◢
2
FX4800常用测量程序 编制：谯生有（中铁一局五公司精测队）
I“S=” ◢ Lb1 1:{SA}?
T=F+A-180：T〈0=〉T=T+360⊿ T〉360 =〉T=T-360⊿T◢ X=X+Scos T◢ Y=Y+Ssin T◢ Goto 1
5、坐标计算优化程序（可进行连续式（LX）、放射式（FS）已知一点（1-D）或者两点（2-D）进行坐标计算）：
V“1=>LX，≠>FS”：W“1 =>1-D，≠>2-D”：W=1=> Goto 1:≠> Goto2?
Lb1 1：F“X0=”：G“Y0=”：H“T H-0=”：Goto 3?
Lb1 2:F“X0=”：G“Y0=”：M“XH=”：N“YH=”:Pol(F-M，G-N)：Fixm: J〈0=〉J=J+360⊿H=J：H“TH-0=”◢ I“S-H=”◢ Goto 3?
Lb1 3: X=F：Y=G：T=H ： V=1=> Goto 4:≠> Goto 5?
Lb1 4: {AS}: A:S:T=T+A-180：T〈0 =〉T=T+360⊿ T〉360 =〉T =T-360⊿T◢
X=X+Scos T◢ Y=Y+Ssin T◢ Goto 4 Lb1 5：{AS}:A:S
T=H+A-180：T〈0=〉T=T+360⊿ T〉360 =〉T=T-360⊿T◢
3
FX4800常用测量程序 编制：谯生有（中铁一局五公司精测队）
X=F+Scos T◢ Y=G+Ssin T◢ Goto 5
6、已知置镜点坐标和置镜点到后视点坐标方位角求放样角度和放样距离的放样程序（程序名FY1）
程序清单：
F“X0”：G“Y0”：H“T0-H”：Fixm：Lb1 1:{XY}? Pol(X-F，Y-G) ?
J〈0 =〉J=J+360⊿A=J-H? A〈0 =〉A=A+360⊿A“A=” ◢ I“S=” ◢ Goto 1 程序运行说明：
变量输入参照坐标计算，A=为放样顺时针角度，S=为放样距离。 7、已知置镜点和后视点坐标进行放样（FY2）
程序清单：
F“X0”：G“Y0”：M“XH”：N“YH”? Pol(M-F，N-G)：Fixm：H=J? H〈0=〉H=H+360⊿H“T-H=”◢ I“S-H=” ◢
Lb1 1:{XY}: Pol(X-F，Y-G) ? J〈0 =〉J=J+360⊿?
4
FX4800常用测量程序 编制：谯生有（中铁一局五公司精测队）
A=J-H?
A〈0 =〉A=A+360⊿A“A=”◢ I“S=” ◢ Goto 1
8、放样优化程序（可分已知一点或者两点坐标进行放样角度距离的计算）
程序名“FY” 程序清单：
I“I=1 =>1-D≠>2-D”： I=1=> Goto 1：≠> Goto2? Lb1 1：F“X0”：G“Y0”：H“T0-H”：Goto 3?
Lb1 2：F“X0”：G“Y0”：M“XH”：N“YH”:Pol(M-F，N-G)：Fixm:J〈0=〉J=J+360⊿H=J：H“T-H=”◢ I“S-H=”◢ Goto 3? Lb1 3：{XY}?
Pol(X-F，Y-G) ：Fixm ：J〈0 =〉J=J+360⊿A=J-H? A〈0 =〉A=A+360⊿A“A=” ◢ I“S=” ◢ Goto 3 程序运行说明：
变量输入参照坐标计算，A=为放样顺时针角度，S=为放样距离。 9、已知两点坐标，反算两点之间的坐标方位角和距离（程序名ZBFS）
程序清单：
5