FX4800P常用测量程序集(3)

FX4800常用测量程序 编制：谯生有（中铁一局五公司精测队）

值中桩左侧输负值右侧输正值，计算中桩时“WAIYI”值输0即可，按“EXE键”屏幕即可依次显示计算中桩或外移桩的坐标、中桩切线方位角、放样角度A，放样距离S。

程序的输入输出都按通俗易懂的提示或测量习惯显示，为确保计算结果无误，编制程序时专门设置了错误里程输入提示，当输入的计算里程K小于该曲线起点里程时，程序将提示里程太小“K-SMALL”，继续输入正确的里程，当第一条曲线计算完毕需计算紧接的第二条曲线时，只需要给K输入一个大于第一曲线终点里程的里程值，这时屏幕显示“I=1=>ESC≠>NEXT”，如果不小心误输入一个大于终点里程的K时（ESC表示取消），可输入1“取消”操作，继续计算当前曲线，如果确认要计算下一曲线（NEXT表示要计算下一曲线），输入一个不等于1的数值，接下来屏幕将显示“JISUAN：A-TXY”，程序将自动计算第二曲线的起点信息，接着自动提示输入第二曲线终点的曲率和里程，当显示“K=？”时，即可进行第二曲线放样数据的计算。依次类推，直至计算完所有需计算的曲线中、边桩坐标和放样数据。

迁站时，直接按“AC”键终止程序的运行，到新的测站后重新运行“XLJS”，输入新的测站点、后视点坐标并保持原曲线参数不变即可。

当遇到线路曲线的曲率发生突变（如直线直接接圆曲线或者两个不同半径的圆曲线直接相接）的特殊情况时，可以将突变点两侧的曲线分开单独进行计算，也可以在突变点处增加输入一段微小长度的回旋线把突变点两侧的曲线连接起来，增加一段长度为0.0001米长度的回旋曲线，不会影响计算结果的精度。比如某直线直接连接半径为R的圆曲线，计算完直线

11

FX4800常用测量程序 编制：谯生有（中铁一局五公司精测队）

段需要接着计算圆曲线时，先输入微小长度的回旋线（1/RB=1/R，KB=直线终点里程+0.0001），然后再输入圆曲线的终点曲率和里程即可继续计算。两个不同半径（半径分别为R1，R2）的圆曲线直接相接时，先输入微小长度的回旋线（1/RB=1/R2，KB=第一圆曲线终点里程+0.0001），然后输入第二圆曲线终点的曲率和里程即可。

有时会遇到逆向测设曲线情况，即从大里程方向向小里程方向测设曲线，采用本程序进行计算时，只需将曲线倒过来进行输入即可，这时，输入和计算的量都应反号（只有“JIA-JIAO”值符号保持不变），曲线偏角反号输入（左偏变为右偏，右偏变为左偏），曲线里程输入时按负值对待，计算右边桩时外移量为负，左边桩时外移量为正（与正向刚好相反）。 14、四等水准测量记录计算程序（红黑面常数为4687、4787） Lbl 0:“H4687=>I=1”: Fixm: {IABCD}：I=1=> Goto1: ≠> Goto2?

Lbl 1:U=4687:W=4787: Goto3: Lbl 2:U=4787:W=4687: Goto3: Lbl 3: G“H1”=A“HOU1”-B“QIAN1”◢ E“V2”=B-C“QIAN2”+W◢ F“V1”=A-D“HOU2”+U◢ P“H2”=D-C◢ H=（G+P+W-U）÷2

程序按后-前-前-后的观测顺序编制，当后尺为4687时I赋值1，否则赋不等于1的值。

15、高斯抵偿高程投影面边长改正计算FX-4850程序 E“YI-CHANG：hm=”：F“DI-CHANG：Hm=”?

12

FX4800常用测量程序 编制：谯生有（中铁一局五公司精测队）

Lbl 1:{HYS}：H“PING-JUN：Hp=”:Y“PING-JUN：Ym =”:S

“GUAN-CE:S=”:V=-S×(H+E-F)÷(6371000+H+E)×1000:W=S×Y2÷(2×63712)×1000:D=S+( V+W)÷1000? “V1=”:V◢ “V2=”:W◢ “D=”:D◢ Goto 1

说明：该程序可计算高斯投影或抵偿高程面高斯投影的边长投影，hm为异常高程值，当设计资料中没有提供或者未知时取hm=0，即认为高程异常可忽略，Hm为抵偿高程，当没有设抵偿高程面时取Hm=0，即为一般的高斯投影。S为观测水平距离，Hp为导线边两端高程概略平均值（m），Ym为导线边两端点Y坐标平均值减去500公里后的平均值（Km），D为改正到高斯投影面后的边长（m）。

hm=0，Hm取隧道平均高程面高程，Ym=0时，为计算隧道平均高程面的投影改正。

16、竖曲线计算（SQXJS）

C“K（BPD）=”：D“H（BPD）=”：M“I1=(SHANG+，XIA-)”：N“I2=(SHANG+，XIA-)”：R：A= M-N ：I=A÷ABS(A):T=ABS(AR÷2) Lbl 1：{K}：K Goto2：≠> Goto3? Lbl 2：H=D+(K-C)M◢ Goto1?

Lbl 3：K Goto4：≠> Goto5?

13

FX4800常用测量程序 编制：谯生有（中铁一局五公司精测队）

Lbl 4：H=D+(K-C)M-I(K-C+T)2÷2÷R◢ Goto1?

Lbl 5：K Goto6：≠> Goto7? Lbl 6：H=D+(K-C)N-I(C+T-K)2÷2÷R◢ Goto1?

Lbl 7：H=D+(K-C)N◢ Goto1?

14