坐标计算程序

坐标计算程序
(1) J=90I/Rπ：P=I2/(24R)：M=I/2-I³/240/R2：L=Rπ(AbsQ-2J) /180：T=(R+P)tan(AbsQ/2)+M：
(2) Lbl 0
(3) {E，K，W}：K：W：E
(4) D=E-F：D≤0=>Goto 1：≠>D≤I=>Goto 2：≠>D=E-F-I：D≤L=>Goto 3：≠>D=F+2I+L-E：D≥0=>Goto 4：≠>Goto 5 △△△△
(5) Lbl 1
(6) S=E-F：C=Z ：U=Z
(7) Goto 6
(8) Lbl 2
(9) U=D-D5/(40R2I2)： V=D3/(6RI)： A= 90 D2/(RIπ)
(10) Goto 7
(11) Lbl 3
(12) U=M+Rsin(J+180D/Rπ)：V=R+P-Rcos(J+180D/Rπ)：A=J+180D/R/π
(13) Goto 7
(14) Lbl 7
(15) B=tan-1(V/U)：S=√(U2+V2)：
(16) Q≤0=> C=Z-B： U=Z-A：≠>C=Z+B： U=Z+AΔ
(17) Goto 6
(18) Lbl 4
(19) U=D-D5/(40R2I2)： V=D3/(6RI)： B=tan-1(V/U)：S=√(U²+V²)：A=D2*180/(6RIπ)*3
(20) Q≤0=> C=Z+Q+B+180： U=Z+Q+A：≠>C=Z+Q-B+180：U=Z+Q-AΔ
(21) Goto 8
(22) Lbl 8
(23) X=ScosC+G+TcosZ+Tcos(Z+Q)：Y=SsinC+H+TsinZ+Tsin(Z+Q)
(24) Goto 9
(25) Lbl 5
(26) S= (E-F-2I-L)：U=Z+Q：C=U
(27) Goto 8
(28) Lbl 6
(29) X=ScosC+G：Y=SsinC+H
(30) Goto 9
(31) Lbl 9
(32) X=X+Wcos（U+K）▲Y=Y+Wsin（U+K）▲
(33) Goto 0
使用说明：E：测设点里程；F：直缓点里程；R：曲线半径；I：缓和曲线长；Z：切线方位角；Q：转向角；G、H：直缓点坐标X、Y；K：边角；W：边桩距离。