【2019年整理】隧道三心圆超欠挖程序

卡西欧计算器5800

隧道超欠挖计算程序

正算主程序(ZS):

Lb1 0 : ?S: ?Z : Prog PM-SJ ” ： Abs(S-O) W: Prog "SUB1": "XS=": X J "YS=": Y J F-90 T F:S T K:Prog SQX” ：H=” ：H J Goto 0

反算主程序(FS)

Lb1 0: ?S : ?X : ? Y: Prog PM-SJ ” ： Xt I: Yt J : Prog "SUB2": "S=": O+Wf J "Z=": ZJ

Sr K:Prog SQX ”：H= ”： H J Goto 0

隧道3心圆放样主程序（CQW）

Lb1 1 : Fix3:7.315 Y : 6.19*: Hl ”？F:?Z:F-H 十：Abs(5.72- Z)F

If F *.319:Then v(Z2+(F-0.715) 2 )-R顶：IfEnd:

If F M.577 AND F v 6.319 Then v((Z-0.723) 2+(F-1.577) 2)-P —W :IfEnd:

IU1.577: Then Z-(P+0.723)预：IfEnd:

W= ”: W J

Goto1

R----第一个圆圆心

P----第二个圆圆心

F----实测高程

H——路面纵断设计高程

Z—由反算主程序反算得到边距(不需修改)

程序中右线输入Abs(5.72- Z) 左线输入Abs(5.72+ Z) -Z CQW----计算结果(+超，-欠)

Lb1 1 : Fix3:6.625 Y : 5.5*: Hl ”？F:?Z:F-H 十：Abs(5.72- Z)M

If F 冬.79:Then v(Z2+(F-0.715) 2)-R顶：IfEnd:

If F v 5.79 Then v(Z-0.723) 2+(F-1.577) 2)-P~W :IfEnd:

W= ”: WJ

Goto1

R----第一个圆圆心

P----第二个圆圆心

F----实测高程

H——路面纵断设计高程

Z—由反算主程序反算得到边距(不需修改)

程序中右线输入Abs(5.72- Z) 左线输入Abs(5.72+ Z) -Z

CQW----计算结果(+超，-欠)

正算子程序(SUB1)

1 甲 t C: (P-R) *2HPR) t D: 180+" E : 0.1739274226 t A: 0.3260725774 t B: 0.069431844

2 t K: 0.3300094782 t L : 1-L T F : 1-KT M :

U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos( G+Q EFW(C+FWD))+Acos(G+QEMW(C+MWD))) X:

V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G

+QEFW(C+FWD))+Asin(G+QEMW(C+MWD))) Y: G+QEW(C+WD)+90 r F: X+ZcosF X: Y+ZsinF Y

反算子程序(SUB2)

G-90 T: Abs((Y-V)cosT-(X-U)sin (T) ) t W: 0t Z: Lbl 0 : Prog "SUB1" :