5800交点法正反算放样程序 (可用)

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