FX5800交点法正反算程序高程及隧道超欠挖
（注：高程要算第二遍才是正确的）
输入图中交点要素，输入桩号及中桩距离正算本标段任意点坐标，及坐标放样的方位角及距离：由输入大概桩号及实测坐标，反算准确桩号及距中桩距离。
1、主程序 1XY-KM
LbI 0:26→DimZ: No（Norm代表一个字母）
rm2:1→A: “A:X,Y=
1, KM, D=2，SD=3”?A
:A=1⇒Goto 1:A=2⇒
Goto 2: A=3⇒ Goto
3:LbI 1: ”XZ”?K：”
YZ” ?L:K→Z[4]: L→Z
[5]LbI A:Prog”
QX”:90→B:”PJ”?B:
B→Z[1]:LbI B:”LC
”?Z:Z=-1⇒Goto 0:
Z=－2⇒Goto A:Prog
”X1”:Z→Q: Prog”
G”: Prog” S1”:?D:
Prog”Z”:I+D×COS
(Z[2]+Z[1] → X:J+D
×Sin(Z[2]+Z[1] →Y
: Fix 3 : ”X= ” : Loca te 6, 4 ,X : ”Y=”:Lo cate6,4,Y:”FWJ”
:Locate 6,4,Z[2]
:”SJG=”: Locate 6
,4,Z[12] ◢
Prog”JS”: Goto B
: 回车
LbI 2:Prog”QX”:
”LC”?Z:LbI C:pro
g“X1”:”X0”?X:X=
－1⇒Goto 0:X=－2⇒G
oto 2:”Y0”?Y:Pro
g“ZX”:Fix3:”LC =”:Locate 6,4,Z:
”PJ=”:Locate 6,4
,D：Z→Q: Prog”G”: Prog”S1: Fix 3:
“SJG=”: Locate 6,
4,Z[12]◢
Goto C 回车
LbI 3:Prog”QX”: “LC”?Z: LbI D: Pro
g“X1“：“X0”?X:X=
-1⇒Goto 0:X=－2⇒G
oto 2:”Y0”?Y:Pro
g“ZX”:Fix3:”LC =”:Locate 6,4,Z:
”PJ=”:Locate 6,4
,D：Z→Q: Prog”G”: Prog”S1: Fix 3: “SJG=”: Locate 6 , 4,Z[12]: Prog “SD
“◢
Goto D 回车
2、交点法正算程序名:Z H2÷R÷24-H∧(4)÷26
88÷R∧(3)→A:H÷2-H
∧(3)÷240÷R2→B:（（
H2-N2）÷24÷R÷Sin( Abs(P))-((H∧(4)-
N∧(4))÷2688÷R∧(3
))÷Sin(Abs(P→E:(
R+A)tan(Abs(P)÷2
)+B-E→T:P÷Abs(P→
W:0→M:H→C: (R+N2÷
R÷24-N∧(4)÷2688÷
R∧(3))tan(Abs(P)
÷2)+N÷2-N∧(3)÷24
0÷R2+E→Z[6]: O -T+ ΠR×Abs(P)÷180+H÷
2-N÷2→Z[7]:If Z≤
O -T:Then Z-O→S:G →Z[2]:Goto 1: IfE
nd: If Z≤O -T+H:Th
en Z- O +T→S:Prog
“HX”:G+WK→Z[2]:A
-T→A:G→E:Goto 2:
IfEnd:If Z≤Z[7]:
Then 180(Z- O +T-0
.5H)÷R÷Л→S : A+R(1
-Cos(S))→B:H÷2-H
∧(3) ÷240÷R2+Rsin
(S)→A:R→M:G+WS→Z
[2]: A-T→A:G→E :Go
to 2: IfEnd: 回车
If Z≤Z[7]+N:Then
Z[7]+N-Z→S:Z[6]
→T :N→H:Prog “HX”
:G+P→E:E-WK→Z[2]
:T-A→A:C→H:Goto
2:IfEnd: 回车
Z-Z[7]-N+Z[6]→S:
G+P→Z[2]: LbI 1:U +Scos(Z[2])→I:V+
Ssin(Z[2]→J: Retu
rn:LbI 2:U+Acos(
E)-WBsin(E→I:V+A Sin(E)+WBcos(E→J
3、交点法缓和段子程序（HX）
S-S∧(5)÷40÷R2÷H2
+S∧(9)÷3456÷R∧(4
) ÷H∧(4→A:S∧(3) ÷6
÷R÷H-S∧(7)÷336÷R
∧(3)÷H∧(3)+S∧(11
)÷42240÷R∧(5) ÷H∧
(5→B:90S2÷Π÷R÷H→
K:RH÷S→M
4、交点法反算子程序名(ZX)
0→D:Do:Z+D→Z:Pro
g“Z”:Pol(X-I,Y-
J+.000000001:J-Z
[2]→J:Isin(J→S:I
cos(J→D: If M≠0:T
hen Pol(M-WS,D:J
MΠ÷180→D:IfEnd: L
pWhile Abs(D)>0.
001:Z+D→Z:S→D
5、线路选择子程序（线路选择0时，则输入曲线参数(QX)
程序名：QX
1→A:”QX:？=0，X1=1
,X2=2”?A:A→Z[3]:
If A=0:Then ”JDK M”?O:”XJ”?U:”YJ”
?V:”FW”?G:”LS1”?
H:“LS2”？N：“JDZJ”
？P:?R:IfEnd
6、坐标计算参数矩阵调出子程序(F)
程序名：F
Mat F[1,1]→O: Mat
