CASIO-5800测量程序
5800中边桩任意点坐标计算程序
一、文件名：HZ ZH 输入文件名
Deg:Fix 4 基本设置
"FWJ∠α="？Q8 起点切线方位角
"ZX(m)="？O: "ZY(m)= "？P8 置镜点坐标
"HX(m)= "？M: "HY(m)= "？N 8 后视点坐标
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 起算点坐标和里程
Ldl 08
"GDK(m)="?Z 8 观测点里程
G－Z"C8
"GX(m)=":U＋cos(Q) ×C"Ay 置镜点至中桩X坐标
"GY(m)=":V＋sin(Q) ×C"By 置镜点至中桩Y坐标
Pol(A－O,B－P) 8 置镜点到中桩方位角
J－H"J8
If J－H<O:Then J＋360"J:Else J"J:IfEnd8
"SPJ∠α=":J}DMSy 显示顺拔夹角
"I(m)=":Iy 置镜点至中桩距离
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 显示观测点X 坐标
"GY(m)=":B＋sin(W) ×S"Yy 显示观测点Y 坐标
Pol(X－O,Y－P) 8
If J<0:Then J＋360"J:IfEnd8
J－H"J8 置镜点到观测点方位角
If J<0:Then J＋360"J:Else J"J:IfEnd8
"SPJ∠α=":J}DMSy 显示顺拔夹角
"I(m)=":Iy 显示置镜点到观测点距离
Goto 1 回到前面重复下一观测点
二、文件名：ZH HY 缓和曲线段内任意点坐标计算程序
“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 园和曲线段内任意点坐标计算程序
“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
“HFWJ ∠a=”:H?DMS◢ 后视方位角
“ZHUAN XIANG L（-1），R（1）=”？T 曲线转向左负右正
“R（m）=”?R 曲线半径
“LS(m)=”?D 缓和曲线长度
“KZH(m)=”?G 曲线起点ZH里程
“XZH(m)=”?U 曲线起点 X
“YZH(m)=”?V 曲线起点 Y
LbI 0
“QDK(m)=”?Z 观测点里程
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◢ 观测点切线方位角
“QS X(m)=”：U+√(W²+K²)×Cos((Q)+tan? ¹(K÷W)) →A: A ◢ 观测点X坐标
“QS Y(m)=”：V+√(W²+K²)×Sin((Q)+tan? ¹(K÷W)) →B: B ◢ 观测点Y坐标
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◢ 置镜点到观测点距离
“BIAN JU(m)=”?S 边距，左负右正
If S=0:Then Goto 0: IfEnd
“JIA JIAO L(-),R(+) =”?E 边桩至中桩切线方向的夹角左负右正
“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 另一端缓和曲线段内任意点坐标计算程序
“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
“HFWJ ∠a=”:H?DMS◢ 后视方位角
“ZHUAN XIANG L（-1），R（1）=”？T 曲线转向左负右正
“R（m）=”?R 曲线半径
“LS(m)=”?D 缓和曲线长度
“KZH(m)=”?G 曲线起点ZH里程
“XZH(m)=”?U 曲线起点 X
“YZH(m)=”?V 曲线起点 Y
LbI 0
“QDK(m)=”?Z 观测点里程
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
联系客服
