超兽武装雪皇:测量程序
来源:百度文库 编辑:九乡新闻网 时间:2024/04/29 06:28:19
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
"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