FX4800P常用測(cè)量程序集1、由一個(gè)已知點(diǎn)坐標(biāo)和一個(gè)已知方位角計(jì)算支導(dǎo)線坐標(biā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程序運(yùn)行說明：運(yùn)行“ZBJS”，每運(yùn)行一步按EXE鍵一次，顯示X？時(shí)輸入已知點(diǎn)X坐標(biāo)，顯示Y？時(shí)輸入已知點(diǎn)Y坐標(biāo)，顯示T？時(shí)輸入已知點(diǎn)由后視到前視的已知坐  標(biāo)方位角，運(yùn)行一次本程序只需輸入一次已知數(shù)據(jù)。顯示A？時(shí)輸入第一個(gè)左轉(zhuǎn)角值，顯示S？時(shí)輸入測(cè)站到前視的水平距離。接下來計(jì)算器顯示的T是測(cè)站到前視的坐標(biāo)方位角，按     +       可將顯示的十進(jìn)制角度換算為度分秒。如此繼續(xù)可計(jì)算出所有支導(dǎo)線未知坐標(biāo)。2、由兩個(gè)已知點(diǎn)坐標(biāo)計(jì)算支導(dǎo)線坐標(biā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程序運(yùn)行說明：運(yùn)行后，顯示X0，Y0時(shí)輸入已知置鏡點(diǎn)坐標(biāo)，顯示XH，YH時(shí)輸入已知后視點(diǎn)坐標(biāo)，其它同ZBJS的輸入與顯示。3、由一個(gè)已知點(diǎn)坐標(biāo)和一個(gè)已知方位角進(jìn)行放射型導(dǎo)線坐標(biāo)計(jì)算（程序名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)行說明：變量輸入?yún)⒄語BJS程序。4、由兩個(gè)已知點(diǎn)坐標(biāo)進(jìn)行放射型導(dǎo)線坐標(biāo)計(jì)算（程序名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、坐標(biāo)計(jì)算優(yōu)化程序（可進(jìn)行連續(xù)式（LX）、放射式（FS）已知一點(diǎn)（1-D）或者兩點(diǎn)（2-D）進(jìn)行坐標(biāo)計(jì)算）：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、已知置鏡點(diǎn)坐標(biāo)和置鏡點(diǎn)到后視點(diǎn)坐標(biāo)方位角求放樣角度和放樣距離的放樣程序（程序名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)行說明：變量輸入?yún)⒄兆鴺?biāo)計(jì)算，A=為放樣順時(shí)針角度，S=為放樣距離。7、已知置鏡點(diǎn)和后視點(diǎn)坐標(biāo)進(jìn)行放樣（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)化程序（可分已知一點(diǎn)或者兩點(diǎn)坐標(biāo)進(jìn)行放樣角度距離的計(jì)算）程序名“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)行說明：變量輸入?yún)⒄兆鴺?biāo)計(jì)算，A=為放樣順時(shí)針角度，S=為放樣距離。9、已知兩點(diǎn)坐標(biāo)，反算兩點(diǎn)之間的坐標(biāo)方位角和距離（程序名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、分別已知兩條直線上一點(diǎn)的坐標(biāo)和坐標(biāo)方位角，求這兩條直線的交點(diǎn)坐標(biāo)（程序名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、直線線路坐標(biāo)計(jì)算（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程序運(yùn)行說明：已知某一直線線路上一點(diǎn)的坐標(biāo)為X0，Y0，該點(diǎn)里程為K0以及該直線沿前進(jìn)方向的坐標(biāo)方位角T0，按照提示輸入以上數(shù)據(jù)，如果輸入某一里程K和法線外移距離D（向右移為正值，向左移為負(fù)值）即可計(jì)算出該里程點(diǎn)的法線外移樁坐標(biāo)X、Y，當(dāng)D=0時(shí)計(jì)算結(jié)果為中樁坐標(biāo)。12、“緩+圓+緩”型曲線坐標(biāo)計(jì)算主程序（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)程序說明：本程序可以計(jì)算等長和不等長“緩+圓+緩”型曲線或者單圓曲線的中線坐標(biāo)、外移樁坐標(biāo)以及中線的切線方位角。先將主、子程序存入計(jì)算器，然后運(yùn)行主程序“QXJS”，輸入A（曲線偏角），曲線半徑R，第一緩和曲線長L01，第二緩和曲線長L02，（等長緩和曲線時(shí)L01= L02），然后顯示曲線逐要素，接著輸入ZH坐標(biāo)（ZHX，ZHY），ZH到JD坐標(biāo)方位角TZH—JD，當(dāng)曲線為左偏時(shí)（Y1，Z-1）輸-1，右偏輸1，輸入計(jì)算里程K，外移距離D，計(jì)算中樁時(shí)D輸0，計(jì)算左邊樁時(shí)D輸負(fù)數(shù)，算右邊樁時(shí)D輸正數(shù)，當(dāng)所輸里程不在本曲線計(jì)算范圍內(nèi)時(shí)，屏幕顯示K—OVER，繼續(xù)輸入有效里程可繼續(xù)計(jì)算。對(duì)于單圓曲線，緩和曲線長輸入0。本程序緩和曲線X計(jì)算取了4項(xiàng)，Y計(jì)算取了3項(xiàng)，一般的曲線計(jì)算精度都可達(dá)到mm級(jí)。13、采用積分進(jìn)行任意曲線線路坐標(biāo)計(jì)算程序（直線、圓曲線、卵型曲線）程序名“XLJS”程序名“XLJS”(V1.1，2005年12月7日星期三升級(jí)于秦嶺公司)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ù)線路曲線坐標(biāo)計(jì)算通用數(shù)學(xué)模型編制，所以，對(duì)于任意線型的一段線路曲線（直線、圓曲線可看作是通用計(jì)算模型的特例），只要輸入曲線信息和測(cè)站信息，都可以迅速地計(jì)算出該曲線上任意里程點(diǎn)處的切線方位、中樁或與該里程切線成任意夾角的外移樁坐標(biāo)、極坐標(biāo)法放樣的角度和距離。程序運(yùn)行運(yùn)行程序“XLJS”，按提示輸入置鏡點(diǎn)坐標(biāo)（XJ，YJ），后視點(diǎn)坐標(biāo)（XH，YH），曲線起點(diǎn)A的坐標(biāo)（XA，YA）、沿線路前進(jìn)方向的切線方位角TA、里程KA、曲率（直接在計(jì)算器上以1÷RA的形式輸入，R表示半徑，左偏曲線輸負(fù)值右偏曲線輸正值），繼續(xù)輸入終點(diǎn)B的曲率（1÷RB輸入同A點(diǎn)）、里程KB。當(dāng)屏幕顯示“K=？”時(shí)，輸入該段曲線要計(jì)算放樣數(shù)據(jù)的里程值，按提示輸入夾角“JIA-JIAO”（夾角的范圍為0-180度）和外移量“WAIYI”，“JIA-JIAO”值為該里程自線路前進(jìn)方向的切線方位角順時(shí)針至該里程中樁與右邊樁連線間的角度，當(dāng)為法線方向時(shí)JIA-JIAO為90度，“WAIYI”值中樁左側(cè)輸負(fù)值右側(cè)輸正值，計(jì)算中樁時(shí)“WAIYI”值輸0即可，按“EXE鍵”屏幕即可依次顯示計(jì)算中樁或外移樁的坐標(biāo)、中樁切線方位角、放樣角度A，放樣距離S。程序的輸入輸出都按通俗易懂的提示或測(cè)量習(xí)慣顯示，為確保計(jì)算結(jié)果無誤，編制程序時(shí)專門設(shè)置了錯(cuò)誤里程輸入提示，當(dāng)輸入的計(jì)算里程K小于該曲線起點(diǎn)里程時(shí)，程序?qū)⑻崾纠锍烫��?ldquo;K-SMALL”，繼續(xù)輸入正確的里程，當(dāng)?shù)谝粭l曲線計(jì)算完畢需計(jì)算緊接的第二條曲線時(shí)，只需要給K輸入一個(gè)大于第一曲線終點(diǎn)里程的里程值，這時(shí)屏幕顯示“I=1=>ESC≠>NEXT”，如果不小心誤輸入一個(gè)大于終點(diǎn)里程的K時(shí)（ESC表示取消），可輸入1“取消”操作，繼續(xù)計(jì)算當(dāng)前曲線，如果確認(rèn)要計(jì)算下一曲線（NEXT表示要計(jì)算下一曲線），輸入一個(gè)不等于1的數(shù)值，接下來屏幕將顯示“JISUAN：A-TXY”，程序?qū)⒆詣?dòng)計(jì)算第二曲線的起點(diǎn)信息，接著自動(dòng)提示輸入第二曲線終點(diǎn)的曲率和里程，當(dāng)顯示“K=？”時(shí)，即可進(jìn)行第二曲線放樣數(shù)據(jù)的計(jì)算。依次類推，直至計(jì)算完所有需計(jì)算的曲線中、邊樁坐標(biāo)和放樣數(shù)據(jù)。遷站時(shí)，直接按“AC”鍵終止程序的運(yùn)行，到新的測(cè)站后重新運(yùn)行“XLJS”，輸入新的測(cè)站點(diǎn)、后視點(diǎn)坐標(biāo)并保持原曲線參數(shù)不變即可。當(dāng)遇到線路曲線的曲率發(fā)生突變（如直線直接接圓曲線或者兩個(gè)不同半徑的圓曲線直接相接）的特殊情況時(shí)，可以將突變點(diǎn)兩側(cè)的曲線分開單獨(dú)進(jìn)行計(jì)算，也可以在突變點(diǎn)處增加輸入一段微小長度的回旋線把突變點(diǎn)兩側(cè)的曲線連接起來，增加一段長度為0.0001米長度的回旋曲線，不會(huì)影響計(jì)算結(jié)果的精度。比如某直線直接連接半徑為R的圓曲線，計(jì)算完直線段需要接著計(jì)算圓曲線時(shí)，先輸入微小長度的回旋線（1/RB=1/R，KB=直線終點(diǎn)里程+0.0001），然后再輸入圓曲線的終點(diǎn)曲率和里程即可繼續(xù)計(jì)算。兩個(gè)不同半徑（半徑分別為R1，R2）的圓曲線直接相接時(shí)，先輸入微小長度的回旋線（1/RB=1/R2，KB=第一圓曲線終點(diǎn)里程+0.0001），然后輸入第二圓曲線終點(diǎn)的曲率和里程即可。有時(shí)會(huì)遇到逆向測(cè)設(shè)曲線情況，即從大里程方向向小里程方向測(cè)設(shè)曲線，采用本程序進(jìn)行計(jì)算時(shí)，只需將曲線倒過來進(jìn)行輸入即可，這時(shí)，輸入和計(jì)算的量都應(yīng)反號(hào)（只有“JIA-JIAO”值符號(hào)保持不變），曲線偏角反號(hào)輸入（左偏變?yōu)橛移�，右偏變�(yōu)樽笃�），曲線里程輸入時(shí)按負(fù)值對(duì)待，計(jì)算右邊樁時(shí)外移量為負(fù)，左邊樁時(shí)外移量為正（與正向剛好相反）。14、四等水準(zhǔn)測(cè)量記錄計(jì)算程序（紅黑面常數(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程序按后-前-前-后的觀測(cè)順序編制，當(dāng)后尺為4687時(shí)I賦值1，否則賦不等于1的值。15、高斯抵償高程投影面邊長改正計(jì)算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說明：該程序可計(jì)算高斯投影或抵償高程面高斯投影的邊長投影，hm為異常高程值，當(dāng)設(shè)計(jì)資料中沒有提供或者未知時(shí)取hm=0，即認(rèn)為高程異常可忽略，Hm為抵償高程，當(dāng)沒有設(shè)抵償高程面時(shí)取Hm=0，即為一般的高斯投影。S為觀測(cè)水平距離，Hp為導(dǎo)線邊兩端高程概略平均值（m），Ym為導(dǎo)線邊兩端點(diǎn)Y坐標(biāo)平均值減去500公里后的平均值（Km），D為改正到高斯投影面后的邊長（m）。    hm=0，Hm取隧道平均高程面高程，Ym=0時(shí)，為計(jì)算隧道平均高程面的投影改正。