CASIO-5800測量程序
5800中邊樁任意點(diǎn)坐標(biāo)計(jì)算程序
一、文件名：HZ ZH 輸入文件名
Deg:Fix 4 基本設(shè)置
"FWJ∠α="？Q8 起點(diǎn)切線方位角
"ZX(m)="？O: "ZY(m)= "？P8 置鏡點(diǎn)坐標(biāo)
"HX(m)= "？M: "HY(m)= "？N 8 后視點(diǎn)坐標(biāo)
Pol(A－O,B－P) 8
If J<0:Then J＋360"H:Else J"H:IfEnd8
"QX(m)="?U: "QY(m)="?V: "QDK(m)="?G8 起算點(diǎn)坐標(biāo)和里程
Ldl 08
"GDK(m)="?Z 8 觀測點(diǎn)里程
G－Z"C8
"GX(m)=":U＋cos(Q) ×C"Ay 置鏡點(diǎn)至中樁X坐標(biāo)
"GY(m)=":V＋sin(Q) ×C"By 置鏡點(diǎn)至中樁Y坐標(biāo)
Pol(A－O,B－P) 8 置鏡點(diǎn)到中樁方位角
J－H"J8
If J－H<O:Then J＋360"J:Else J"J:IfEnd8
"SPJ∠α=":J}DMSy 顯示順拔夾角
"I(m)=":Iy 置鏡點(diǎn)至中樁距離
Ldl 18
"BJ(m)= "?S 8 邊距
If S=0:Then Goto 0:IfEnd8
"JIA JIAO L(-),R(+)="?E8
Q＋E"W8
"GX(m)=":A＋cos(W) ×S"Xy 顯示觀測點(diǎn)X 坐標(biāo)
"GY(m)=":B＋sin(W) ×S"Yy 顯示觀測點(diǎn)Y 坐標(biāo)
Pol(X－O,Y－P) 8
If J<0:Then J＋360"J:IfEnd8
J－H"J8 置鏡點(diǎn)到觀測點(diǎn)方位角
If J<0:Then J＋360"J:Else J"J:IfEnd8
"SPJ∠α=":J}DMSy 顯示順拔夾角
"I(m)=":Iy 顯示置鏡點(diǎn)到觀測點(diǎn)距離
Goto 1 回到前面重復(fù)下一觀測點(diǎn)
二、文件名：ZH HY 緩和曲線段內(nèi)任意點(diǎn)坐標(biāo)計(jì)算程序
“Deg:Fix 4
“FWJ∠a =”？Q
“ZX(m)=”?O:”ZY(m)=”?P
“HX(m)=”?M:”HY(m)=”?N
Pol(M-O,N-P)
If J<0:Then J+360→H：Else J→H:IfEnd
“HWJ∠a =”:H?DMS◢
“ZHUAN XIANG L（-1），R（1）=”？T
“R（m）=”?R
“LS(m)=”?D
“KZH=”?G
“ZH X(m)=”?U
“ZH Y(m)=”?V
LbI 0
“QDK=”?Z
Abs(Z-G)→C
C-C^5/(40R^2D^2)+C^9/(3456 R^4D^4) →W
C^3/(6RD)-C^7/(336R^3D^3)+C^11/(42240R^5D^5) →K
Q+(C^2/(2RD)×(180/Π)) →F
If J<0:Then F+360→F：Else F→F:IfEnd
“QFWJ ∠a =”:F?DMS◢
“QS X（m）=”：U+W×Cos(Q)+K×Cos(Q+90) →A: A ◢
“QS Y（m）=”：V+W×Sin(Q)+K×Sin(Q+90) →B: B ◢
Pol(A-O,B-P)
If J<0:Then J+360→J：Else J→J:IfEnd
J-H→J
If J<0:Then J+360→J：Else J→J:IfEnd
“SPJ∠a=”:J?DMS◢
“I（m）=”:I◢
LbI 1
“BJ(m)=”?S
If S=0:Then Goto 0: IfEnd
“JIA JIAO L(-),R(+) =”?E
“BZ X=”：A+SCos(F+E) →X: X ◢
“BZ Y=”：B+S Sin(F+E) →Y：Y ◢
Pol(X-O,Y-P)
If J<0:Then J+360→J：Else J→J:IfEnd
J-H→J
If J<0:Then J+360→J：Else J→J:IfEnd
“∠BIAN ZHUANG PJ=”:J?DMS◢
“I（m）=”:I◢
Goto 0
三、文件名：HY YH 園和曲線段內(nèi)任意點(diǎn)坐標(biāo)計(jì)算程序
“Deg:Fix 4
“FWJ∠a=”？Q 起算點(diǎn)方位角
“ZX(m)=”?O:”ZY(m)=”?P 置鏡點(diǎn)坐標(biāo)
“HX(m)=”?M:”HY(m)=”?N 后視點(diǎn)坐標(biāo)
Pol(M-O,N-P)
If J<0:Then J+360→H：Else J→H:IfEnd
“HFWJ ∠a=”:H?DMS◢ 后視方位角
“ZHUAN XIANG L（-1），R（1）=”？T 曲線轉(zhuǎn)向左負(fù)右正
“R（m）=”?R 曲線半徑
“LS(m)=”?D 緩和曲線長度
“KZH(m)=”?G 曲線起點(diǎn)ZH里程
“XZH(m)=”?U 曲線起點(diǎn) X
“YZH(m)=”?V 曲線起點(diǎn) Y
LbI 0
“QDK(m)=”?Z 觀測點(diǎn)里程
Abs(Z-G)→C
R×Sin(180×(C- D）/（πR）+90D/（πR）)+D/2-D^3/(240R ^2)→W
R×（1-Cos(180(C-D）)/（πR）+90D/（πR））+ D^2/(24R)- D^4/(2688R ^3)→K
Q+(180（C-D）/（πR）+90D/（πR）)→F
If F<0:Then F+360→J：Else F→J:IfEnd
“Q FWJ=”：F?DMS◢ 觀測點(diǎn)切線方位角
“QS X(m)=”：U+√(W²+K²)×Cos((Q)+tan? ¹(K÷W)) →A: A ◢ 觀測點(diǎn)X坐標(biāo)
“QS Y(m)=”：V+√(W²+K²)×Sin((Q)+tan? ¹(K÷W)) →B: B ◢ 觀測點(diǎn)Y坐標(biāo)
Pol(A-O,B-P)
If J<0:Then J+360→J：Else J→J:IfEnd
J-H→J
If J<0:Then J+360→J：Else J→J:IfEnd
“SPJ∠a=”:J?DMS◢ 觀測點(diǎn)所撥偏角
“I（m）=”:I◢ 置鏡點(diǎn)到觀測點(diǎn)距離
“BIAN JU(m)=”?S 邊距，左負(fù)右正
If S=0:Then Goto 0: IfEnd
“JIA JIAO L(-),R(+) =”?E 邊樁至中樁切線方向的夾角左負(fù)右正
“BZ X(m)=”：A+SCos(F+E) →X: X ◢
“BZ Y(m)=”：B+S Sin(F+E) →Y：Y ◢
Pol(X-O,Y-P)
If J<0:Then J+360→J：Else J→J:IfEnd
J-H→J
If J<0:Then J+360→J：Else J→J:IfEnd
“BZ ∠a =”:J?DMS◢
“I（m）=”:I◢
Goto 0
四、文件名：YH HZ 另一端緩和曲線段內(nèi)任意點(diǎn)坐標(biāo)計(jì)算程序
“Deg:Fix 4
“FWJ∠a=”？Q 起算點(diǎn)方位角
“ZX(m)=”?O:”ZY(m)=”?P 置鏡點(diǎn)坐標(biāo)
“HX(m)=”?M:”HY(m)=”?N 后視點(diǎn)坐標(biāo)
Pol(M-O,N-P)
If J<0:Then J+360→H：Else J→H:IfEnd
“HFWJ ∠a=”:H?DMS◢ 后視方位角
“ZHUAN XIANG L（-1），R（1）=”？T 曲線轉(zhuǎn)向左負(fù)右正
“R（m）=”?R 曲線半徑
“LS(m)=”?D 緩和曲線長度
“KZH(m)=”?G 曲線起點(diǎn)ZH里程
“XZH(m)=”?U 曲線起點(diǎn) X
“YZH(m)=”?V 曲線起點(diǎn) Y
LbI 0
“QDK(m)=”?Z 觀測點(diǎn)里程
Abs(G-Z)→C
C-C^5/(40R^2D^2)+C^9/(3456 R^4D^4) →W
C^3/(6RD)-C^7/(336R^3D^3)+C^11/(42240R^5D^5) →K
Q-(C^2/(2RD)×(180/Π)) →F
If F<0:Then F+360→F：Else F→F:IfEnd
If F>360:Then F-360→F：Else F→F:IfEnd
“QFWJ∠a =”：F?DMS◢
“QS X(m)=”：U-W×Cos(Q)+K×Cos(Q+90) →A: A ◢
“QS Y(m)=”：V-W×Sin(Q)+K×Sin(Q+90) →B: B ◢
Pol(A-O,B-P)
If J<0:Then J+360→J：Else J→J:IfEnd
J-H→J
If J<0:Then J+360→J：Else J→J:IfEnd
“SPJ∠a=”:J?DMS◢
“I（m）=”:I◢
LbI 1
“BJ(m)=”?S
If S=0:Then Goto 0: IfEnd
“JIA JIAO L(-),R(+) =”?E
“BZ X=”：A+SCos(F+E) →X: X ◢
“BZ Y=”：B+S Sin(F+E) →Y：Y ◢
Pol(X-O,Y-P)
If J<0:Then J+360→J：Else J→J:IfEnd
J-H→J
If J<0:Then J+360→J：Else J→J:IfEnd
“BZ∠a =”:J?DMS◢
“I（m）=”:I◢
Goto 0
