CASIO5800测量程序集.doc

CASIO-5800测量程序(自编)中水五局程其龙雷5800中边桩任意点坐标计算程序 作者：雷宏一、文件名：HZ ZH 输入文件名Deg:Fix 4 基本设置FWJ=？Q8 起点切线方位角ZX(m)=？O: ZY(m)= ？P8 置镜点坐标HX(m)= ？M: HY(m)= ？N 8 后视点坐标Pol(AO,BP) 8If J0:Then J360H:Else JH:IfEnd8 QX(m)=?U: QY(m)=?V: QDK(m)=?G8 起算点坐标和里程Ldl 08GDK(m)=?Z 8 观测点里程GZC8GX(m)=:Ucos(Q) CAy 置镜点至中桩X坐标GY(m)=:Vsin(Q) CBy 置镜点至中桩Y坐标Pol(AO,BP) 8 置镜点到中桩方位角JHJ8 If JHO:Then J360J:Else JJ:IfEnd8SPJ=:JDMSy 显示顺拔夹角I(m)=:Iy 置镜点至中桩距离Ldl 18BJ(m)= ?S 8 边距If S=0:Then Goto 0:IfEnd8JIA JIAO L(-),R(+)=?E8QEW8GX(m)=:Acos(W) SXy 显示观测点X 坐标GY(m)=:Bsin(W) SYy 显示观测点Y 坐标Pol(XO,YP) 8If J0:Then J360J:IfEnd8JHJ8 置镜点到观测点方位角If J0:Then J360J:Else JJ:IfEnd8SPJ=:JDMSy 显示顺拔夹角I(m)=:Iy 显示置镜点到观测点距离Goto 1 回到前面重复下一观测点 二、文件名：ZH HY 缓和曲线段内任意点坐标计算程序“Deg:Fix 4“FWJa =”？Q“ZX(m)=”?O:”ZY(m)=”?P“HX(m)=”?M:”HY(m)=”?NPol(M-O,N-P)If J0:Then J+360H：Else JH:IfEnd“HWJa =”:HDMS“ZHUAN XIANG L（-1），R（1）=”？T“R（m）=”?R“LS(m)=”?D“KZH=”?G“ZH X(m)=”?U“ZH Y(m)=”?VLbI 0“QDK=”?ZAbs(Z-G)CC-C5/(40R2D2)+C9/(3456 R4D4) WC3/(6RD)-C7/(336R3D3)+C11/(42240R5D5) KQ+(C2/(2RD)(180/) FIf J0:Then F+360F：Else FF:IfEnd“QFWJ a =”:FDMS“QS X（m）=”：U+WCos(Q)+KCos(Q+90) A: A “QS Y（m）=”：V+WSin(Q)+KSin(Q+90) B: B Pol(A-O,B-P)If J0:Then J+360J：Else JJ:IfEndJ-HJIf J0:Then J+360J：Else JJ:IfEnd“SPJa=”:JDMS “I（m）=”:I LbI 1“BJ(m)=”?SIf S=0:Then Goto 0: IfEnd“JIA JIAOL(-),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 J0:Then J+360J：Else JJ:IfEndJ-HJIf J0:Then J+360J：Else JJ:IfEnd“BIAN ZHUANG PJ=”:JDMS“I（m）=”:I Goto 0三、文件名：HY YH 园和曲线段内任意点坐标计算程序“Deg:Fix 4“FWJa=”？Q 起算点方位角“ZX(m)=”?O:”ZY(m)=”?P 置镜点坐标“HX(m)=”?M:”HY(m)=”?N 后视点坐标Pol(M-O,N-P)If J0:Then J+360H：Else JH:IfEnd“HFWJ a=”:HDMS 后视方位角“ZHUAN XIANG L（-1），R（1）=”？T 曲线转向左负右正“R（m）=”?R 曲线半径“LS(m)=”?D 缓和曲线长度“KZH(m)=”?G 曲线起点ZH里程“XZH(m)=”?U 曲线起点 X“YZH(m)=”?V 曲线起点 YLbI 0“QDK(m)=”?Z 观测点里程Abs(Z-G)CRSin(180(C- D）/（R）+90D/（R）)+D/2-D3/(240R 2)WR（1-Cos(180(C-D）)/（R）+90D/（R）+ D2/(24R)- D4/(2688R 3)KQ+(180（C-D）/（R）+90D/（R）)FIf F0:Then F+360J：Else FJ:IfEnd“Q FWJ=”：FDMS 观测点切线方位角“QS X(m)=”：U+(W+K)Cos(Q)+tan (KW) A: A 观测点X坐标“QS Y(m)=”：V+(W+K)Sin(Q)+tan (KW) B: B 观测点Y坐标Pol(A-O,B-P)If J0:Then J+360J：Else JJ:IfEndJ-HJIf J0:Then J+360J：Else JJ:IfEnd“SPJa=”:JDMS 观测点所拨偏角“I（m）=”:I 置镜点到观测点距离“BIAN JU(m)=”?S 边距，左负右正If S=0:Then Goto 0: IfEnd“JIA JIAOL(-),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 J0:Then J+360J：Else JJ:IfEndJ-HJIf J0:Then J+360J：Else JJ:IfEnd“BZ a =”:JDMS“I（m）=”:I Goto 0四、文件名：YH HZ 另一端缓和曲线段内任意点坐标计算程序“Deg:Fix 4“FWJa=”？Q 起算点方位角“ZX(m)=”?O:”ZY(m)=”?P 置镜点坐标“HX(m)=”?M:”HY(m)=”?N 后视点坐标Pol(M-O,N-P)If J0:Then J+360H：Else JH:IfEnd“HFWJ a=”:HDMS 后视方位角“ZHUAN XIANG L（-1），R（1）=”？T 曲线转向左负右正“R（m）=”?R 曲线半径“LS(m)=”?D 缓和曲线长度“KZH(m)=”?G 曲线起点ZH里程“XZH(m)=”?U 曲线起点 X“YZH(m)=”?V 曲线起点 YLbI 0“QDK(m)=”?Z 观测点里程Abs(G-Z)CC-C5/(40R2D2)+C9/(3456 R4D4) WC3/(6RD)-C7/(336R3D3)+C11/(42240R5D5) KQ-(C2/(2RD)(180/) FIf F360:Then F-360F：Else FF:IfEnd “QFWJa =”：FDMS“QS X(m)=”：U-WCos(Q)+KCos(Q+90) A: A “QS Y(m)=”：V-WSin(Q)+KSin(Q+90) B: B Pol(A-O,B-P)If J0:Then J+360J：Else JJ:IfEndJ-HJIf J0:Then J+360J：Else JJ:IfEnd“SPJa=”:JDMS “I（m）=”:I LbI 1“BJ(m)=”?SIf S=0:Then Goto 0: IfEnd“JIA JIAOL(-),R(