隧道三心圆超欠挖程序修改后程序.docVIP

卡西欧计算器5800 隧道超欠挖计算程序 正算主程序(ZS)： Lb1 0：?S：?Z：Prog “PM-SJ”： Abs(S-O) → W：Prog SUB1： XS=：X◢YS=：Y◢F-90→F:S→ K:Prog“SQX-SJ”：“H=”：H◢Goto 0 反算主程序(FS) Lb1 0: ?S：?X：？Y：Prog“PM-SJ”： X→ I： Y→??J：Prog SUB2： S=：O+W→S◢Z=：Z◢ S→ K:Prog“SQX-SJ” ：“H=”：H◢Goto 0 隧道3心圆放样主程序（CQW） Lb1 1：Fix4: “H1”?F:?Z:F-H→F: “R”?R：R+2.5→P: Abs(5.335+Z)→Z If F≥1.6:Then √(Z2+(F-1.6)2 )-R→W: IfEnd: If F≥-0.431 And F ＜1.6 :Then √((Z+2.5)2+(F-1.6) 2)-P→W :IfEnd: If F≥-1.431 And F ＜-0.431 :Then √((Z-4.242)2+(F+0.026) 2)-P→W :IfEnd: “W=”: W◢ Goto1 R----第一个圆圆心 P----第二个圆圆心 F----实测高程 H----路面纵断设计高程 Z----由反算主程序反算得到边距（不需修改） 程序中右线输入Abs(5.72-Z) →Z，左线输入Abs(5.72+Z) →Z CQW----计算结果（+超，-欠） 正算子程序(SUB1) 1÷P→ C： (P-R)÷(2HPR) → D： 180÷π→ E： 0.1739274226→??A： 0.3260725774→ B： 0.0694318442→ K： 0.3300094782→ L： 1-L→ F：1-K→ M： U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(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→ F： X+ZcosF→ X： Y+ZsinF→ Y 反算子程序(SUB2) G-90→T： Abs((Y-V)cosT-(X-U)sin（T）) → W： 0→ Z：Lbl 0：Prog SUB1： T+QEW(C+WD) →L： (J-Y)cosL-(I-X)sinL → Z：ifAbsZ1E-6：thenGoto1：ElseW+Z??→ W：Goto 0：IfEnd Lbl 1： 0→ Z：Prog SUB1： (J-Y)÷sinF→ Z 子程序（平面线形数据库）PM-SJ ifS ≥8827.603（线元起点里程）:Then 4206957.206→U（线元起点X坐标）：501300.8744→V（线元起点Y坐标）：8827.603→O（线元起点里程）：172049’54.49”→G（线元起点方位角）：1565.538 →H（线元长度）：2800→P（线元起点曲率半径）：2800→R（线元终点曲率半径）：1 →Q（线元左右偏标志：左负右正）：IfEnd ifS ≥……（线元起点里程）:Then ……→U（线元起点X坐标）：……→V（线元起点Y坐标）：……→O（线元起点里程）：……→G（线元起点方位角）：…… →H（线元长度）：1×1045→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：0 →Q（线元左右偏标志：左负右正）：IfEnd 子程序（竖曲线计算公式）SQX LbI 0:1078.934→Z[1]:8000→B:50000→R:125→T:0.025→I:0.03→J:？K:B-K→C : 1→F:IJ＝＞-1→F 1111.434→Z[2]:9300→B:50000→R:177.813→T:0.025→I:0.01789→J:？K:B-K→C : 1→F:IJ＝＞-1→F If KB-T :then 0→A: I →P:Goto 1: IfEnd: If KB then 1→A: I→P: Goto 1: IfEnd: If KB+T :then 1→A: J→P: Goto 1 :IfEnd: If KB :then 0→A: J→P: Goto 1: IfEnd LbI 1: Z[1]-CP+AF(T-Abs (C))2÷2÷R→H: “H”:H◢ Z[2]-CP+AF(T-Abs (C))2÷2÷R→H: “H”:H◢ Prog “CQW”