一、主程序（XY—ZB）
Deg： Fix 3
“X0（QD）”？A：“Y0（QD）”？B：？F：“QD”？Q：“ZD”？Z
Z-Q→C: 0→U:0→V
“R1（QD+R,-L）”?R: If R≠0：Then 1÷R→U：Ifend
“R2（ZD+R,-L）”?T：If T≠0:Then 1÷T→V:Ifend
180÷π→O：（V-U）÷（2C）→W
LbI 0:？N：？S:“E=90,-90”?E
N-Q→L
Prog “SUB—ZD”
“X=”: X⊿
“Y=”: Y⊿
Go To 0
二、子程序SUB—ZD（求切线方位角和坐标）
F+OUL+OWL2→J：If J＜0:Then J+360→J:Ifend
A+∫（CoS（F+OUX+OWX2）,0,L）+S CoS（J+E）→X
B+∫（Sin（F+OUX+OWX2）,0,L）+S Sin（J+E）→Y
Return
说明：
Q、Z---分别为起点、终点桩号
A、B、F---起点坐标、方位角
R、T---分别为线元起点、终点半径，当曲线右转输正值，左转输负值
N、S---待求点桩号、边桩—中桩的距离（M）
E---边桩待测点与对应中桩的连线与道路前进方向的夹角，
右夹角输入+E，左夹角输入E-180
X、Y----待测点计算坐标
注：
1、该程序能计算任意线元的中、边桩坐标；
2、该程序只需要输入计算线元的起点桩号、坐标，终点桩号，线元起点正方位角，
即可计算该线元中任意点坐标。
3、此程序的优点：能计算任意线元，通用性强；
温馨提示：答案为网友推荐，仅供参考