FX4800P常用测量程序集.doc

FX4800P常用测量程序集 1、由一个已知点坐标和一个已知方位角计算支导线坐标（程序名ZBJS） 程序清单 XYTLb1 0Fixm{AS}TTA-180T〈0 〉TT360⊿ T〉360 〉TT-360⊿T◢ XXScos T◢ YYSsin T◢ Goto 0 程序运行说明 运行“ZBJS”，每运行一步按键一次，显示X时输入已知点X坐标，显示Y时输入已知点Y坐标，显示T时输入已知点由后视到前视的已知坐 标方位角，运行一次本程序只需输入一次已知数据。显示A时输入第一个左转角值，显示S时输入测站到前视的水平距离。接下来计算器显示的T是测站到前视的坐标方位角，按 可将显示的十进制角度换算为度分秒。如此继续可计算出所有支导线未知坐标。 2、由两个已知点坐标计算支导线坐标（程序名ZBJS2） 程序清单 M“X0”N“Y0”D“XH”E“YH” ↲ PolM-D，N-EFixmTJXMYNT〈0〉TT360⊿T“TH-J” ◢ I“S”◢ Lb1 0{AS} TTA-180T〈0 〉TT360⊿ T〉360 〉T T-360⊿T◢ XXScos T◢ YYSsin T◢ Goto 0 程序运行说明 运行后，显示X0，Y0时输入已知置镜点坐标，显示XH，YH时输入已知后视点坐标，其它同ZBJS的输入与显示。 3、由一个已知点坐标和一个已知方位角进行放射型导线坐标计算（程序名FSXZBJS） 程序清单 C“X0”D“Y0”E“T0”FixmLb1 1{SA}↲ TEA-180T〈0〉TT360⊿ T〉360 〉TT-360⊿T◢ XCScos T◢ YDSsin T◢ Goto 1 程序运行说明 变量输入参照ZBJS程序。 4、由两个已知点坐标进行放射型导线坐标计算（程序名FSXZBJS2） M“X0”N“Y0”D“XH”E“YH” ↲ PolM-D，N-EFixmFJXMYNF〈0〉FF360⊿F“TH-J” ◢ I“S” ◢ Lb1 1{SA}↲ TFA-180T〈0〉TT360⊿ T〉360 〉TT-360⊿T◢ XXScos T◢ YYSsin T◢ Goto 1 5、坐标计算优化程序（可进行连续式（LX）、放射式（FS）已知一点（1-D）或者两点（2-D）进行坐标计算） V“1LX，≠FS”W“1 1-D，≠2-D”W1 Goto 1≠ Goto2↲ Lb1 1F“X0”G“Y0”H“T H-0”Goto 3↲ Lb1 2F“X0”G“Y0”M“XH”N“YH”PolF-M，G-NFixm J〈0〉JJ360⊿HJH“TH-0”◢ I“S-H”◢ Goto 3↲ Lb1 3 XFYGTH V1 Goto 4≠ Goto 5↲ Lb1 4 {AS} ASTTA-180T〈0 〉TT360⊿ T〉360 〉T T-360⊿T◢ XXScos T◢ YYSsin T◢ Goto 4 Lb1 5{AS}AS THA-180T〈0〉TT360⊿ T〉360 〉TT-360⊿T◢ XFScos T◢ YGSsin T◢ Goto 5 6、已知置镜点坐标和置镜点到后视点坐标方位角求放样角度和放样距离的放样程序（程序名FY1） 程序清单 F“X0”G“Y0”H“T0-H”FixmLb1 1{XY}↲ PolX-F，Y-G ↲ J〈0 〉JJ360⊿AJ-H↲ A〈0 〉AA360⊿A“A” ◢ I“S” ◢ Goto 1 程序运行说明 变量输入参照坐标计算，A为放样顺时针角度，S为放样距离。 7、已知置镜点和后视点坐标进行放样（FY2） 程序清单 F“X0”G“Y0”M“XH”N“YH”↲ PolM-F，N-GFixmHJ↲ H〈0〉HH360⊿H“T-H”◢ I“S-H” ◢ Lb1 1{XY} PolX-F，Y-G ↲ J〈0 〉JJ360⊿↲ AJ-H↲ A〈0 〉AA360⊿A“A”◢ I“S” ◢ Goto 1 8、放样优化程序（可分已知一点或者两点坐标进行放样角度距离的计算） 程序名“FY” 程序清单 I“I1 1-D≠2-D” I1 Goto 1≠ Goto2↲ Lb1 1F“X0”G“Y0”H“T0-H”Goto 3↲ Lb1 2F“X0”G“Y0”M“XH”N“YH”PolM-F，N-GFixmJ〈0〉JJ360⊿HJH“T-H”◢ I“S-H”◢ Goto 3↲ Lb1 3{XY}↲ PolX-F，Y-G Fixm J〈0 〉JJ360⊿AJ-H↲ A〈0 〉AA360⊿A“A” ◢ I“S” ◢ Goto 3 程序运行说明 变量输入参照坐标计算，A为放样顺时针角度，S为放样距离。 9、已知两点坐标，反算两点之间的坐标方位角和距离（程序名ZBFS） 程序清单 A“X1”B“Y1”C“X2”D“Y2”P ol（C-A，D-B）FixmJ〈0 〉JJ360⊿J“T（1-2）” ◢ I“S（1-2）” 10、分别已知两条直线上一点的坐标和坐标方位角，求这两条直线的交点坐标（程序名JDZB） 程序清单 X（tan A“T1”B“X1”-C“Y1”-tan D“T2” E“X2”F“Y2”） V（tan A- tan D）◢ Y tan A（X-B）C 11、直线线路坐标计算（ZXJS） 程序清单 V“X0”W“Y0”T“T0”U“K0”Lb1 0Fixm{KD}XV（K-U）cos TDcosT90◢ YW（K-U）sin TDsinT90◢ Goto 0 程序运行说明 已知某一直线线路上一点的坐标为X0，Y0，该点里程为K0以及该直线沿前进方向的坐标方位角T0，按照提示输入以上数据，如果输入某一里程K和法线外移距离D（向右移为正值，向左移为负值）即可计算出该里程点的法线外移桩坐标X、Y，当D0时计算结果为中桩坐标。 12、“缓圆缓”型曲线坐标计算 主程序（QXJS） 程序清单 Prog “BQXYS”Q“ZHK”F“ZHX”G“ZHY”N“TZHJD”I“（Y1，Z-1）” ↲ Lbl 1Fixm{KD}K“LICHENG”D“WAIYI（Z-，Y）”Goto2↲ Lbl 2K Goto3≠ Goto4↲ Lbl 3“KOVER” Goto1↲ Lbl 4KQL Goto3≠ Goto5↲ Lbl 5K≤QB Goto6≠ Goto7↲ Lbl 6SK-QWBProg “HQXY”ONI90S2Л RBO OO360⊿O360 OO-360⊿O“FANGWEI” ◢ XUcosN-VsinNFDcosO90 ◢ YVcosNUsinNGDsinO90 ◢ Goto1↲ Lbl 7K≤QL-C Goto8≠ Goto9↲ Lbl 8SK-QONI902S-BЛ RO OO360⊿O360 OO-360⊿O“FANGWEI” ◢ Prog “YQXY”XUcosN-VsinNFDcosO90 ◢ YVcosNUsinNGDsinO90 ◢ Goto1↲ Lbl 9 S QL-KWCProg “HQXY”ENIA180OE-I90S2Л RC180O OO360⊿O360 OO-360⊿O“FANGWEI”◢ V-V↲ XU-HcosE-VsinEFT cosNDcosO90 ◢ YVcosEU-HsinEGT sinNDsinO90 ◢ Goto1↲ 子程序“BQXYS” ARB“L01”C“L02” ↲ M“M1”B2-B3（240 R2）◢ J“M2”C2-C3（240 R2）◢ P“P1” B2（24 R）- B4（2688 R3）◢ Z“P2” C2（24 R）- C4（2688 R3）◢ T“T1”M（RP）tanA2Z-P sinA◢ H“T2”J（RZ）tanA2 P -Z sinA◢ L B2C2A RЛ180◢ E◢ 子程序“HQXY” US-S540R2 W2 S93456 R4 W4-S13599040R6 W6VIS36RW- S7336 R3 W3 S1142240 R5 W5 子程序“YQXY” URsin180S-B2ЛRMVIR1-cos180S-B2ЛRP 程序说明本程序可以计算等长和不等长“缓圆缓”型曲线或者单圆曲线的中线坐标、外移桩坐标以及中线的切线方位角。 先将主、子程序存入计算器，然后运行主程序“QXJS”，输入A（曲线偏角），曲线半径R，第一缓和曲线长L01，第二缓和曲线长L02，（等长缓和曲线时L01 L02），然后显示曲线逐要素，接着输入ZH坐标（ZHX，ZHY），ZH到JD坐标方位角TZHJD，当曲线为左偏时（Y1，Z-1）输-1，右偏输1，输入计算里程K，外移距离D，计算中桩时D输0，计算左边桩时D输负数，算右边桩时D输正数，当所输里程不在本曲线计算范围内时，屏幕显示KOVER，继续输入有效里程可继续计算。 对于单圆曲线，缓和曲线长输入0。 本程序缓和曲线X计算取了4项，Y计算取了3项，一般的曲线计算精度都可达到mm级。 13、采用积分进行任意曲线线路坐标计算程序（直线、圆曲线、卵型曲线） 程序名“XLJS” 程序名“XLJS”V1.1，2005年12月7日星期三升级于秦岭公司 G“XJ”H“YJ”R“XH”S“YH”A“XA”B“YA”C“TA”E“1RA ,Z-，Y”P“KA”↲ Lbl 1{FQ}F“1RB, Z-，Y”Q“KB” ↲ Lbl 2{V}V“K”OVO Goto3≠ Goto4↲ Lbl 3“K-SMALL”Goto2↲ Lbl 4OQ Goto5≠ Goto7↲ Lbl 5{I}I“I1ESC≠NEXT”I1 Goto2≠ Goto 6↲ Lbl 6“JISUANA-TXY”VQZ0D0Goto8↲ Lbl 7 {DZ}Z“JIA-JIAO”D“WAIYI（Z-，Y）”↲ Lbl 8TC90Л（2E（F-E）（V-P）（Q-P））（V-P）T〈0〉TT360⊿ T〉360 〉TT-360⊿↲ RadWA∫（cos（C0.52EF-EX-PQ-PX-P）,P,V,4） DcosTZ ↲ YB∫（sin（C0.52EF-EX-PQ-PX-P）,P,V,4） DsinTZDegGoto9↲ Lbl 9O≤Q GotoB≠ GotoA↲ Lbl AAWBYCTEFPQ Goto1↲ Lbl B W“X”◢ Y“Y”◢ T“T”◢ PolR-G，S-HFixmMJPolW-G，Y-H JJ-M↲ JJJ360⊿J360 JJ-360⊿J“A”◢ I“S”◢ Goto 2 程序积分式中“”的编辑输入为“FUNCTION”键5（DRG）4（）。 程序功能 由于程序根据线路曲线坐标计算通用数学模型编制，所以，对于任意线型的一段线路曲线（直线、圆曲线可看作是通用计算模型的特例），只要输入曲线信息和测站信息，都可以迅速地计算出该曲线上任意里程点处的切线方位、中桩或与该里程切线成任意夹角的外移桩坐标、极坐标法放样的角度和距离。 程序运行 运行程序“XLJS”，按提示输入置镜点坐标（XJ，YJ），后视点坐标（XH，YH），曲线起点A的坐标（XA，YA）、沿线路前进方向的切线方位角TA、里程KA、曲率（直接在计算器上以1RA的形式输入，R表示半径，左偏曲线输负值右偏曲线输正值），继续输入终点B的曲率（1RB输入同A点）、里程KB。当屏幕显示“K”时，输入该段曲线要计算放样数据的里程值，按提示输入夹角“JIA-JIAO”（夹角的范围为0-180度）和外移量“WAIYI”，“JIA-JIAO”值为该里程自线路前进方向的切线方位角顺时针至该里程中桩与右边桩连线间的角度，当为法线方向时JIA-JIAO为90度，“WAIYI”值中桩左侧输负值右侧输正值，计算中桩时“WAIYI”值输0即可，按“键”屏幕即可依次显示计算中桩或外移桩的坐标、中桩切线方位角、放样角度A，放样距离S。 程序的输入输出都按通俗易懂的提示或测量习惯显示，为确保计算结果无误，编制程序时专门设置了错误里程输入提示，当输入的计算里程K小于该曲线起点里程时，程序将提示里程太小“K-SMALL”，继续输入正确的里程，当第一条曲线计算完毕需计算紧接的第二条曲线时，只需要给K输入一个大于第一曲线终点里程的里程值，这时屏幕显示“I1ESC≠NEXT”，如果不小心误输入一个大于终点里程的K时（ESC表示取消），可输入1“取消”操作，继续计算当前曲线，如果确认要计算下一曲线（NEXT表示要计算下一曲线），输入一个不等于1的数值，接下来屏幕将显示“JISUANA-TXY”，程序将自动计算第二曲线的起点信息，接着自动提示输入第二曲线终点的曲率和里程，当显示“K”时，即可进行第二曲线放样数据的计算。依次类推，直至计算完所有需计算的曲线中、边桩坐标和放样数据。 迁站时，直接按“AC”键终止程序的运行，到新的测站后重新运行“XLJS”，输入新的测站点、后视点坐标并保持原曲线参数不变即可。 当遇到线路曲线的曲率发生突变（如直线直接接圆曲线或者两个不同半径的圆曲线直接相接）的特殊情况时，可以将突变点两侧的曲线分开单独进行计算，也可以在突变点处增加输入一段微小长度的回旋线把突变点两侧的曲线连接起来，增加一段长度为0.0001米长度的回旋曲线，不会影响计算结果的精度。比如某直线直接连接半径为R的圆曲线，计算完直线段需要接着计算圆曲线时，先输入微小长度的回旋线（1/RB1/R，KB直线终点里程0.0001），然后再输入圆曲线的终点曲率和里程即可继续计算。两个不同半径（半径分别为R1，R2）的圆曲线直接相接时，先输入微小长度的回旋线（1/RB1/R2，KB第一圆曲线终点里程0.0001），然后输入第二圆曲线终点的曲率和里程即可。 有时会遇到逆向测设曲线情况，即从大里程方向向小里程方向测设曲线，采用本程序进行计算时，只需将曲线倒过来进行输入即可，这时，输入和计算的量都应反号（只有“JIA-JIAO”值符号保持不变），曲线偏角反号输入（左偏变为右偏，右偏变为左偏），曲线里程输入时按负值对待，计算右边桩时外移量为负，左边桩时外移量为正（与正向刚好相反）。 14、四等水准测量记录计算程序（红黑面常数为4687、4787） Lbl 0“H4687I1” Fixm {IABCD}I1 Goto1 ≠ Goto2↲ Lbl 1U4687W4787 Goto3 Lbl 2U4787W4687 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（GPW-U）2 程序按后-前-前-后的观测顺序编制，当后尺为4687时I赋值1，否则赋不等于1的值。 15、高斯抵偿高程投影面边长改正计算FX-4850程序 E“YI-CHANGhm”F“DI-CHANGHm”↲ Lbl 1{HYS}H“PING-JUNHp”Y“PING-JUNYm ”S“GUAN-CES”V-SHE-F6371000HE1000WSY22637121000DS VW1000↲ “V1”V◢ “V2”W◢ “D”D◢ Goto 1 说明该程序可计算高斯投影或抵偿高程面高斯投影的边长投影，hm为异常高程值，当设计资料中没有提供或者未知时取hm0，即认为高程异常可忽略，Hm为抵偿高程，当没有设抵偿高程面时取Hm0，即为一般的高斯投影。S为观测水平距离，Hp为导线边两端高程概略平均值（m），Ym为导线边两端点Y坐标平均值减去500公里后的平均值（Km），D为改正到高斯投影面后的边长（m）。 hm0，Hm取隧道平均高程面高程，Ym0时，为计算隧道平均高程面的投影改正。 16、竖曲线计算（SQXJS） C“K（BPD）”D“H（BPD）”M“I1SHANG，XIA-”N“I2SHANG，XIA-”RA M-N IAABSATABSAR2 Lbl 1{K}K Goto2≠ Goto3↲ Lbl 2HDK-CM◢ Goto1↲ Lbl 3K Goto4≠ Goto5↲ Lbl 4HDK-CM-IK-CT22R◢ Goto1↲ Lbl 5K Goto6≠ Goto7↲ Lbl 6HDK-CN-ICT-K22R◢ Goto1↲ Lbl 7HDK-CN◢ Goto1↲ 16修改“缓圆缓”型曲线坐标计算 主程序（QXJS） 程序清单 Defm 8 Prog “BQXYS”Q“ZHK”F“ZHX”G“ZHY”N“TZHJD”{I}I“（Y1，Z-1）” Z[1]I↲ {I}I “Xo”Z[2]I {I} I “Yo”Z[3]I {I} I “XH”{I}Z[4]I {I} I “YH”Z[5]IPolZ[4]- Z[2]，Z[5]- Z[3]Fixm↲ J〈0〉JJ360⊿Z[6]JI“S-H” ◢ Lbl 1Fixm{KD}K“LICHENG”D“WAIYI（Z-，Y）”Goto2↲ Lbl 2K Goto3≠ Goto4↲ Lbl 3“KOVER” Goto1↲ Lbl 4KQL Goto3≠ Goto5↲ Lbl 5K≤QB Goto6≠ Goto7↲ Lbl 6SK-QWBProg “HQXY”ON Z[1]90S2Л RBO OO360⊿O360 OO-360⊿O“FANGWEI” ◢ XUcosN-VsinNFDcosO90 ◢ YVcosNUsinNGDsinO90 ◢ Prog“FY” Goto1↲ Lbl 7K≤QL-C Goto8≠ Goto9↲ Lbl 8SK-QON Z[1]902S-BЛ RO OO360⊿O360 OO-360⊿O“FANGWEI” ◢ Prog “YQXY”XUcosN-VsinNFDcosO90 ◢ YVcosNUsinNGDsinO90 ◢ Prog“FY” Goto1↲ Lbl 9 S QL-KWCProg “HQXY”EN Z[1]A180OE- Z[1]90S2Л RC180O OO360⊿O360 OO-360⊿O“FANGWEI”◢ V-V↲ XU-HcosE-VsinEFT cosNDcosO90 ◢ YVcosEU-HsinEGT sinNDsinO90 ◢ Prog“FY” Goto1↲ 子程序“BQXYS” ARB“L01”C“L02” ↲ M“M1”B2-B3（240 R2）◢ J“M2”C2-C3（240 R2）◢ P“P1” B2（24 R）- B4（2688 R3）◢ Z“P2” C2（24 R）- C4（2688 R3）◢ T“T1”M（RP）tanA2Z-P sinA◢ H“T2”J（RZ）tanA2 P -Z sinA◢ L B2C2A RЛ180◢ E◢ 子程序“HQXY” US-S540R2 W2 S93456 R4 W4-S13599040R6 W6V Z[1]S36RW- S7336 R3 W3 S1142240 R5 W5 子程序“YQXY” URsin180S-B2ЛRMV Z[1]R1-cos180S-B2ЛRP 子程序“FY” PolX- Z[2]，Y- Z[3] ↲ J〈0 〉JJ360⊿↲ Z[7]J- Z[6]Z[7]〈0 〉Z[7] Z[7]360⊿Z[7] “A”◢ I“S” ◢ 程序说明本程序可以计算等长和不等长“缓圆缓”型曲线或者单圆曲线的中线坐标、外移桩坐标以及中线的切线方位角。 先将主、子程序存入计算器，然后运行主程序“QXJS”，输入A（曲线偏角），曲线半径R，第一缓和曲线长L01，第二缓和曲线长L02，（等长缓和曲线时L01 L02），然后显示曲线逐要素，接着输入ZH坐标（ZHX，ZHY），ZH到JD坐标方位角TZHJD，当曲线为左偏时（Y1，Z-1）输-1，右偏输1，输入计算里程K，外移距离D，计算中桩时D输0，计算左边桩时D输负数，算右边桩时D输正数，当所输里程不在本曲线计算范围内时，屏幕显示KOVER，继续输入有效里程可继续计算。 对于单圆曲线，缓和曲线长输入0。 本程序缓和曲线X计算取了4项，Y计算取了3项，一般的曲线计算精度都可达到mm级。 17