直线坐标程序 1.Deg:Fix 3 2.Lbl 0: “K0=”?K:?X:?Y:“X 1”?M:“Y1”?N: Pol(M-X,N-Y):“JL”:I◢ 3.“FWJ=”: J<0 =>J+360→J: J△DMS◢ 4.“ZS=0,FS≠0”:?S 5.S≠0 =>Goto 1 6.“Ki”?Z 7.“Xi=”:X+(Z-K)cos J→P◢ 8. “Yi=”:Y+(Z-K)sin J→Q◢ 9.“ZBJ”?L 10. “XiL=”:P+Lcos(J-90)◢ 11. “YiL=”:Q+Lsin(J-90)◢ 12. “YBJ”?D 13. “XiR=”:P+Dcos(J+90)◢ 14. “YiR=”:Q+Dsin(J+90)◢ 15. Goto 0 16. Lbl 1 17. “XC”?H: “YC”?G 18. “XCZ=”:(H+Xtan (J)²-(Y-G)tan (J))÷(1+tan (J)²) →U◢ 19. “YCZ=”:Y-(X-U)tan (J) →V◢ 20. “CZZH=”: Pol(X-U,Y-V) →C:K+C→F◢ 21. “PJ=”: Pol(H-U,G-V) →T◢ 22. Goto 0
说明
关于失联党员情况说明岗位说明总经理岗位说明书会计岗位说明书行政主管岗位说明书
: 1. 设置小数保留三位。 2. 程序0:赋值起点桩号K0,赋值起点坐标X、Y,赋值终点坐标X1、Y1,计算起点至终点距离并显示。 3. 计算方位角并显示。 4. 选择正算S=0,或反算S≠0. 5. 如果S≠0,进入反算程序。 6. 正算程序:输入所求桩号Ki。 7. 计算中桩坐标Xi并显示。 8. 计算中桩坐标Yi并显示。 9. 输入左边桩距中桩的距离L。 10. 计算左边桩坐标XiL并显示。 11. 计算左边桩坐标YiL并显示。 12. 输入右边桩距中桩的距离D。 13. 计算右边桩坐标XiR并显示。 14. 计算右边桩坐标YiR并显示。 15. 到程序0。 16. 反算程序1。 17. 输入测量坐标XC、YC。 18. 计算垂足坐标XCZ并显示。 19. 计算垂足坐标YCZ并显示。 20. 计算垂足桩号CZZH并显示。 21. 计算测点偏离垂足距离(垂距)PJ并显示。 22. 到程序0。 直线坐标程序(简化版) 1.Deg:Fix 3 2. “K0=”?K:?X:?Y:?G:“X 1”?M:“Y1”?N: Pol(M-X,N-Y):“JL”:I◢ 3.“FWJ=”: J<0 =>J+360→J: J△DMS◢ 4. Lbl 0: “Ki”?Z 5.“Xi=”:X+(Z-K)cos J→P◢ 6. “Yi=”:Y+(Z-K)sin J→Q◢ 7.“I”?V 8.“SJG=”: G+Z(V/100)◢ 9. Goto 0 说明: 1. 设置小数保留三位。 2. 程序0:赋值起点桩号K0,赋值起点坐标和设计高X、Y、G,赋值终点坐标X1、Y1,计算起点至终点距离并显示。 3. 计算方位角并显示。 4. 正算程序:输入所求桩号Ki。 5. 计算中桩坐标Xi并显示。 6. 计算中桩坐标Yi并显示。 7.