一般圆曲线计算程序(5800P)
（五）圆曲线坐标计算程序(xx-03-2519:27:05)转载▼标签：杂谈
五、圆曲线坐标计算程序：1、Deg:Fix
32、Lbl 0:3、“K0=”?K:?X:?Y:?A:?R4、“L=-
1,R=+1”：?G5、“ZS=0，FS≠0”：?S6、S≠0 =＞Goto
17、“Ki”?Z8、90(Z-K)（πR）→B9、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、 Lbl1
21、
“XC”?U:“YC”?V22．X+Rcos(A+90G)→M23．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(Z2R)πR90◢
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、输入测量坐标X
C、YC。

22、计算圆心X坐标M。

23、计算圆心Y坐标N。

24、计算圆心与测点距离H。

25、计算圆心到测点的走向方位角。

26、计算偏距PJ并显示，正值说明测点在圆内，负值说明测点在圆外。

27、计算垂足坐标XCCZ并显示
28、计算垂足坐标YCCZ并显示。

29、计算垂足到起点弦长Z。

30、计算垂足桩号CZZH并显示
31、到程序0。