CASIO5800测量程序集..docVIP

CASIO-5800测量程序(自编) 中水五局程其龙 雷5800中边桩任意点坐标计算程序 作者：雷宏 一、文件名：HZ ZH 输入文件名 Deg:Fix 4 基本设置 FWJ∠α=？Q? 起点切线方位角 ZX(m)=？O: ZY(m)= ？P? 置镜点坐标 HX(m)= ？M: HY(m)= ？N ? 后视点坐标 Pol(A－O,B－P) ? If J0:Then J＋360?H:Else J?H:IfEnd? QX(m)=?U: QY(m)=?V: QDK(m)=?G? 起算点坐标和里程 Ldl 0? 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? If J－HO:Then J＋360?J:Else J?J:IfEnd? SPJ∠α=:J?DMS? 显示顺拔夹角 I(m)=:I? 置镜点至中桩距离 Ldl 1? BJ(m)= ?S ? 边距 If S=0:Then Goto 0:IfEnd? JIA JIAO L(-),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) ? If J0:Then J＋360?J:IfEnd? J－H?J? 置镜点到观测点方位角 If J0:Then J＋360?J:Else J?J:IfEnd? SPJ∠α=:J?DMS? 显示顺拔夹角 I(m)=:I? 显示置镜点到观测点距离 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 J0: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=”?ZAbs(Z-G)→CC-C^5/(40R^2D^2)+C^9/(3456 R^4D^4) →WC^3/(6RD)-C^7/(336R^3D^3)+C^11/(42240R^5D^5) →KQ+(C^2/(2RD)×(180/Π)) →F If J0: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 J0:Then J+360→J：Else J→J:IfEnd J-H→J If J0:Then J+360→J：Else J→J:IfEnd “SPJ∠a=”:J?DMS◢ “I（m）=”:I◢ LbI 1“BJ(m)=”?SIf S=0:Then Goto 0: IfEnd