卡西歐計(jì)算器隧道正反算隧道超欠挖計(jì)算程序

隧道程序卡西歐計(jì)算器5800隧道正反算、隧道超欠挖計(jì)算程序在隧道中的應(yīng)用。概述：本圖采用藍(lán)星2.3版本程序隧道斷面程序由三個(gè)子程序構(gòu)成1.1-SDZS 隧道正算，具有三維坐標(biāo)功能。2.1-SDFS隧道反算。3.1-CQW隧道超欠挖檢測(cè)程序。其余均為子程序，本程序還有許多需要改進(jìn)的地方，歡迎大家提供寶貴的意見(jiàn)。有興趣的可以把三個(gè)程序匯總。本程序?yàn)槿S坐標(biāo)全能程序，正在調(diào)試階段，期待和大家一起提高，一起進(jìn)步。隧道超欠挖計(jì)算程序1.正算主程序1-SDZSLb10：“KP”?S（待求樁號(hào)）：“BIANZHU”?Z（邊距）：Prog“PM-SJ”：Abs(S-O)→W：Prog"SUB1"：X：Y:F-90→F:S→K:Prog“SQX”：“XS=”（X正算坐標(biāo)）:Locate6,4,X:“YS=”(Y正算坐標(biāo)):Locate6,4,Y:“BC=”(方位角):Locate6,4,F°:“H=”（高程）:Locate6,4,H◢Goto02.反算主程序1-SDFSLb10:“KP”?S：“CZX”?X：CZY”？Y（測(cè)站坐標(biāo)）：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心圓檢測(cè)程序1-CQW程序說(shuō)明：為了精簡(jiǎn)，不含數(shù)據(jù)庫(kù)，直接把斷面的相關(guān)數(shù)據(jù)插入程序內(nèi)，一些相關(guān)的數(shù)據(jù)，請(qǐng)仔細(xì)去推敲它的來(lái)歷1.0.729為設(shè)計(jì)高程到仰拱臨界面的高差2.10.6為設(shè)計(jì)標(biāo)高到O3的高差3.12為O3的半徑4.0.131為設(shè)計(jì)高程到O2臨界點(diǎn)的高差5.3.498為O2臨界寬度6．0.59為設(shè)計(jì)高程到O2的高差7.1.8為設(shè)計(jì)高程到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.子程序（平面線形數(shù)據(jù)庫(kù)）PM-SJIfS≥98509.97（線元起點(diǎn)里程）Then2963.804→U（線元起點(diǎn)X坐標(biāo)）：2770.297→V（線元起點(diǎn)Y坐標(biāo)）：98509.97→O（線元起點(diǎn)里程）：200°13′51.45″→G（線元起點(diǎn)方位角）：35→H（線元長(zhǎng)度）：10^(45)→P（線元起點(diǎn)曲率半徑）：164.4→R（線元終點(diǎn)曲率半徑）：1→Q（線元左右偏標(biāo)志：左負(fù)右正）：IfEndIfS≥98544.97（線元起點(diǎn)里程）Then2931.426→U（線元起點(diǎn)X坐標(biāo)）：2757.04→V（線元起點(diǎn)Y坐標(biāo)）：98544.97→O（線元起點(diǎn)里程）：206°19′57.88″→G（線元起點(diǎn)方位角）：27.891→H（線元長(zhǎng)度）：164.4→P（線元起點(diǎn)曲率半徑）：164.4→R（線元終點(diǎn)曲率半徑）：1→Q（線元左右偏標(biāo)志：左負(fù)右正）：IfEndIfS≥98572.86（線元起點(diǎn)里程）Then2907.597→U（線元起點(diǎn)X坐標(biāo)）：2742.613→V（線元起點(diǎn)Y坐標(biāo)）：98572.86→O（線元起點(diǎn)里程）：216°3′10.13″→G（線元起點(diǎn)方位角）：35→H（線元長(zhǎng)度）：164.4→P（線元起點(diǎn)曲率半徑）：10^(45)→R（線元終點(diǎn)曲率半徑）：1→Q（線元左右偏標(biāo)志：左負(fù)右正）：IfEnd子程序（豎曲線計(jì)算公式）SQX101.43→Z[1](變坡點(diǎn)高程):98792→B(變坡點(diǎn)樁號(hào)):720→R(半徑):43.092→T(切線長(zhǎng)):-.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樁號(hào)JD-XJD-Y轉(zhuǎn)角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角度采用十進(jìn)制小數(shù)模式，請(qǐng)采用普通模式版圖觀看才能正常顯示。轉(zhuǎn)角設(shè)計(jì)值為21°55′05.87″.方位角200°13′53.03″