5800圆曲线段坐标反算桩用程序

5800-圆曲线段坐标反算桩号实用程序
1"ZY PEG="?L:"X-ZY="?A:"Y-ZY="?B:"F="?E:"YZ PEG="?Z:?R
2"TURNING ANGLE-L,+R(Deg)="?K:I=0:J=0
3LbI A:"X1="?C:"Y1="?D:A-KRsin(E)→X:B+KRcos(E)→Y:E+90(K+2)→F
4Pol(C-X,D-Y):If J＜0:Then J+360→J:IfEnd
5"X-ZXD=":X+Rcos(J)→U⊿ （应为实三角，下同）
6"Y-ZXD=":Y+Rsin(J)→V⊿
790K+J→Q:If Q＜0:Then Q+360→Q:Else If Q≥360:Then Q-360→Q:IfEnd:IfEnd
8"ZXD F=":Q▼DMS⊿ (▼DMS为一个整体字符)
9L+Rπ(J-F)÷180→H:If H＜L-0.01:Then Goto B:Else If H＞Z+0.01:Then Goto B:IfEnd:IfEnd 10"LC=":H⊿
11"PD(-L,+R)=":R-I→G⊿
12"END":Goto A:LbI B:"CHAO CHU FAN WEI ":Goto A
说明：
（输入） ZY PEG——ZY 点里程
（输入） X-ZY、Y-ZY——ZY 点坐标
（输入） F——ZY 点切线方位角
（输入） YZ PEG——YZ 点里程
（输入） R——曲线半径
（输入） TURNING ANGLE-L,+R(Deg)——曲线转向（左负右正）
（输入） X1、Y1——观测点坐标
（显示） X-ZXD、Y-ZXD——所求的中线点的坐标
（显示） ZXD F——所求的中线点的切线方位角
（显示） LC——所求里程
（显示） PD——所求偏距（负在左，正在右）
（显示） CHAO CHU FAN WEI——超出曲线范围。