2024年4月13日发(作者：闳哲圣)
(坐标计算主程序)
10
→
Dim
Z:“,”?C:“,”?E:E=2=>
Goto
2
“X
00
”?A:“Y
00
”？B
Lbl
1:?K:?Z:
Prog
“”:
Prog
“”:
“X=”:X-Z
sin
(Z[1]) →Q▲
“Y=”:Y+Z
cos
(Z[1]) →S▲
Pol
(Q-A,S-B):J<0=>J+360→J
“D=”:I▲
“F=”:J
▼DMS
▲
Goto
1
0
→K
Lbl
2:“XP”?Q:“YP”?S:“HP”?I:I→Z[4]
Lbl
3:
Prog
“”:
Prog
“”:(X-Q)
sin
(Z[1]+90)-(Y-S)
cos
(Z[1]+90)
≥
0.0001
:
Then
K-I→K:
Goto
3:
IfEnd
“K=”:K▲
“Z=”:(X-Q)
sin
(Z[1])-(Y-S)
cos
(Z[1]) →Z▲
Prog
“”:
Prog
“1.R”
Goto
2
I:
If Abs
(I)→
(平曲线要素 子程序)
If C=1:Then If
K≤53038.260(下一交点ZH点桩号):
Then
2379.165
→U(交点X):2429.939→V(交点Y):52792.353→D(交点桩号):9°
9′7.1″→O(线路转角): -1→W(左转-，右转+):1900→R（半径）:
0
→M（一缓长）:200→N(二缓长):157.583→T(第一切线长):246.615
→P(第二切线长):403.491→L(曲线长):90°22′58.6″→F(起点方
位角):Return:IfEnd:
If
K≤53038.260(下一交点ZH点桩号):Then
2379.165→U(交点X):2429.939→V(交点Y):52792.353→D(交点桩
号):9°9′7.1″→O(线路转角): -1→W(左转-，右转+):1900→R（半
径）:
0
→M（一缓长）:200→N(二缓长):157.583→T(第一切线
长):246.615→P(第二切线长):403.491→L(曲线长):90°22′
58.6″→F(起点方位角):Return:IfEnd:IfEnd
If C=2:Then If
K≤53038.260(下一交点ZH点桩号):
Then
2379.165
→U(交点X):2429.939→V(交点Y):52792.353→D(交点桩号):9°
9′7.1″→O(线路转角): -1→W(左转-，右转+):1900→R（半径）:
0
→M（一缓长）:200→N(二缓长):157.583→T(第一切线长):246.615
→P(第二切线长):403.491→L(曲线长):90°22′58.6″→F(起点方
位角):Return:IfEnd:
If
K≤53038.260(下一交点ZH点桩号):Then
2379.165→U(交点X):2429.939→V(交点Y):52792.353→D(交点桩
号):9°9′7.1″→O(线路转角): -1→W(左转-，右转+):1900→R（半
径）:
0
→M（一缓长）:200→N(二缓长):157.583→T(第一切线
长):246.615→P(第二切线长):403.491→L(曲线长):90°22′
2024年4月13日发(作者：闳哲圣)
(坐标计算主程序)
10
→
Dim
Z:“,”?C:“,”?E:E=2=>
Goto
2
“X
00
”?A:“Y
00
”？B
Lbl
1:?K:?Z:
Prog
“”:
Prog
“”:
“X=”:X-Z
sin
(Z[1]) →Q▲
“Y=”:Y+Z
cos
(Z[1]) →S▲
Pol
(Q-A,S-B):J<0=>J+360→J
“D=”:I▲
“F=”:J
▼DMS
▲
Goto
1
0
→K
Lbl
2:“XP”?Q:“YP”?S:“HP”?I:I→Z[4]
Lbl
3:
Prog
“”:
Prog
“”:(X-Q)
sin
(Z[1]+90)-(Y-S)
cos
(Z[1]+90)
≥
0.0001
:
Then
K-I→K:
Goto
3:
IfEnd
“K=”:K▲
“Z=”:(X-Q)
sin
(Z[1])-(Y-S)
cos
(Z[1]) →Z▲
Prog
“”:
Prog
“1.R”
Goto
2
I:
If Abs
(I)→
(平曲线要素 子程序)
If C=1:Then If
K≤53038.260(下一交点ZH点桩号):
Then
2379.165
→U(交点X):2429.939→V(交点Y):52792.353→D(交点桩号):9°
9′7.1″→O(线路转角): -1→W(左转-，右转+):1900→R（半径）:
0
→M（一缓长）:200→N(二缓长):157.583→T(第一切线长):246.615
→P(第二切线长):403.491→L(曲线长):90°22′58.6″→F(起点方
位角):Return:IfEnd:
If
K≤53038.260(下一交点ZH点桩号):Then
2379.165→U(交点X):2429.939→V(交点Y):52792.353→D(交点桩
号):9°9′7.1″→O(线路转角): -1→W(左转-，右转+):1900→R（半
径）:
0
→M（一缓长）:200→N(二缓长):157.583→T(第一切线
长):246.615→P(第二切线长):403.491→L(曲线长):90°22′
58.6″→F(起点方位角):Return:IfEnd:IfEnd
If C=2:Then If
K≤53038.260(下一交点ZH点桩号):
Then
2379.165
→U(交点X):2429.939→V(交点Y):52792.353→D(交点桩号):9°
9′7.1″→O(线路转角): -1→W(左转-，右转+):1900→R（半径）:
0
→M（一缓长）:200→N(二缓长):157.583→T(第一切线长):246.615
→P(第二切线长):403.491→L(曲线长):90°22′58.6″→F(起点方
位角):Return:IfEnd:
If
K≤53038.260(下一交点ZH点桩号):Then
2379.165→U(交点X):2429.939→V(交点Y):52792.353→D(交点桩
号):9°9′7.1″→O(线路转角): -1→W(左转-，右转+):1900→R（半
径）:
0
→M（一缓长）:200→N(二缓长):157.583→T(第一切线
长):246.615→P(第二切线长):403.491→L(曲线长):90°22′