CASIO5800测量程序集

《CASIO5800测量程序集》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、CASIO-5800测量程序(自编)中水五局程其龙"雷5800中边桩任意点坐标计算程序作者：雷宏一、文件名：HZZH输入文件名Deg:Fix4基本设置"FWJ∠α="？Q8起点切线方位角"ZX(m)="？O:"ZY(m)="？P8置镜点坐标"HX(m)="？M:"HY(m)="？N8后视点坐标Pol(A－O,B－P)8IfJ<0:ThenJ＋360"H:ElseJ"H:IfEnd8"QX(m)="?U:"QY(m)="?V:"QDK(m)="?G8起算点坐标和里程Ldl08"GDK(m)="?Z8观测点里程G－Z"C8"GX(m)=":U＋cos(Q)×C"Ay置镜点至中桩

2、X坐标"GY(m)=":V＋sin(Q)×C"By置镜点至中桩Y坐标Pol(A－O,B－P)8置镜点到中桩方位角J－H"J8IfJ－H

3、0"J:IfEnd8J－H"J8置镜点到观测点方位角IfJ<0:ThenJ＋360"J:ElseJ"J:IfEnd8"SPJ∠α=":J}DMSy显示顺拔夹角"I(m)=":Iy显示置镜点到观测点距离Goto1回到前面重复下一观测点二、文件名：ZHHY      缓和曲线段内任意点坐标计算程序“Deg:Fix4“FWJ∠a=”？Q“ZX(m)=”?O:”ZY(m)=”?P“HX(m)=”?M:”HY(m)=”?NPol(M-O,N-P)IfJ<0:ThenJ+360→H：ElseJ→H:IfEnd“HWJ∠a=”:H►DMS◢“ZHUANXIANGL（-1），R（1）=”？

4、T“R（m）=”?R“LS(m)=”?D“KZH=”?G“ZHX(m)=”?U“ZHY(m)=”?VLbI0“QDK=”?ZAbs(Z-G)→CC-C^5/(40R^2D^2)+C^9/(3456R^4D^4)→WC^3/(6RD)-C^7/(336R^3D^3)+C^11/(42240R^5D^5)→KQ+(C^2/(2RD)×(180/Π))→FIfJ<0:ThenF+360→F：ElseF→F:IfEnd“QFWJ∠a=”:F►DMS◢“QSX（m）=”：U+W×Cos(Q)+K×Cos(Q+90)→A:A◢“QSY（m）=”：V+W×Sin(Q)+K×Sin(Q+9

5、0)→B:B◢Pol(A-O,B-P)IfJ<0:ThenJ+360→J：ElseJ→J:IfEndJ-H→JIfJ<0:ThenJ+360→J：ElseJ→J:IfEnd“SPJ∠a=”:J►DMS◢“I（m）=”:I◢LbI1“BJ(m)=”?SIfS=0:ThenGoto0:IfEnd“JIAJIAO  L(-),R(+)=”?E“BZX=”：A+SCos(F+E)→X:X◢“BZY=”：B+SSin(F+E)→Y：Y◢Pol(X-O,Y-P)IfJ<0:ThenJ+360→J：ElseJ→J:IfEndJ-H→JIfJ<0:ThenJ+360→J：ElseJ→J:I

6、fEnd“∠BIANZHUANGPJ=”:J►DMS◢“I（m）=”:I◢Goto0三、文件名：HYYH   园和曲线段内任意点坐标计算程序“Deg:Fix4“FWJ∠a=”？Q起算点方位角“ZX(m)=”?O:”ZY(m)=”?P置镜点坐标“HX(m)=”?M:”HY(m)=”?N后视点坐标Pol(M-O,N-P)IfJ<0:ThenJ+360→H：ElseJ→H:IfEnd“HFWJ∠a=”:H►DMS◢后视方位角“ZHUANXIANGL（-1），R（1）=”？T曲线转向左负右正“R（m）=”?R曲线半径“LS(m)=”?D缓和曲线长度“KZH(m)=”?G曲线起点ZH

7、里程“XZH(m)=”?U曲线起点X“YZH(m)=”?V曲线起点YLbI0“QDK(m)=”?Z观测点里程Abs(Z-G)→CR×Sin(180×(C-D）/（πR）+90D/（πR）)+D/2-D^3/(240R^2)→WR×（1-Cos(180(C-D）)/（πR）+90D/（πR））+D^2/(24R)-D^4/(2688R^3)→KQ+(180（C-D）/（πR）+90D/（πR）)→FIfF<0:ThenF+360→J：ElseF→J:IfEnd“QFWJ=”：F►DMS◢观测点切线方位角“QSX(m)