卡西欧计算器5800隧道程序.docVIP

隧道程序 卡西欧计算器5800隧道正反算、隧道超欠挖计算程序在隧道中的应用，速度有点慢 概述：本图采用蓝星2.3版本程序隧道断面 程序由三个子程序构成 1.1-SDZS 隧道正算，具有三维坐标功能。 2.1-SDFS 隧道反算。 3.1-CQW 隧道超欠挖检测程序。 其余均为子程序，本程序还有许多需要改进的地方，欢迎大家提供宝贵的意见。有兴趣的可以把三个程序汇总。 本程序为三维坐标全能程序，正在调试阶段，期待和大家一起提高，一起进步。 隧道超欠挖计算程序 1.正算主程序1-SDZS Lb1 0： “KP”?S（待求桩号）：“BIANZHU”?Z（边距）：Prog “PM-SJ”： Abs(S-O) → W：Prog SUB1： X：Y: F-90→F:S→ K:Prog“SQX”：“XS=”（X正算坐标）:Locate6,4,X: “YS=”(Y正算坐标):Locate6,4, Y: “BC=”(方位角):Locate6,4, F°:“H=”（高程）:Locate6,4, H◢Goto 0 2.反算主程序1-SDFS Lb1 0: “KP”?S：“CZX”?X：CZY”？Y（测站坐标）：Prog“PM-SJ”： X→ I： Y→??J：Prog SUB2： O+W→S：S=：Locate6,4,S: Z=：Locate6,4,Z: S→ K:Prog“SQX” ：F-90→F: “BC=”:Locate6,4, F°: “H=”：H◢ 3.隧道3心圆检测程序1-CQW 程序说明：为了精简，不含数据库，直接把断面的相关数据插入程序内，一些相关的数据，请仔细去推敲它的来历 1. 0.729为设计高程到仰拱临界面的高差 2. 10.6为设计标高到O3的高差 3. 12为O3的半径 4. 0.131为设计高程到O2临界点的高差 5. 3.498为O2临界宽度 6．0.59为设计高程到O2的高差 7. 1.8为设计高程到O1的高差 8. 1.4为O2半径 9. 5.1为O1半径 Fix3:Lb1 1：Prog“SDFS” :“HC”?F： “Z”? Z: If F＜H-0.729:Then √(Z2+(10.6+H-F)2 )-12→W: Eles If F≥H-0.729 AND F ≤H+0.131:Then Abs(Z)-3.498→Z: √((Z2+(H+0.59-F)2-1.4→W : Eles √((F-H-1.8)2+Z2)-5.1→W: IfEnd: IfEnd “CQHD”?（衬砌厚度）A:W=”: W-A→W◢ Goto1 4.正算子程序(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 5.反算子程序(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：ElssW+Z??→ W：Goto 0：IfEnd Lbl 1： 0→ Z：Prog SUB1： (J-Y)÷sinF→ Z 6.子程序（平面线形数据库）PM-SJ If S ≥98509.97（线元起点里程）Then 2963.804→U（线元起点X坐标）：2770.297→V（线元起点Y坐标）：98509.97→O（线元起点里程）：200°13′51.45″→G（线元起点方位角）：35 →H（线元长度）：10^(45)→P（线元起点曲率半径）：164.4→R（线元终点曲率半径）：1 →Q（线元左右偏标志：左负右正）：IfEnd If S ≥98544.97（线元起点里程）Then2931.426→U（线元起点X坐标）：2757.04→V（线元起点Y坐标）：98544.97→O（线元起点里程）：206°19′57.88″→G（线元起点方位角）：27.891 →H（线元长度）：164.4→P（线元起点曲率半径）：16