S,N=>X,Y
Lb1 0
A:B:S:N
X=A+S cosN ◢
Y=B+S sinN ◢
GoTo 0
已知距离和方位角求坐标
X,Y=>S,N
Lb1 0
A:B:C:D
X=C － A : Y=D － B
S= √ X2+Y2 ◢
X ≥ 0=>M=tan-1(Y/X): ≠ =>M= tan-1(Y/X)+180 △
M ≥ 0=>N=M: ≠ =>N=M+360◢
GoTo 0
A ：已知点的 X 坐标
B ：已知点的 Y 坐标
C ：方向点的 X 坐标
D ：方向点的 X 坐标
S ：已知点至方向点的距离
N ：已知点至方向点的方位角
SQX
Lb1 0
｛ Z ｝
C 〝 Z0 〞 :D 〝 H0 〞 :A 〝 I1 〞 :D 〝 I2 〞 :T:R
H=(T-Abs(Z-C))2 ÷ R ÷ 2:
T ﹤ Abs(Z-C)=>H=0: △
A ﹥ B=>GoTo 2: ≠ > GoTo 1 △△
Lb1 1
Z ﹤ C=>X=D ＋ (Z-C)A ＋ H ▲ ≠ > X=D ＋ (Z-C)B ＋ H ▲△
GoTo O
Lb1 2
Z ﹤ C=>X=D ＋ (Z-C)A － H ▲ ≠ > X=D ＋ (Z-C)B － H ▲△
GoTo O
Z0 ：中心桩号
H0 ：中心桩号对应的标高
T ：切线长
I1 、 I2 ：竖曲线斜率
Z ：所求点的桩号
缓和曲线 ( 顺算 )
HUAN SUN
Lb1 0
｛ S ， E ， F ｝
A 〝 X1 〞 : B 〝 Y1 〞 : H : C
U= ∫（ Abs cos( X2 ÷ 2 ÷ C2 × 180 ÷ π ),0,S ） :
V= ∫（ Abs sin( X2 ÷ 2 ÷ C2 × 180 ÷ π ),0,S ） :
X=A ＋ UcosH ＋ Vcos(H ＋ Z × 90) ▲
Y=B ＋ UsinH ＋ Vsin(H ＋ Z × 90) ▲
G=H ＋ Z × S2 ÷ 2 ÷ C2 × 180 ÷π :
X=X ＋ Ecos(G ＋ F) ▲
Y=Y ＋ Esin(G ＋ F) ▲
GoTo O
X1,Y1 ：缓和曲线起始桩点的坐标
H ：起始点至曲线切点的方位角
C ：缓和曲线参数（ A 值）
Z ：取± 1
S ：所求点到起始点的距离
F ：所求点与路线中心线的交角（一般为 90O ）
缓和曲线逆算
HUAN NI
Lb1 0
｛ S ， E ， F ｝
A 〝 X1 〞 : B 〝 Y1 〞 : H : C
U= ∫（（ Abs cos(X ÷ R － X2 ÷ 2 ÷ C2 ) × 180 ÷π ,0,S ） :
V= ∫（（ Abs sin(X ÷ R － X2 ÷ 2 ÷ C2 ) × 180 ÷π ,0,S ） :
X=A ＋ UcosH ＋ Vcos(H ＋ Z × 90) ▲
Y=B ＋ UsinH ＋ Vsin(H ＋ Z × 90) ▲
G=H ＋ Z （ S ÷ R － S2 ÷ 2 ÷ C2 ）× 180 ÷π :
X=X ＋ Ecos(G ＋ F) ▲
Y=Y ＋ Esin(G ＋ F) ▲
GoTo O
A 、 B ：起点的 X ， Y 坐标
H ：起始点至曲线切点的方位角
C ：缓和曲线参数（ A 值）
Z ：取± 1
S ：所求点至起始点的距离
E ：所求点至路线中心线的距离
F ：所求点与路线中心线的交角（一般为 90O ）
