卡西欧计算器隧道正反算隧道超欠挖计算程序

隧道程序卡西欧计算器5800隧道正反算、隧道超欠挖计算程序在隧道中的应用。概述：本图采用蓝星2.3版本程序隧道断面程序由三个子程序构成1.1-SDZS 隧道正算，具有三维坐标功能。2.1-SDFS隧道反算。3.1-CQW隧道超欠挖检测程序。其余均为子程序，本程序还有许多需要改进的地方，欢迎大家提供宝贵的意见。有兴趣的可以把三个程序汇总。本程序为三维坐标全能程序，正在调试阶段，期待和大家一起提高，一起进步。隧道超欠挖计算程序1.正算主程序1-SDZSLb10：“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◢Goto02.反算主程序1-SDFSLb10:“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:Lb11：Prog“SDFS”:“HC”?F：“Z”?Z:IfF＜H-0.729:Then√(Z2+(10.6+H-F)2)-12→W:ElesIfF≥H-0.729ANDF≤H+0.131:ThenAbs(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◢Goto14.正算子程序(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→Y5.反算子程序(SUB2)G-90→T：Abs((Y-V)cosT-(X-U)sin（T）)→W：0→Z：Lbl0：Prog"SUB1"：T+QEW(C+WD)→L：(J-Y)cosL-(I-X)sinL→Z：ifAbsZ<1E-6：thenGoto1：ElssW+Z

→W：Goto0：IfEndLbl1：0→Z：Prog"SUB1"：(J-Y)÷sinF→Z6.子程序（平面线形数据库）PM-SJIfS≥98509.97（线元起点里程）Then2963.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（线元左右偏标志：左负右正）：IfEndIfS≥98544.97（线元起点里程）Then2931.426→U（线元起点X坐标）：2757.04→V（线元起点Y坐标）：98544.97→O（线元起点里程）：206°19′57.88″→G（线元起点方位角）：27.891→H（线元长度）：164.4→P（线元起点曲率半径）：164.4→R（线元终点曲率半径）：1→Q（线元左右偏标志：左负右正）：IfEndIfS≥98572.86（线元起点里程）Then2907.597→U（线元起点X坐标）：2742.613→V（线元起点Y坐标）：98572.86→O（线元起点里程）：216°3′10.13″→G（线元起点方位角）：35→H（线元长度）：164.4→P（线元起点曲率半径）：10^(45)→R（线元终点曲率半径）：1→Q（线元左右偏标志：左负右正）：IfEnd子程序（竖曲线计算公式）SQX101.43→Z[1](变坡点高程):98792→B(变坡点桩号):720→R(半径):43.092→T(切线长):-.0512→J（后纵坡）:0.0676→I（前纵坡）:K:B-K→C:1→U:I>J＝＞-1→UIfK<B-Tthen0→A:I→P:Goto1:IfEnd:IfK<Bthen1→A:I→P:Goto1:IfEnd:IfK<B+Tthen1→A:J→P:Goto1:IfEnd:IfK>Bthen0→A:J→P:Goto1:IfEndLbI1:Z[1]-CP+AU(T-Abs(C))2÷2÷R→H:Return平曲线要素表JD桩号JD-XJD-Y转角RLSTLE方位角ZHHYYHHZ98559.3352917.46672753.211921.55066164.43549.38897.8913.37200.1355398509.99798544.99798572.88698607.88698770.5552760.22282610.8997-28.513382003569.025135.74226.779222.0855798701.55398736.55398802.22798837.227角度采用十进制小数模式，请采用普通模式版图观看才能正常显示。转角设计值为21°55′05.87″.方位角200°13′53.03″