4800計(jì)算器常用測(cè)量計(jì)算程序

1、常用測(cè)量計(jì)算程序（適用于CASIOfx 4800P計(jì)算器）南昌探特有限公司測(cè)繪儀器經(jīng)營(yíng)維修部地址：江西省南昌市北京東路220號(hào)南昌大學(xué)南區(qū)對(duì)面電話：（0791）8302887南昌大學(xué)土木工程系1程序使用說(shuō)明1. 1導(dǎo)線計(jì)算程序1. 2公路任意中樁點(diǎn)、邊樁點(diǎn)坐標(biāo)或放樣元素計(jì)算程序13方位角、邊長(zhǎng)反算程序1. 4坐標(biāo)交換計(jì)算程序15面積計(jì)算程序1. 6交點(diǎn)坐標(biāo)計(jì)算程序1. 7點(diǎn)到直線的距離計(jì)算程序1. 8高斯投影坐標(biāo)正、反算及換帶計(jì)算程序2. 程序清單2. 1各主程序2. 2各子程序1程序使用說(shuō)明1.1導(dǎo)線計(jì)算程序（程序名：DXJS）一、程序功能本程序可用于進(jìn)行單一導(dǎo)線（包括附合導(dǎo)線、閉合導(dǎo)線、支

2、導(dǎo)線）的簡(jiǎn)易平差計(jì) 算；同時(shí)還可計(jì)算以該導(dǎo)線點(diǎn)為測(cè)站點(diǎn)、定向點(diǎn)的極坐標(biāo)點(diǎn)的坐標(biāo)。、圖形說(shuō)明本程序適合于以下圖形的單一導(dǎo)線：圖 1.1 1圖11 一 1中：A、B、C、D為已知點(diǎn)，1、2、3為待定導(dǎo)線點(diǎn)，E、F為極坐標(biāo)點(diǎn)2閉合導(dǎo)線（圖 1. 12a 1. 12b）圖1. 12a中，BN方向?yàn)樽鴺?biāo)軸方向。在本程序中，將閉合導(dǎo)線看作是起始邊和閉合邊重合的附合導(dǎo)線B24圖 1. 13三、程序使用說(shuō)明本程丿了;啟動(dòng)前進(jìn)行變量擴(kuò)充:SHIFT若前一次擴(kuò)充數(shù)不小于這次,可不再擴(kuò)充。1 程序啟動(dòng) 采用下列方法之一，均可啟動(dòng)本程序（程序名為：DXJS）:MODE,然后用上下移動(dòng)鍵將光標(biāo)移到“ DXJS處,按 E

3、XE |鍵即叫 file其余操作同。 shift 仁訂“ DX”2女圖于對(duì)程序啟動(dòng)后，按照顯示屏上的提示進(jìn)行操作：“ N=? ”輸入導(dǎo)線轉(zhuǎn)折角總數(shù)?？冢簣D 1. 1 1 中，N二5;圖 1. 1 2 （a b）中，N二6 圖 1. 1 3 中，N二5“X 二？ ” “丫 !=?1. 1 1,圖11 一 2b、圖1. 1 3的圖形，輸入A點(diǎn)的已知坐標(biāo)XXo若 已知AB 邊的坐標(biāo)方位角a ba則輸入：Xx=a ba （以小數(shù)形式輸入：度、分、秒），丫尸0,圖1. 1 2b也屬于這種情形：X仁a bi。 “夫二？”“丫 2二？ ”，輸入已知點(diǎn)的坐標(biāo)Xb, Ybo “L 二？ ” “S 二？ ” 依次

4、輸入各站的觀測(cè)角、邊長(zhǎng)。觀測(cè)角以小數(shù)形式輸入：度、分、秒。對(duì)于閉合邊長(zhǎng)：S二Ob對(duì)于圖1. 1 2a中的圖形，第一個(gè)測(cè)站的觀測(cè)角：L二0。 “= ?” “丫 3二？ ”對(duì)于附合導(dǎo)線，輸入已知點(diǎn)C的坐標(biāo)*肌對(duì)于支導(dǎo)線：Xo,導(dǎo)線輸入自然結(jié) Mo對(duì)于閉合導(dǎo)線，應(yīng)輸入B點(diǎn)的坐標(biāo)Xb, YbO ” X4 二？ ”,” 丫 4 二？ ”對(duì)于附合導(dǎo)線：輸入已知點(diǎn)D的坐標(biāo)Xd、Ydo若已知CD邊的坐標(biāo)方位角a CD,則X4= a CD, 乂=0 o對(duì)于閉合導(dǎo)線（圖11 2b）:輸入已知點(diǎn)的坐標(biāo)Xa, %o若已知AB邊坐標(biāo)方位 角，貝 U： X】二 a ba, 丫 =0o 對(duì)于閉合導(dǎo)線（圖 1. 1 2a）

