CASIO 5800P研究心得（五）圆曲线坐标计算程序
(2010-03-25 19:27:05)
转载▼
标签：
杂谈
五、圆曲线坐标计算程序：
1.Deg:Fix 3
2.Lbl 0:
3.“K0=”?K:?X:?Y:?A:?R
4.“L=-1,R=+1”：?G
5.“ZS=0，FS≠0”：?S
6.S≠0 =＞Goto 1
7.“Ki”?Z
8.90(Z-K)÷（πR）→B
9.2R sin B→D
10.“Xi=”:X+Dcos (A+GB)→P◢
11. “Yi=”:Y+Dsin (A+GB)→Q◢
12.A+180G(Z-K)÷（πR）→O
13.“ZBJ”?E
14. “XiL=”:P+Ecos(O-90)◢
15. “YiL=”:Q+Esin(O-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→J
26.“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.程序0
3.赋值起点桩号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.计算垂足桩号CZZH并显示
31.到程序0。
