隧道三维全能程序初级版1.0.doc

隧道程序卡西欧计算器5800隧道正反算、隧道超欠挖计算程序在隧道中的应用，速度有点慢概述：本图采用蓝星2.3版本程序隧道断面程序由三个子程序构成1.1-SDZS隧道正算，具有三维坐标功能。2.1-SDFS 隧道反算。3.1-CQW 隧道超欠挖检测程序。其余均为子程序，本程序还有许多需要改进的地方，欢迎大家提供宝贵的意见。有兴趣的可以把三个程序汇总。本程序为三维坐标全能程序，正在调试阶段，期待和大家一起提高，一起进步。隧道超欠挖计算程序1.正算主程序1-SDZSLb1 0： “KP”?S（待求桩号）：“BIANZHU”?Z（边距）：Prog “PM-SJ”： Abs(S-O) W：Prog SUB1： X：Y: F-90F:S K:Prog“SQX”：“XS=”（X正算坐标）:Locate6,4,X: “YS=”(Y正算坐标):Locate6,4, Y: “BC=”(方位角):Locate6,4, F:“H=”（高程）:Locate6,4, HGoto 02.反算主程序1-SDFSLb1 0: “KP”?S：“CZX”?X：CZY”？Y（测站坐标）：Prog“PM-SJ”： X I： YJ：Prog SUB2： O+WS：S=：Locate6,4,S: Z=：Locate6,4,Z: S K:Prog“SQX” ：F-90F: “BC=”:Locate6,4, F: “H=”：H3.隧道3心圆检测程序1-CQW程序说明：为了精简，不含数据库，直接把断面的相关数据插入程序内，一些相关的数据，请仔细去推敲它的来历1. 0.729为设计高程到仰拱临界面的高差2. 10.6为设计标高到O3的高差3. 12为O3的半径4. 0.131为设计高程到O2临界点的高差5. 3.498为O2临界宽度60.59为设计高程到O2的高差7. 1.8为设计高程到O1的高差8. 1.4为O2半径9. 5.1为O1半径Fix3:Lb1 1：Prog“SDFS” :“HC”?F： “Z”? Z:If FH-0.729:Then (Z2+(10.6+H-F)2 )-12W:Eles If FH-0.729 AND F H+0.131:Then Abs(Z)-3.498Z:(Z2+(H+0.59-F)2-1.4W :Eles (F-H-1.8)2+Z2)-5.1W: IfEnd: IfEnd“CQHD”?（衬砌厚度）A:W=”: W-AWGoto14.正算子程序(SUB1)1P C： (P-R)(2HPR) D： 180 E： 0.1739274226A： 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-90T： 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：ifAbsZJ-1UIf KB-T then 0A: I P:Goto 1: IfEnd: If KB then 1A: IP: Goto 1: IfEnd: If KB then 0A: JP: Goto 1: IfEndLbI 1: Z1-CP+AU(T-Abs (C)22RH: Return平曲线要素表JD桩号JD-XJD-Y转角RLSTLE方位角ZHHYYHHZ98559.352917.4672753.21921.5506164.43549.38897.8913.37200.135398509.9798544.9798572.8698607.8698770.552760.2282610.897-28.51382003569.025135.7426.779222.085798701.5398736.5398802.2798837.27角度采用十进制小数模式，请采用普通模式版图观看才能正常显示。转角设计值为215505.87.方位角2001353.03 -285137.56 . 方位角2220857.32纵曲线要素:位于R=720,T=43.092,E=1.29,前纵坡6.76%，后纵坡-5.21%的曲线上，切记前纵坡为小桩号坡，后纵坡为大桩号坡。结语：最后再次谢谢蓝星的2.3断面图,平纵曲线要素采用广东省道S350线资料。欢迎大家多多吐吐口水。蓝泪幽灵出品。本程序