FX4800P常用測量程序集.doc

FX4800P常用測量程序集1、由一個已知點坐標(biāo)和一個已知方位角計算支導(dǎo)線坐標(biāo)（程序名：ZBJS）程序清單：X：Y：T：Lb1 0：Fixm：AS：T=T+A-180： T0 =T=T+360 T360 =T=T-360TX=X+Scos TY=Y+Ssin TGoto 0程序運行說明：運行“ZBJS”，每運行一步按EXE鍵一次，顯示X？時輸入已知點X坐標(biāo)，顯示Y？時輸入 已知點Y坐標(biāo)，顯示T？時輸入已知點由后視到前視的已知坐 標(biāo)方位角，運行一次本程序只需輸入一次已知數(shù)據(jù)。顯示A？時輸入第一個左轉(zhuǎn)角值，顯示S？時輸入測站到前視的水平距離。接下來計算器顯示的T是測站到前視 的坐標(biāo)方位角，按 + 可將顯示的十進(jìn)制角度換算為度分秒。如此繼續(xù)可計算出所有支導(dǎo)線未知坐標(biāo)。2、由兩個已知點坐標(biāo)計算支導(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：T0=T=T+360T“TH-J=” I“S=”Lb1 0:AS: T=T+A-180：T0 =T=T+360 T360 = T =T-360TX=X+Scos TY=Y+Ssin TGoto 0程序運行說明：運行后，顯示X0，Y0時輸入已知置鏡點坐標(biāo)，顯示XH，YH時輸入已知后視點坐標(biāo)，其它同ZBJS的輸入與顯示。3、由一個已知點坐標(biāo)和一個已知方位角進(jìn)行放射型導(dǎo)線坐標(biāo)計算（程序名FSXZBJS） 程序清單： C“X0”：D“Y0”：E“T0”：Fixm：Lb1 1:SAT=E+A-180：T0=T=T+360 T360 =T=T-360TX=C+Scos TY=D+Ssin TGoto 1程序運行說明：變量輸入?yún)⒄語BJS程序。4、由兩個已知點坐標(biāo)進(jìn)行放射型導(dǎo)線坐標(biāo)計算（程序名FSXZBJS2）M“X0”：N“Y0”：D“XH”：E“YH” Pol(M-D，N-E)：Fixm：F=J：X=M：Y=N：F0=F=F+360F“TH-J=” I“S=” Lb1 1:SAT=F+A-180：T0=T=T+360 T360 =T=T-360TX=X+Scos TY=Y+Ssin TGoto 15、坐標(biāo)計算優(yōu)化程序（可進(jìn)行連續(xù)式（LX）、放射式（FS）已知一點（1-D）或者兩點（2-D）進(jìn)行坐標(biāo)計算）：V“1=LX，F(xiàn)S”：W“1 =1-D2-D”：W=1= Goto 1: Goto2Lb1 1：F“X0=”：G“Y0=”：H“T H-0=”：Goto 3Lb1 2:F“X0=”：G“Y0=”：M“XH=”：N“YH=”:Pol(F-M，G-N)：Fixm: J0=J=J+360H=J：H“TH-0=”I“S-H=”Goto 3Lb1 3: X=F：Y=G：T=H ： V=1= Goto 4: Goto 5Lb1 4: AS: A:S:T=T+A-180：T0 =T=T+360 T360 =T =T-360TX=X+Scos TY=Y+Ssin TGoto 4Lb1 5：AS:A:ST=H+A-180：T0=T=T+360 T360 =T=T-360TX=F+Scos TY=G+Ssin TGoto 56、已知置鏡點坐標(biāo)和置鏡點到后視點坐標(biāo)方位角求放樣角度和放樣距離的放樣程序（程序名FY1）程序清單：F“X0”：G“Y0”：H“T0-H”：Fixm：Lb1 1:XYPol(X-F，Y-G) J0 =J=J+360A=J-HA0 =A=A+360A“A=” I“S=” Goto 1程序運行說明：變量輸入?yún)⒄兆鴺?biāo)計算，A=為放樣順時針角度，S=為放樣距離。7、已知置鏡點和后視點坐標(biāo)進(jìn)行放樣（FY2）程序清單：F“X0”：G“Y0”：M“XH”：N“YH”Pol(M-F，N-G)：Fixm：H=JH0=H=H+360H“T-H=”I“S-H=” Lb1 1:XY: Pol(X-F，Y-G) J0 =J=J+360A=J-HA0 =A=A+360A“A=”I“S=” Goto 18、放樣優(yōu)化程序（可分已知一點或者兩點坐標(biāo)進(jìn)行放樣角度距離的計算）程序名“FY”程序清單：I“I=1 =1-D2-D”I=1= Goto 1: Goto2Lb1 1：F“X0”：G“Y0”：H“T0-H”：Goto 3Lb1 2：F“X0”：G“Y0”：M“XH”：N“YH”:Pol(M-F，N-G)：Fixm:J0=J=J+360H=J:H“T-H=”I“S-H=”Goto 3Lb1 3：XYPol(X-F，Y-G) ：Fixm J0 =J=J+360A=J-HA0 =A=A+360A“A=” I“S=” Goto 3程序運行說明：變量輸入?yún)⒄兆鴺?biāo)計算，A=為放樣順時針角度，S=為放樣距離。9、已知兩點坐標(biāo)，反算兩點之間的坐標(biāo)方位角和距離（程序名ZBFS）程序清單：A“X1=”：B“Y1=”：C“X2=”：D“Y2=”：P ol（C-A，D-B）：Fixm：J0 =J=J+360J“T（1-2）=” I“S（1-2）=”10、分別已知兩條直線上一點的坐標(biāo)和坐標(biāo)方位角，求這兩條直線的交點坐標(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)計算（ZXXY）程序清單：V“X0=”：W“Y0=”：T“T0=”：U“K0=”：Lb1 0：Fixm：KD：X=V+（K-U）cos T+Dcos(T+90) Y=W+（K-U）sin T+Dsin(T+90) Goto 0程序運行說明：已知某一直線線路上一點的坐標(biāo)為X0，Y0，該點里程為K0以及該直線沿前進(jìn)方向的坐標(biāo)方位角T0，按照提示輸入以上數(shù)據(jù)，如果輸入某一里程K和法線外移距離D（向右移為正值，向左移為負(fù)值）即可計算出該里程點的法線外移樁坐標(biāo)X、Y，當(dāng)D=0時計算結(jié)果為中樁坐標(biāo)。12、“緩+圓+緩”型曲線坐標(biāo)計算主程序（QXJS）程序清單：Prog “BQXYS”：Q“KZH”：F“ZHX=”：G“ZHY=”：N“TZHJD”：I“（Y1，Z-1）” Lbl 1:Fixm:KD:K“LICHENG=”：D“WAIYI=（Z-，Y+）”：Goto2Lbl 2:K Goto3: Goto4Lbl 3:“KOVER”: Goto1Lbl 4:KQ+L = Goto3: Goto5Lbl 5:KQ+B = Goto6: Goto7Lbl 6:S=K-Q：W=B：Prog “HQXY”：O=N+I90S2( RB)：O O=O+360O360 = O=O-360O“FANGWEI=” X=UcosN-VsinN+F+Dcos(O+90) Y=VcosN+UsinN+G+Dsin(O+90) Goto1Lbl 7：KQ+L-C = Goto8: Goto9Lbl 8:S=K-Q：O=N+I90(2S-B)( R)：O O=O+360O360 = O=O-360O“FANGWEI=” Prog “YQXY”：X=UcosN-VsinN+F+Dcos(O+90) Y=VcosN+UsinN+G+Dsin(O+90) Goto1Lbl 9: S= Q+L-K：W=C：Prog “HQXY”：E=N+IA+180：O=E-I90S2( RC)+180：O O=O+360O360 = O=O-360O“FANGWEI=”V=-VX=(U-H)cosE-VsinE+F+T cosN+Dcos(O+90) Y=VcosE+(U-H)sinE+G+T sinN+Dsin(O+90) Goto1子程序“BQXYS”A:R:B“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+（R+P）tan(A2)+(Z-P) sinAH“T2”=J+（R+Z）tan(A2)+( Z-P) sinAL= B2+C2+A R180E= 子程序“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-B2)R)+M:V=I(R(1-cos(180(S-B2)R)+P)程序說明：本程序可以計算等長和不等長“緩+圓+緩”型曲線或者單圓曲線的中線坐標(biāo)、外移樁坐標(biāo)以及中線的切線方位角。先將主、子程序存入計算器，然后運行主程序“QXJS”，輸入A（曲線偏角），曲線半徑R， 第一緩和曲線長L01，第二緩和曲線長L02，（等長緩和曲線時L01= L02），然后顯示曲線逐要素，接著輸入ZH坐標(biāo)（ZHX，ZHY），ZH到JD坐標(biāo)方位角TZHJD，當(dāng)曲線為左偏時（Y1，Z-1）輸-1，右偏輸 1，輸入計算里程K，外移距離D，計算中樁時D輸0，計算左邊樁時D輸負(fù)數(shù)，算右邊樁時D輸正數(shù)，當(dāng)所輸里程不在本曲線計算范圍內(nèi)時，屏幕顯示K OVER，繼續(xù)輸入有效里程可繼續(xù)計算。對于單圓曲線，緩和曲線長輸入0。本程序緩和曲線X計算取了4項，Y計算取了3項，一般的曲線計算精度都可達(dá)到mm級。13、采用積分進(jìn)行任意曲線線路坐標(biāo)計算程序（直線、圓曲線、卵型曲線）程序名“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=”：O=V：O Goto3： Goto4Lbl 3：“K-SMALL”：Goto2Lbl 4：OQ = Goto5： Goto7Lbl 5：I：I“I=1=ESCNEXT”：I=1= Goto2： Goto 6Lbl 6：“JISUAN：A-TXY”：V=Q：Z=0：D=0：Goto8Lbl 7: DZ：Z“JIA-JIAO=”：D“WAIYI=（Z-，Y+）”Lbl 8：T=C+90（2E+（F-E）（V-P）（Q-P）（V-P）：T0=T=T+360 T360 =T=T-360Rad：W=A+（cos（C+0.5(2E+(F-E)(X-P)(Q-P)(X-P)）,P,V,4）+ Dcos(T+Z) Y=B+（sin（C+0.5(2E+(F-E)(X-P)(Q-P)(X-P)）,P,V,4）+ Dsin(T+Z)：Deg：Goto9Lbl 9：OQ = GotoB： GotoALbl A：A=W：B=Y：C=T：E=F：P=Q： Goto1Lbl B： W“X=”Y“Y=”T“T=”Pol(R-G，S-H)：Fixm：M=J：Pol(W-G，Y-H) ：J=J-MJJ=J+360J360 =J=J-360J“A=”I“S=”Goto 2程序積分式中“”的編輯輸入為：“FUNCTION”鍵+5（DRG）+4（）。程序功能由于程序根據(jù)線路曲線坐標(biāo)計算通用數(shù)學(xué)模型編制，所以，對于任意線型的一段線路曲線（直線、 圓曲線可看作是通用計算模型的特例），只要輸入曲線信息和測站信息，都可以迅速地計算出該曲線上任意里程點處的切線方位、中樁或與該里程切線成任意夾角的 外移樁坐標(biāo)、極坐標(biāo)法放樣的角度和距離。程序運行運行程序“XLJS”，按提示輸入置鏡點坐標(biāo)（XJ，YJ），后視點坐標(biāo)（XH，YH），曲 線起點A的坐標(biāo)（XA，YA）、沿線路前進(jìn)方向的切線方位角TA、里程KA、曲率（直接在計算器上以1RA的形式輸入，R表示半徑，左偏曲線輸負(fù)值右偏 曲線輸正值），繼續(xù)輸入終點B的曲率（1RB輸入同A點）、里程KB。當(dāng)屏幕顯示“K=？”時，輸入該段曲線要計算放樣數(shù)據(jù)的里程值，按提示輸入夾角 “JIA-JIAO”（夾角的范圍為0-180度）和外移量“WAIYI”，“JIA-JIAO”值為該里程自線路前進(jìn)方向的切線方位角順時針至該里程中 樁與右邊樁連線間的角度，當(dāng)為法線方向時JIA-JIAO為90度，“WAIYI”值中樁左側(cè)輸負(fù)值右側(cè)輸正值，計算中樁時“WAIYI”值輸0即可，按 “EXE鍵”屏幕即可依次顯示計算中樁或外移樁的坐標(biāo)、中樁切線方位角、放樣角度A，放樣距離S。程序的輸入輸出都按通俗易懂的提示或測量習(xí)慣顯示，為確保計算結(jié)果無誤，編制程序時專門設(shè)置 了錯誤里程輸入提示，當(dāng)輸入的計算里程K小于該曲線起點里程時，程序?qū)⑻崾纠锍烫　癒-SMALL”，繼續(xù)輸入正確的里程，當(dāng)?shù)谝粭l曲線計算完畢需計算 緊接的第二條曲線時，只需要給K輸入一個大于第一曲線終點里程的里程值，這時屏幕顯示“I=1=ESCNEXT”，如果不小心誤輸入一 個大于終點里程的K時（ESC表示取消），可輸入1“取消”操作，繼續(xù)計算當(dāng)前曲線，如果確認(rèn)要計算下一曲線（NEXT表示要計算下一曲線），輸入一個不 等于1的數(shù)值，接下來屏幕將顯示“JISUAN：A-TXY”，程序?qū)⒆詣佑嬎愕诙€的起點信息，接著自動提示輸入第二曲線終點的曲率和里程，當(dāng)顯示 “K=？”時，即可進(jìn)行第二曲線放樣數(shù)據(jù)的計算。依次類推，直至計算完所有需計算的曲線中、邊樁坐標(biāo)和放樣數(shù)據(jù)。遷站時，直接按“AC”鍵終止程序的運行，到新的測站后重新運行“XLJS”，輸入新的測站點、后視點坐標(biāo)并保持原曲線參數(shù)不變即可。當(dāng)遇到線路曲線的曲率發(fā)生突變（如直線直接接圓曲線或者兩個不同半徑的圓曲線直接相接）的特 殊情況時，可以將突變點兩側(cè)的曲線分開單獨進(jìn)行計算，也可以在突變點處增加輸入一段微小長度的回旋線把突變點兩側(cè)的曲線連接起來，增加一段長度為 0.0001米長度的回旋曲線，不會影響計算結(jié)果的精度。比如某直線直接連接半徑為R的圓曲線，計算完直線段需要接著計算圓曲線時，先輸入微小長度的回旋 線（1/RB=1/R，KB=直線終點里程+0.0001），然后再輸入圓曲線的終點曲率和里程即可繼續(xù)計算。兩個不同半徑（半徑分別為R1，R2）的圓 曲線直接相接時，先輸入微小長度的回旋線（1/RB=1/R2，KB=第一圓曲線終點里程+0.0001），然后輸入第二圓曲線終點的曲率和里程即可。有時會遇到逆向測設(shè)曲線情況，即從大里程方向向小里程方向測設(shè)曲線，采用本程序進(jìn)行計算時， 只需將曲線倒過來進(jìn)行輸入即可，這時，輸入和計算的量都應(yīng)反號（只有“JIA-JIAO”值符號保持不變），曲線偏角反號輸入（左偏變?yōu)橛移?，右偏變?yōu)樽?偏），曲線里程輸入時按負(fù)值對待，計算右邊樁時外移量為負(fù)，左邊樁時外移量為正（與正向剛好相反）。14、四等水準(zhǔn)測量記