FX4800P常用測量程序集1、由一個已知點坐標和一個已知方位角計算支導(dǎo)線坐標（程序名：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？時輸入已知點由后視到前視的已知坐 標方位角，運行一次本程序只需輸入一次已知數(shù)據(jù)。顯示A？時輸入第一個左轉(zhuǎn)角值，顯示S？時輸入測站到前視的水平距離。接下來計算器顯示的T是測站到前視的坐標方位角，按 + 可將顯示的十進制角度換算為度分秒。如此繼續(xù)可計算出所有支導(dǎo)線未知坐標。2、由兩個已知點坐標計算支導(dǎo)線坐標（程序名：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=”◢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、由一個已知點坐標和一個已知方位角進行放射型導(dǎo)線坐標計算（程序名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程序運行說明：變量輸入?yún)⒄語BJS程序。4、由兩個已知點坐標進行放射型導(dǎo)線坐標計算（程序名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=” ◢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 15、坐標計算優(yōu)化程序（可進行連續(xù)式（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 4Lb1 5：{AS}:A:ST=H+A-180：T〈0=〉T=T+360⊿ T〉360 =〉T=T-360⊿T◢X=F+Scos T◢Y=G+Ssin T◢Goto 56、已知置鏡點坐標和置鏡點到后視點坐標方位角求放樣角度和放樣距離的放樣程序（程序名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(chǔ)=A+360⊿A“A=” ◢I“S=” ◢Goto 1程序運行說明：變量輸入?yún)⒄兆鴺擞嬎�，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⊿↲A=J-H↲A〈0 =〉A(chǔ)=A+360⊿A“A=”◢I“S=” ◢Goto 18、放樣優(yōu)化程序（可分已知一點或者兩點坐標進行放樣角度距離的計算）程序名“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(chǔ)=A+360⊿A“A=” ◢I“S=” ◢Goto 3程序運行說明：變量輸入?yún)⒄兆鴺擞嬎�，A=為放樣順時針角度，S=為放樣距離。9、已知兩點坐標，反算兩點之間的坐標方位角和距離（程序名ZBFS）程序清單：A“X1=”：B“Y1=”：C“X2=”：D“Y2=”：P ol（C-A，D-B）：Fixm：J〈0 =〉J=J+360⊿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）+C11、直線線路坐標計算（ZXXY）程序清單：V“X0=”：W“Y0=”：T“T0=”：U“K0=”：Lb1 0：Fixm：{KD}：X=V+（K-U）cos T+D×cos(T+90)◢ Y=W+（K-U）sin T+D×sin(T+90)◢ Goto 0程序運行說明：已知某一直線線路上一點的坐標為X0，Y0，該點里程為K0以及該直線沿前進方向的坐標方位角T0，按照提示輸入以上數(shù)據(jù)，如果輸入某一里程K和法線外移距離D（向右移為正值，向左移為負值）即可計算出該里程點的法線外移樁坐標X、Y，當D=0時計算結(jié)果為中樁坐標。12、“緩+圓+緩”型曲線坐標計算主程序（QXJS）程序清單：Prog “BQXYS”：Q“K—ZH”：F“ZHX=”：G“ZHY=”：N“TZH—JD”：I“（Y1，Z-1）” ↲Lbl 1:Fixm:{KD}:K“LICHENG=”：D“WAIYI=（Z-，Y+）”：Goto2↲Lbl 2:K Goto3:≠> Goto4↲Lbl 3:“K—OVER”: Goto1↲Lbl 4:K>Q+L => Goto3:≠> Goto5↲Lbl 5:K≤Q+B => Goto6:≠> Goto7↲Lbl 6:S=K-Q：W=B：Prog “HQXY”：O=N+I×90S2÷(Л RB)：O<0 => O=O+360⊿O>360 => O=O-360⊿O“FANGWEI=” ◢X=UcosN-VsinN+F+D×cos(O+90) ◢Y=VcosN+UsinN+G+D×sin(O+90) ◢Goto1↲Lbl 7：K≤Q+L-C => Goto8:≠> Goto9↲Lbl 8:S=K-Q：O=N+I×90(2S-B)÷(Л R)：O<0 => O=O+360⊿O>360 => O=O-360⊿O“FANGWEI=” ◢Prog “YQXY”：X=UcosN-VsinN+F+D×cos(O+90) ◢Y=VcosN+UsinN+G+D×sin(O+90) ◢Goto1↲Lbl 9: S= Q+L-K：W=C：Prog “HQXY”：E=N+IA+180：O=E-I×90S2÷(Л RC)+180：O<0 => O=O+360⊿O>360 => O=O-360⊿O“FANGWEI=”◢V=-V↲X=(U-H)cosE-VsinE+F+T cosN+D×cos(O+90) ◢Y=VcosE+(U-H)sinE+G+T sinN+D×sin(O+90) ◢Goto1↲子程序“BQXYS”A:R:B“L01”:C“L02” ↲M“M1”=B÷2-B3÷（240 R2）◢J“M2”=C÷2-C3÷（240 R2）◢P“P1”= B2÷（24 R）- B4÷（2688 R3）◢Z“P2”= C2÷（24 R）- C4÷（2688 R3）◢T“T1”=M+（R+P）tan(A÷2)+(Z-P) ÷sinA◢H“T2”=J+（R+Z）tan(A÷2)+( P-Z) ÷sinA◢L= B÷2+C÷2+A RЛ÷180◢E= ◢子程序“HQXY”U=S-S5÷(40R2 W2)+ S9÷(3456 R4 W4)-S13÷(599040R6 W6):V=I×(S3÷(6RW)- S7÷(336 R3 W3) +S11÷(42240 R5 W5))子程序“YQXY”U=Rsin(180(S-B÷2)÷Л÷R)+M:V=I×(R×(1-cos(180(S-B÷2)÷Л÷R))+P)程序說明：本程序可以計算等長和不等長“緩+圓+緩”型曲線或者單圓曲線的中線坐標、外移樁坐標以及中線的切線方位角。先將主、子程序存入計算器，然后運行主程序“QXJS”，輸入A（曲線偏角），曲線半徑R，第一緩和曲線長L01，第二緩和曲線長L02，（等長緩和曲線時L01= L02），然后顯示曲線逐要素，接著輸入ZH坐標（ZHX，ZHY），ZH到JD坐標方位角TZH—JD，當曲線為左偏時（Y1，Z-1）輸-1，右偏輸1，輸入計算里程K，外移距離D，計算中樁時D輸0，計算左邊樁時D輸負數(shù)，算右邊樁時D輸正數(shù)，當所輸里程不在本曲線計算范圍內(nèi)時，屏幕顯示K—OVER，繼續(xù)輸入有效里程可繼續(xù)計算。對于單圓曲線，緩和曲線長輸入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“1÷RA ,Z-，Y+”：P“KA=”↲Lbl 1：{FQ}：F“1÷RB, Z-，Y+”：Q“KB=” ↲Lbl 2：{V}：V“K=”：O=V：O
Goto3：≠> Goto4↲Lbl 3：“K-SMALL”：Goto2↲Lbl 4：O>Q => Goto5：≠> Goto7↲Lbl 5：{I}：I“I=1=>ESC≠>NEXT”：I=1=> Goto2：≠> Goto 6↲Lbl 6：“JISUAN：A-TXY”：V=Q：Z=0：D=0：Goto8↲Lbl 7: {DZ}：Z“JIA-JIAO=”：D“WAIYI=（Z-，Y+）”↲Lbl 8：T=C+90÷Л×（2E+（F-E）（V-P）÷（Q-P））（V-P）：T〈0=〉T=T+360⊿ T〉360 =〉T=T-360⊿↲Rad：W=A+∫（cos（C°+0.5×(2E+(F-E)(X-P)÷(Q-P))(X-P)）,P,V,4）+ D×cos(T°+Z°) ↲Y=B+∫（sin（C°+0.5×(2E+(F-E)(X-P)÷(Q-P))(X-P)）,P,V,4）+ D×sin(T°+Z°)：Deg：Goto9↲Lbl 9：O≤Q => GotoB：≠> GotoA↲Lbl A：A=W：B=Y：C=T：E=F：P=Q： Goto1↲Lbl B： W“X=”◢Y“Y=”◢T“T=”◢Pol(R-G，S-H)：Fixm：M=J：Pol(W-G，Y-H) ：J=J-M↲J<0 =>J=J+360⊿J>360 =>J=J-360⊿J“A=”◢I“S=”◢Goto 2程序積分式中“°”的編輯輸入為：“FUNCTION”鍵+5（DRG）+4（°）。程序功能由于程序根據(jù)線路曲線坐標計算通用數(shù)學(xué)模型編制，所以，對于任意線型的一段線路曲線（直線、圓曲線可看作是通用計算模型的特例），只要輸入曲線信息和測站信息，都可以迅速地計算出該曲線上任意里程點處的切線方位、中樁或與該里程切線成任意夾角的外移樁坐標、極坐標法放樣的角度和距離。程序運行運行程序“XLJS”，按提示輸入置鏡點坐標（XJ，YJ），后視點坐標（XH，YH），曲線起點A的坐標（XA，YA）、沿線路前進方向的切線方位角TA、里程KA、曲率（直接在計算器上以1÷RA的形式輸入，R表示半徑，左偏曲線輸負值右偏曲線輸正值），繼續(xù)輸入終點B的曲率（1÷RB輸入同A點）、里程KB。當屏幕顯示“K=？”時，輸入該段曲線要計算放樣數(shù)據(jù)的里程值，按提示輸入夾角“JIA-JIAO”（夾角的范圍為0-180度）和外移量“WAIYI”，“JIA-JIAO”值為該里程自線路前進方向的切線方位角順時針至該里程中樁與右邊樁連線間的角度，當為法線方向時JIA-JIAO為90度，“WAIYI”值中樁左側(cè)輸負值右側(cè)輸正值，計算中樁時“WAIYI”值輸0即可，按“EXE鍵”屏幕即可依次顯示計算中樁或外移樁的坐標、中樁切線方位角、放樣角度A，放樣距離S。程序的輸入輸出都按通俗易懂的提示或測量習(xí)慣顯示，為確保計算結(jié)果無誤，編制程序時專門設(shè)置了錯誤里程輸入提示，當輸入的計算里程K小于該曲線起點里程時，程序?qū)⑻崾纠锍烫?ldquo;K-SMALL”，繼續(xù)輸入正確的里程，當?shù)谝粭l曲線計算完畢需計算緊接的第二條曲線時，只需要給K輸入一個大于第一曲線終點里程的里程值，這時屏幕顯示“I=1=>ESC≠>NEXT”，如果不小心誤輸入一個大于終點里程的K時（ESC表示取消），可輸入1“取消”操作，繼續(xù)計算當前曲線，如果確認要計算下一曲線（NEXT表示要計算下一曲線），輸入一個不等于1的數(shù)值，接下來屏幕將顯示“JISUAN：A-TXY”，程序?qū)⒆詣佑嬎愕诙�的起點信息，接著自動提示輸入第二曲線終點的曲率和里程，當顯示“K=？”時，即可進行第二曲線放樣數(shù)據(jù)的計算。依次類推，直至計算完所有需計算的曲線中、邊樁坐標和放樣數(shù)據(jù)。遷站時，直接按“AC”鍵終止程序的運行，到新的測站后重新運行“XLJS”，輸入新的測站點、后視點坐標并保持原曲線參數(shù)不變即可。當遇到線路曲線的曲率發(fā)生突變（如直線直接接圓曲線或者兩個不同半徑的圓曲線直接相接）的特殊情況時，可以將突變點兩側(cè)的曲線分開單獨進行計算，也可以在突變點處增加輸入一段微小長度的回旋線把突變點兩側(cè)的曲線連接起來，增加一段長度為0.0001米長度的回旋曲線，不會影響計算結(jié)果的精度。比如某直線直接連接半徑為R的圓曲線，計算完直線段需要接著計算圓曲線時，先輸入微小長度的回旋線（1/RB=1/R，KB=直線終點里程+0.0001），然后再輸入圓曲線的終點曲率和里程即可繼續(xù)計算。兩個不同半徑（半徑分別為R1，R2）的圓曲線直接相接時，先輸入微小長度的回旋線（1/RB=1/R2，KB=第一圓曲線終點里程+0.0001），然后輸入第二圓曲線終點的曲率和里程即可。有時會遇到逆向測設(shè)曲線情況，即從大里程方向向小里程方向測設(shè)曲線，采用本程序進行計算時，只需將曲線倒過來進行輸入即可，這時，輸入和計算的量都應(yīng)反號（只有“JIA-JIAO”值符號保持不變），曲線偏角反號輸入（左偏變?yōu)橛移�，右偏變�(yōu)樽笃�里程輸入時按負值對待，計算右邊樁時外移量為負，左邊樁時外移量為正（與正向剛好相反）。14、四等水準測量記錄計算程序（紅黑面常數(shù)為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=”↲ 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為異常高程值，當設(shè)計資料中沒有提供或者未知時取hm=0，即認為高程異�？珊雎裕琀m為抵償高程，當沒有設(shè)抵償高程面時取Hm=0，即為一般的高斯投影。S為觀測水平距離，Hp為導(dǎo)線邊兩端高程概略平均值（m），Ym為導(dǎo)線邊兩端點Y坐標平均值減去500公里后的平均值（Km），D為改正到高斯投影面后的邊長（m）。 hm=0，Hm取隧道平均高程面高程，Ym=0時，為計算隧道平均高程面的投影改正。