5、: Xi二 a bi, Y 4=0o “CHEC（0, 1） ” 問(wèn)：是否校對(duì)輸入的數(shù)據(jù)。若要校對(duì)，則輸入非零的數(shù)值；否則輸入 0或直接回車(chē)。 程fB 一導(dǎo)線角度閉合差：FB導(dǎo)線角度閉合差限差；工S導(dǎo)線全長(zhǎng); Fx, fy導(dǎo)線縱、橫坐標(biāo)閉合差；刀S寧fs導(dǎo)線全長(zhǎng)相對(duì)閉合差分母；圖 1.2 1JDi、JD2為交點(diǎn)。本程序要求的已知數(shù)據(jù)為：各交點(diǎn)的坐標(biāo)，交點(diǎn)JD。的里程Ljo,園曲線 半徑R,緩和曲線長(zhǎng)度L。,路面設(shè)計(jì)寬度D。若要直接計(jì)算放樣元素，還需要測(cè)站及定向點(diǎn) 的坐標(biāo)。三、使用說(shuō)明本程序啟動(dòng)前須進(jìn)行變量擴(kuò)充：SHIFTDefmI 6 EXE 若前次擴(kuò)充不小于這可不再擴(kuò)充。程序啟動(dòng)后，按顯示屏

6、上的提示進(jìn)行操作： “XJ。二？ ”，“ Yjo=? ” ,輸入交點(diǎn)JD。的坐標(biāo)； “LJ尸？ ”，輸入交點(diǎn)JD。的里程；，輸入園曲線半徑； “R二？ ” “L0二?” ,輸入緩和曲線長(zhǎng)度；，輸入路面設(shè)計(jì)寬度； “D ”，“Yji二？ ”，輸入交點(diǎn)JD的坐標(biāo)；”，“ Yj2二？ ”，輸入交點(diǎn)JD? 二？ ”的坐標(biāo)； 仏接著，顯示屏顯示“ OUT YORS?”，若要計(jì)算坐標(biāo)，輸入1;若要計(jì)算放樣元素，輸入 2o輸入2后，還要輸入以下數(shù)據(jù)： “二？ ” , “丫。二？ ”，輸入測(cè)點(diǎn)（安置儀器的控制點(diǎn)）的坐標(biāo)。 “X二？ ”，“丫 i=? ”，輸入定向點(diǎn)（放樣時(shí)照準(zhǔn)定向的控制點(diǎn)）的坐標(biāo)。顯示0 0R

7、5,需要輸出5大樁坐標(biāo)或者放樣元素輸入5,否則輸入0。然后，顯示屏顯 示定向方位角：A） io接著，依次輸出各主點(diǎn)：ZH HY QZ YH HZ的里程L：及其中樁點(diǎn)，左、右邊 樁點(diǎn)坐標(biāo)或 放樣元素（方位角A或邊長(zhǎng)S） o然后，只要輸入任意點(diǎn)的里程Lp,即可計(jì)算出該點(diǎn)的中 樁點(diǎn)，左、右邊樁點(diǎn)的坐標(biāo)或放樣元素。若為橋涵點(diǎn)，還應(yīng)輸入公路中線之法線與橋涵中線的交角Qo交角0由公路中線之法線起 算，順時(shí)針為正值，反時(shí)針為負(fù)值。計(jì)算完每一點(diǎn)后，顯示屏都會(huì)顯示“GO 02”，若要繼續(xù)計(jì)算，輸入1否則輸入2,當(dāng)顯示 屏顯示“MOVE STATION? ”時(shí)，輸入1,為搬站，需重新輸入搬站后測(cè)站點(diǎn)、定向點(diǎn)坐 標(biāo)

8、；輸入2,表示該段道路已算完，程序運(yùn)行結(jié)束。若公路不含緩和曲線段，只有園曲線和直線段，則只輸入Lo=O即可。13方位角、邊長(zhǎng)反算程序（程序名：FWB）、程序功能本程序可用于由兩點(diǎn)的坐標(biāo)計(jì)算該兩點(diǎn)間的距離（邊長(zhǎng)）及方位角 、使用說(shuō)明程序啟動(dòng)后，根據(jù)顯示屏顯示輸入： “ %=? ”，“ 丫，輸入0號(hào)點(diǎn)X、丫坐標(biāo)； “X二？ ” , “Yi二？”，輸入1號(hào)點(diǎn)X、丫坐標(biāo)；然后，輸出A （方位角a oi） , S （邊長(zhǎng)Sc）1. 4坐標(biāo)變換計(jì)算程序（程序名:ZBB）、程序功能 本程序可用于平面坐標(biāo)變換計(jì)算。、基本圖形圖1.4-1中，0XY為舊坐標(biāo)系，01AB為新坐標(biāo)系。Xo, Yo為新坐標(biāo)系 原點(diǎn)0】

