CASIO-5800测量程序(自编)中水五局程其龙"雷5800中边桩任意点坐标计算程序作者：雷宏一、文件名：HZZH输入文件名Deg:Fix4基本设置"FWJ∠α="？Q起点切线方位角"ZX(m)="？O:"ZY(m)="？P置镜点坐标"HX(m)="？M:"HY(m)="？N后视点坐标Pol(A－O,B－P)IfJ<0:ThenJ＋360H:ElseJH:IfEnd"QX(m)="?U:"QY(m)="?V:"QDK(m)="?G起算点坐标和里程Ldl0"GDK(m)="?Z观测点里程G－ZC"GX(m)=":U＋cos(Q)×CA置镜点至中桩X坐标"GY(m)=":V＋sin(Q)×CB置镜点至中桩Y坐标Pol(A－O,B－P)置镜点到中桩方位角J－HJIfJ－H<O:ThenJ＋360J:ElseJJ:IfEnd"SPJ∠α=":JDMS显示顺拔夹角"I(m)=":I置镜点至中桩距离Ldl1"BJ(m)="?S边距IfS=0:ThenGoto0:IfEnd"JIAJIAOL(-),R(+)="?EQ＋EW"GX(m)=":A＋cos(W)×SX显示观测点X坐标"GY(m)=":B＋sin(W)×SY显示观测点Y坐标Pol(X－O,Y－P)IfJ<0:ThenJ＋360J:IfEndJ－HJ置镜点到观测点方位角IfJ<0:ThenJ＋360J:ElseJJ:IfEnd"SPJ∠α=":JDMS显示顺拔夹角"I(m)=":I显示置镜点到观测点距离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）=”？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+90)→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“JIAJIAOL(-),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:IfEnd“∠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里程“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/