我的5800p测量程序及公式.docVIP

FILE 非常好用的卡西欧5800p程序 一、坐标反算 (XY--FD) Deg： Fix 3 ↓(换行) Lbl 0↓ 〝X0=〞?A:〝Y0=〞?B:〝XN=〞?C:〝YN=〞?D↓(换行) Pol（（C-A））◢ 〝FWJ=〞：J：?DMS Goto 0 二、坐标正算 (DF--XY) Deg： Fix 3 ↓(换行) 〝X0=〞?A；〝Y0=〞?B：〝L=〞?L：〝C=〞?C↓(换行) A+Lcos(C)→X↓ B+Lsin(C)→Y↓ 〝X=〞：X◢ 〝Y=〞：Y◢ 三、直线段中桩、边桩坐标计算（该程序从起点往终点计算）(ZX) 1、Deg： Fix 3 ↓(换行) 设置小数保留位数 2、Lbl 1↓ 程序标签 3、〝X0〞?X：〝Y0=〞?Y：〝K0=〞?E：〝FWJ=〞?J↓赋值起点坐标、桩号、走向方位角 4、?K：?L：?A↓ 输入所求的桩号、边距、相对于主线的方位角（如果只计算中桩坐标，边距及方位角皆为0） 5、X+(K-E)cos(J)+Lcos(J+A)→C↓ 计算坐标X 6〝XP=〞：C◢ 显示坐标X 7、Y+(K-E)sin(J)+Lsin(J+A)→D↓ 计算坐标Y 8、〝YP=〞：D◢ 显示坐标Y 9、Goto 1↓ 转向程序标签循环执行计算 四、圆曲线坐标计算程序（该程序从起点往终点计算） (YQX) Deg： Fix 3 ↓(换行) Lbl 0： 〝K0=〞?K：?X：?Y：?A：?R： 〝L=-1，R=+1〞：?G： 〝ZS=0，FS≠0〞：?S： S≠0 =＞Goto 1↓ 〝Ki〞?Z↓ 90(Z-K)÷(∏R)→B↓ 2RsinB→D↓ 10、〝Xi=〞：X+Dcos（A+GB）→P◢ 11、〝Yi=〞：Y+Dsin（A+GB）◢ 12、A+180G(Z-K)÷(∏R)→0↓ 13、〝ZBJ〞？E↓ 14、〝XiL=〞:P+Ecos(0-90) ◢ 15、〝YiL=〞:Q+Esin(0-90) ◢ 16. 〝YBJ〞？F↓ 17、 “XiR=”:P+Fcos(O+90)◢18、 “YiR=”:Q+Fsin(O+90)◢ 19、 Goto 0↓ 20.、Lbl 1： 21、 “XC”?U: “YC”?V↓ 22、X+Rcos(A+90G)→M↓ 23、Y+Rsin(A+90G)→N↓ 24、 Pol(U-M,V-N)→H↓ 25、J＜0 =＞J+360→J26.、“PJ=”:R-H→L◢ 27、 “XCCZ=”: M+Rcos(J)→T◢ 28.、“YCCZ=”: N+Rsin(J)→W◢ 29 、Pol(T-X,W-Y) →Z↓ 30.、“CZZH=”: K+sin-1(Z÷2÷R)πR÷90◢ 31.、Goto 0 说明：1.设置小数保留三位。2.程序03.赋值起点桩号K0，赋值起点坐标X、Y，赋值半径R,赋值起点走向方位角A。4.赋值曲线转向，左转为-1，右转为+1。5.选择正算S=0，或反算S≠0.6.如果S≠0，进入反算程序。7.正算程序：输入所求桩号Ki。8.计算弦切角B。9.计算弦长D。10.计算中桩坐标Xi并显示。11.计算中桩坐标Yi并显示。12.计算i点走向方位角O。13.输入左边桩距中桩的距离E。14.计算左边桩坐标XiL并显示。15.计算左边桩坐标YiL并显示。16.输入右边桩距中桩的距离F。17.计算右边桩坐标XiR并显示。18.计算右边桩坐标YiR并显示。19.到程序0。20.反算程序1。21.输入测量坐标XC、YC。22.计算圆心X坐标M。23.计算圆心Y坐标N。24.计算圆心与测点距离H。25.计算圆心到测点的走向方位角。26.计算偏距PJ并显示，正值说明测点在圆内，负值说明测点在圆外。27.计算垂足坐标XCCZ并显示28.计算垂足坐标YCCZ并显示。。29.计算垂足到起点弦长Z。30.计算垂足桩