9、在 舊坐標(biāo)系中的坐標(biāo)，K為旋轉(zhuǎn)角，圖中方向?yàn)檎?，反之為?fù)角。三、使用說(shuō)明程序啟動(dòng)后，首先輸入X0, YO, K,然后，依次輸入舊坐標(biāo)X、丫，即求得其新 坐標(biāo)A、Bo1. 5面積計(jì)算程序（程序名：AREA）一、程序功能本程序可用于計(jì)算由封閉的多邊形之頂點(diǎn)坐標(biāo)計(jì)算其面積。二、使用說(shuō)明順序輸入各頂點(diǎn)的坐標(biāo)X、丫，當(dāng)輸完最后一個(gè)頂點(diǎn)之丫值后，輸入一個(gè)X0的 值，表示輸入結(jié)束。接著輸出面積A （米0 ,再按EXE鍵，輸出面積AA （畝）。1.6交點(diǎn)坐標(biāo)計(jì)算程序（程序名：JD）一、程序功能本程序可用于計(jì)算不平行的兩條直線的交點(diǎn)坐標(biāo)。二、程序使用說(shuō)明A, B) (C, D)程序啟動(dòng)后，按顯示分別輸入不平行

10、的兩條直線上兩點(diǎn)坐標(biāo)（ 和（E, F） （G, H） o同直線上的兩點(diǎn)輸入順序不限。接著輸出交點(diǎn)坐標(biāo)X, 丫。1. 7點(diǎn)到直線的距離計(jì)算程序（程序名：PLS）、程序功能本程序用于計(jì)算點(diǎn)到直線的距離，并求得垂足的坐標(biāo)及點(diǎn)到垂足方向的方位角。二、使用說(shuō)明程序啟動(dòng)后，按顯示屏提示順序輸入點(diǎn)的坐標(biāo)（A、B）,直線上任意兩點(diǎn)的坐標(biāo)（C、D ） ,（E、F）,即求得垂足坐標(biāo)（X, 丫），垂距S及點(diǎn)到垂足方向的方位角T1. 8高斯投影坐標(biāo)正、反算及換帶計(jì)算程序2程序清單2. 1主程序2. 1. 1導(dǎo)線計(jì)算（程序名:DXJS）Deg: Fix: Lbl 0： NABCDEFGH ： K=N : C” X二”

11、D” Y” A” X” B”Lbl 1：X=N-K+1 : L=ZX : S=ZN+X : LS : ZX=L : ZN+X二S : Dsz K： Gotol: GX3 二” :G0 = H 丫 3二” E 4二F “Yb M=0 : M : M u CHECK(0, 1) ” : M二M+l : Dsz M ： Goto 0 :, D0Prog “ J” Prog “ E” Lbl 7：0=-l： SO : O“jJL二：00rProg “A” Goto 7 卜 Prog “B” X?Y?Dsz K： Goto 7：“ END”2. 1. 2公路任意中樁點(diǎn)、邊樁點(diǎn)坐標(biāo)或放樣元素計(jì)算(程序名：

12、CURVE)Deg： Fix 4: A=Z1 : B=Z2 : C二Z3 : D二Z4 : E二Z7 : F二Z8 : G二Z31 : H二Z32：M=Z33 : N=Z34 : ABCDEFGHMN : A “XJO二” B “YJO二” C “LJO二” D “ R二” F “ D二” E “LO二” G“ XJ 仁” H“ YJ 仁” M“ XJ2二” N: ZYJ=A，: Z二B : Z3二C : Z4二D : Z7二E :Z8=F : Z31=G : Z32=H : Z33=M : Z34=N : X二A-G : Y=B-H : Prog “D” Z5=P : X二M-A : Y=N

