第一缓和曲线加圆曲线上任意点坐标计算程序：L1：U=U"Ｘ0"：V=V"Y0"：F"FANG"=F：E=E"LEFT-1"：LbI 0
L2：｛B｝：｛D｝：｛P｝
L3：L=AbS（B-A"ZHD"）
L
4：
L5：X=L-LX Y5/（40R2S2）
L6：Y= LX Y3/（6RS）- LX Y7/（336RX Y3SX Y3）：G=90L2/（∏RS）
L
GOtO 2
7：
L8：LbI 1
L9：L=L-S
L10：O=90S/（∏R）+90L/（∏R）
L11：M=2（Rsin（90L/∏/R））
L12：X=S-SX Y3/（40R2）+Mcos O
L13：Y=S2/（6R）+MsinO:G=90S/（∏R）+180L/（∏R）
L
GOtO 2
14：
L15：LbI 2
L16：W=tan-1（Y/X）:Q=√（X2+Y2）
L
17：
L
E=1=>G=-G
18：
L19：X[1]=U+Qcos（F+W）+Dcos（F+G+P）◢
L20：Y[1]=V+Qsin（W+F）+Dsin（F+G+P）◢
L21：GOtO 0
注、○1、XO—为起点X坐标 EXE
○2、YO—为起点Y坐标 EXE
○3、F？—方位角 EXE
○4、LEFT-1？—左偏取1右偏取0 EXE
○5、B？—所求坐标点里程（起点输0时为到起点长度）EXE
○6、ZHD？—为直缓点里程或直圆点里程（起点可以输0）EXE
○7、S？—缓和曲线长、圆曲线时输为0 EXE
○8、R？—半径EXE
○9、D？—中桩到边桩长度EXE
○10、P？—左右方向与中线切线交角、法线方向时左-90右+90 EXE
○11、上述每一步输完后必须确认、结果显示字后转到B进行循环操作。

坐标反算
L1：Lb1 0
L2：｛A｝: A"X1":｛B｝:B "XO":｛D｝:D "Y1":｛K｝:K "YO" L3：X=A-B
L4：Y=D-K
L5：POI（X，Y）◢
=>W=W+3600◢
L6：Y＞0=>W=W
L7：GOtO 0
注：①X1坐标EXE ③Y1坐标EXE
②X0坐标EXE ④Y0坐标EXE
求A点到B点方位角时A点为X0
1、该程序计算时可从切线起点ZH或ZY 算到圆曲线终点而另一半缓和
曲线需重新倒转计算。

2、○9中左-90右+90可计算任意角值（与切线相交的任意角值）
竖曲线高程计算程序
H:I:R:E:Q“（=1）=-1
LbI 1:｛X｝:Y=H+XI+Q（T-X）2÷（2XR）◢Z=Y+BE◢GOtO 1◢
注：H？、—变坡点高程（未考虑竖曲线引响的高程）
T？、—切线长度
I？、坡度（以变坡点与竖曲线起点或终点处比较，竖曲线起、终点处高为“+”低为“-”）
R？、—竖曲线半径
B？、—左或右距中线的距离，分隔带宽度除外，不需要时左右为“0”
E？、—横向坡度
Q？、—凸曲线为“-1”凹曲线为“+1”
X？、—计算点到变坡点长度、以米计
Y？、—中线高程
Z？、—边线高程
I？、E？—坡度输入时化成每米I？，E倒32％化成0.032进行输入。