13、-B : Prog “ D Z6=P : Z46二 Z6-Z5 : Z46 0 :- Prog : 11” 工 Prog“12”Z10=Z9 (Z6-Z5) : R=Z4 : Zll二 180Z7- (2 n M=Z72-Z734002):P=Z7a2 -(24R)-Z7A4 (2688RA3) :T=M+(R+P) tan(Z10 2)么 L二2Z7 + (Z10-2Z11) Rn-18E=(R+P)弋 os(Z10 2八R 丄 K=Z5-180 : KGoto8: Z18-Z350 Prog “Y” ：工 0 Prog N , Goto 9、Lbl 8 : z18 Z35Prog “ :

14、Goto 9 Z18 Z390 一:, Prog “ : Goto 9Abs(Z18 Z160. 5L) Prog N :工！ _ tog 0” Lbl 9 : F二 1.ProgX ” : Prog :” ” G 工 0 Dsz G : U二 1、U二 1 : u ： U “ GO ON:U=1 二 Goto 2： V二 1、FM 2 二Goto 3、 V : V “MOVE STATION:v=l n Goto 1 ：工二 V=0 z Lbl 3 ： “ END”2. 1.3方位角、邊長(zhǎng)反算（程序名：FWB）Deg : Fix 4 :ABCD :A ：X0二”B“Y0 二” C “XI 二

15、” D “YX=CA : Y=D 一 B : ProgD” : S=1 (1我影系數(shù)）：ProgL”P(pán) “A二” ?S “S二” ?“ END不輸入2.1. 4坐標(biāo)變換計(jì)算（程序名:ZBB）Deg : Fix 4：ABC :A : X0二”B”Y0二” C :K0=C : ProgC” :K=0 : U二0 : Z=0 : Lbl1 ： DE ：D X二”E “ Y二”X=DA : Y=E B : ProgR” :Z24“ A二” ?Z25B二” ?Gotol2. 1.5面積計(jì)算(程序名：AREA )Fix 6 ： G=0 ： A=X : B=Y : C=A : D=B : Lbl 1 : X

16、Y : Xl =； : Prog “ 7” 0=3 =. : Goto2:工 0 Goto 1 卜 卜BPA : B ： P： A “L0” : L=P A ： Lbl 2 : Prog “8” W=CL水：U=TC : M=Wa2 : V=Ua2 : RB飛UC(I + V(J + ZV):X=A ns + 0. 5NMT(H 58)H + 61)M30+ (4F + 5)Q H)M 十 12 + 1?Y二5e5+ NW(H 18)H (58H 14)F+ 5)M 十 20+ Q H)M-6+ 1?M=K(TW(1 + M(Q + E)Q 七 + M(2 H-15) : Prog “9” “

17、R二HMS” :1e4G+ 1e2V + M? Goto 12. 2各子程序S “ J. S=:” Fixm : Prog “ 61 M=0 : S0 _ 0=ZN K + 1: Prog “ C 0=0 + P180 WN + M :半,0=P+ M 1800=X + Rec(Abs S,0: 0 “X J二 ” ? M二Y+ J: M “Y J二 ” ?O=ZN-K+1 : S=Z2N-K+1 : Prog “ G Prog “ K”R=100Frac 0: 0=Int 0+IntR 60+Frac R 36“ D”Fixm: PoI(X,Y : P=J：Prog UF)“ E”X二A :

18、 Y二B : P二T: K二NP P=P-360 “ GProg u Cv P=P-180+ 0-VW N: Prog u FvM=3600W: M “FB二”? M=60/N : M “FB二”?Q “藝(S)二”? M=0-N : M “S二”U二x-G : V二Y H : P=Int (Q Pol(U, V : U “FX二”V “ fY= ” ?I “ fS二 ” ?P “藝(S) fS二 ” ?K=N : Q=E-20： Lbl 2： Prog “B” Q=Q+ S： Dsz K： Goto 2： M=P： FO :. 0二E： Prog“C”P(pán)二0：工二X二E-G： Y=F-H :

19、 Prog“ D”W=M-P: Prog “ H Prog“ E”Lbl 4： Prog “B” Dsz K： Goto 4 : Prog “I”“ K”Fixm : X=X US-Q+ Rec(S,P: Y=Y + J VS-Q“ L”K=Int(60Frac P) : U=3600(P-IntP-K 60) : P=lntP+K -00+ U-10000(本子程序是度、分、秒以小數(shù)表示，可用也可不用，一般不輸入計(jì)算器，以免造成 計(jì)算的度、分、秒誤讀、誤用，程序中相應(yīng)部分( 下劃線處)也不輸入計(jì)算器。)“ MS二R+E : P二Z6 + Z9 (90-Z10 2 片 Prog “ F” Z2

20、1=Zl+ScosP : Z22=Z2+SsinP : Z23=P“ NP=Z23-180 : Prog “ F” P=P+180Z9 (Z18-Z16-L-2) - ( n Ri)og “ F” Z24=Z21+R cosP:Z25二Z22+RsinP : P二P+90Z9 : Prog “ F” K=P : Prog “S”“ 0”Z18- (Z16+L - 2) E Prog “Prog “Q”不輸入Z17二P : P “ AO-仁” ？z24獲 XZ比 7 z25訣 YZ比 7 z26Q獲 YLt 7 z28XR 葉7Z29 YR!7z18z350 suz35 z18+t - PHZ5182 KHZ5= HSHZ1S Z39+T - phz6t khz6prog 獲 Ex