Fx5800计算器公路测量程序设计211版.doc

《Fx5800计算器公路测量程序设计211版.doc》由会员分享，可在线阅读，更多相关《Fx5800计算器公路测量程序设计211版.doc（20页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、【精品文档】如有侵权，请联系网站删除，仅供学习与交流Fx5800计算器公路测量程序设计211版.精品文档.FX5800计算器公路测量常用程序集2.1 版一、程序功能主要功能：采用线元法与交点法相结合计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。新版本特点：1、建主程序合并原所有计算类型，在主程序中可选择操作类型。隧道欠超挖增加变量衬砌厚度，因有设计衬砌厚度根据石岩来定的。增加锥坡放样计算。二、源程序1.总主程序（1、坐标计算放样程序2、坐标反算程序；

2、3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序）运行后输入19数子则选择1至9的程序，返回时，在桩号输入-1,返回选择选择计算类型。输入-2,返回选择线路。坐标计算中输入-3,则显示本段曲线要素。程序名：0ZCXLbI 0: 17DimZ：Norm 2:1A：A:XY=1， ZD=2 ，GC=3， GD=4， BP=5， FM=6， ZP=7， JS=8， SD=9?A:A=1=Goto 1:A=2=Goto 2:A=3=Goto 3:A=4=Goto 4: A=5=G

3、oto 5:A=6=Goto 6:A=7=Goto 7:A=8=Goto 8: A=9=Goto 9LbI 1:Prog DX:LbI A:ProgQX:90B: PJ1?B:BC: PJ2?C:BZ1:CZ8:LbI B:1F: KM?Z:Z= -1=Goto 0:Z=-2=Goto A:Z=-3=Goto X:ProgKM:?D:PorgTHB:OL: L0?L:Z2+Z1-Z8 E:X+L cos(E) X:Y+Lsin(E) Y:ProgXY:ProgJS:Goto BLbI 2:2F:90Z1:ProgQX:LbI C: KM?Z:Z=-1=Goto 0:Z=-2=Goto 2:Z=

4、-3=Goto X:ProgKM: XO?X: Y0?Y:ProgTHB:PorgZD:Goto C:LbI 3:ProgQX:0B: H-B?B:BZ9:LbI D: KM?Z:Z=-1=Goto 0:Z=-2=Goto 3:?D:PorgH:Fix 3: H=:Lcoate 6,4,H-Z9 ： I=:Locate 6,4,I： Goto DLbI 4:ProgQX:LbI E: KM?Z:Z=-1=Goto 0:Z=-2=Goto 4:?D:ProgGD:Fix 3: SJGD=:Locate7,4,L： Goto ELbI 5:ProgQX:0.5B:TH-GD?B:BZ17:LbI

5、F:2F:90Z1:KM?Z:Z=-1 =Goto 0:Z=-2 =Goto 5:ProgKM: X0?X: Y0?Y:0M:”M0”?M: MZ4:Prog3FBXFix 2: PD:Abs（P）-SO: L0=:Locate 6,4,O：ProgZD: Z4T: TW=:Lcoate 6,4,T Goto F:LbI 6:ProgDX:LbI G:ProgQX:LbI H:1F:90Z1: KM?Z:Z=-1=Goto 0:Z=-2=Goto G:ProgKM:?D:ProgTHB:ProgXY:ProgJS:ProgH:0M: M0?M:Fix 2:H-MT: TW=:Locate 6,

6、4,T Goto H:LbI 7:ProgDX:LbI I:ProgQX:0D: LD:Z-,Y+? D:Abs(D) R: LR?R: Z0?Z: DZ6:RZ7:ZZ8:LbI J:0Y: L0:SZ+,DZ-?Y:Y=-1=Goto 0:Y=-2=Goto I:ProgZP:Goto J:LbI 8:ProgDX:LbI K:?X:X=-1=Goto 0:X=-2=Goto 8:?Y:ProgJS:Goto K:LbI 9:PorgDX:LbI L:Prog”QX”:LbI M:2F:90Z1: KM?Z:Z=-1=Goto 0:Z=-2=Goto L:Z=-3=Goto X: Prog

7、SD1: 0.5A:“CQHD?A:“X0?X:Y0?Y:0M=M0?M:MZ8:AZ15:Prog5SD： Goto M:LbI X:Mat F Goto 02、次程序:路基开挖边线及填方坡脚线放样程序（输入填方放宽值、大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：3FBXProg”THB”:DP:Prog”GD”:If D0:Then 0.75-LD:Goto H:Else L-0.75D:Goto H:IfEndLbI H:Prog“H”:H-0.03-Z4Z4: Prog “W1”:If Z4A:Then Goto 1:Else If GZ8:Then

8、Goto 2:Else Goto 3:IfEnd:LbI 1:L+Z10+Z11+Z12+(G-A)Z7+Z9Z6+Z8Z5 S:Goto Z:LbI 2:L+Z10+Z11+(G-Z8)Z6+Z8Z5 S:Goto Z:LbI 3:L+Z10+GZ5 S:Goto Z:LbI T:L+Z17T:If GZ15:Then (T+Z16+(G-Z15)Z14+Z15Z13)S:Goto Z:Else (T+GZ13)S:Goto Z:LbI Z3.次程序3.隧道超欠挖值计算放样程序（输入隧道线路，大概桩号、输入衬砌厚度、测量三维坐标，计算准确桩号及位置、计算欠超挖值）程序名：5SDProg”KM

9、”:Prog“THB”: DZ13:0D:Prog“H”:Cos(Z10) Z4 E: H+Z5 Z5: H+Z7 Z7: E+Z5 Z10:If Z8Z10:Then Goto R:Else Goto S:IfEnd:LbI R: (Z13-Z9) 2+(Z8-Z5) 2 )- Z4-Z15 L:Goto L:LbI S: Z4-Z6 S: (S 2-(Z7-Z5) 2 ) SAbs(S)T:Abs(Z13-Z9)-TT:(T 2+(Z8-Z7) 2 )- Z6-Z15 L:Goto L:LbI L: Fix 2:” L0=”: Locate 6,4,L：Prog”ZD”:“ H0=”: L

10、ocate 6,4,Z8-H4：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：JSX：Y：Z11K：Z12L：Pol(X-K, Y-L):IF J0:Then J+360J:IFEnd:Int(J)+0.01Int(60Frac(J)+0.006Frac(60Frac(J) J: Fix 4:” FWJ=”: Locate 6,4,J：Fix 3:” S=”:Locate 6,4,I5路基宽度子程序6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)程序名： GD1S: Prog “G1”:Z-CE:(B-A)*E/S+AL:

11、6坐标计算次程序（）程序名：THBIf Q=2:Then Goto J: Else 1P：(P-R)(2HPR) ：180E：If F=1:Then Abs(0) W：Prog ：oto 2:Else I：J：Prog ：Z：oto 2: IfEnd:LbI J: If F=1:Then Prog Z：oto 1:Else Prog ZX：oto 2: IfEnd:LbI 1:I+DCOS(Z2+Z1) X: J+DSin(Z2+Z1) Y: LbI 2 7. 线元法正算子程序()程序名：A0.1184634425A： 0.2393143352B：0.2844444444N：0.0469100

12、77K： 0.2307653449L：0.5M： U+W(Acos(G+QEKW(C+KW)+Bcos(G+QELW(C+LW)+Ncos(G+QEMW(C+MW)+Bcos(G+QE(1-L)W(C+(1-L)WS)+Acos(G+QE(1-K)W(C+(1-K)WS) X：V+W(Asin(G+QEKW(C+KW)+Bsin(G+QELW(C+LW)+Nsin(G+QEMW(C+MWS)+Bsin(G+QE(1-L)W(C+(1-L)WS)+Asin(G+QE(1-K)W(C+(1-K)W) Y：G+QEW(C+W)：X+cos（+ Z1）： Y+sin（+ Z1）8. 线元法反算子程序(

13、)程序名：BG-90： Abs(Y-V)cos(T)-(X-U)sin(T) ： 0：Lbl 0：Prog ： T+QEW(C+W) ： (J-Y)cos(L)-(I-X)sin(L)：IF Abs()0.01:Then Goto 1：Else W+W:Goto 0: IfEnd:Lbl 1:0D：Prog ：(J-Y)sin(+90) D9. 交点法正算子程序(Z)程序名：ZH2R24-H(4) 2688R(3)A:H2-H(3) 240R2B:(R+A)tan(Abs(P) 2)+BT:O-TC:C+HL:L+RAbs(P) 180N:N-HE:PAbs(P) W:0M:If ZL:The

14、n 180(Z-L+0.5H) RS :H2-H(3) 240R2+Rsin(S)A:H2R24-H(4) 2688R(3)+R(1-Cos(S)B:RM:G+WSZ2:Goto 4: IfEnd:Z-CS:Prog “HX”:G+WKZ2:LbI 4:U+(A-T)cos(G)-WBsin(G)I:V+(A-T)Sin(G)+WBcos(G) J: Goto 3: LbI 2:U+Scos(Z2)I:V+Ssin(Z2) J: LbI 310. 交点法缓和段转化子程序(HX)程序名：HXS-S(5) 40R2H2+S(9) 3456R(4) H(4)A:S(3) 6RH-S(7) 336R(

15、3) H(3)+S(11) 42240R(5) H(5)B:90S2RHK:RHSM11. 交点法反算子程序(ZX)程序名：ZXZ:0D:LbI 0:Prog “Z”:Pol(X-I,Y-J):J-Z2 J:Isin(J) S:Icos(J) I:If Abs(I)0.1:Then Z+IZ:SD:Goto 2:Else Goto 1: LbI 1:If M=0:Then Z+IZ:Goto 0:Eles Pol(M-WS,I):(JM)/180I:Z+IZ:Goto 0:IfEndLbI 212高程计算子程序（H）程序名：HProg “S1”:C-TF:Z-FS:C+TE:G-TIQ:If

16、T=O:Then Q+SIH:Goto 0:Else If ZF:Then Q+SIH:Goto 0:Else If ZE:Then Q+SI+S22RH:Goto 0:LbI 0:H:If D=0:Then Goto I:Else Prog “I”:H+VH:Goto I:LbI I 13.高程超高计算程序（I）程序名：IIf Z3=1:Then Prog “I1”:Goto 1:Else Prog “I2”:Goto1: IfEnd: LbI 1: If W=1:Then:Goto Z:Else:Goto X: IfEnd LbI Z:If S=0:Then Abs(D)MV:Goto 2

17、:Else Abs(D)(N-M)(Z-C)S+M)V:Goto 2:IfEnd:LbI X:If S=0:Then Abs(D)MV:Goto 2:Else Abs(D)(3(Z-C)S)2-2(Z-C)S)(3)(N-M)+M)V:Goto 2:IfEnd:LbI 2:Abs(D)E:VEI:I(E-K)V14导线点子程序（DX）程序名：DXZ11 K:Z12 L:“XZ”?K:”YZ”?L:KZ11:LZ1215线路选择子程序(线路选择输0时。则输曲线参数（QX）程序名：QX1A:”QX:X1=1,X2=2”?A:AZ3:If A=0:Then Goto 1:Else Goto 2: I

18、fEnd:LbI 1:”JDO”?O:”XO”?U:”YO”?V:”FW”?G:”LS”?H:?P:?R:”J=2,X=(0,1,-1)”?Q:Goto 2:LbI 216线路中线元段判别子程序（KM）程序名：KMIf Z3=0:Then Goto 0:Else If Z3=1:Then Prog “X1”:Goto 0:Else Prog “X2”:Goto 0: IfEnd: LbI 017坐标计算参数转化子程序（F）程序名：FMat F1,1O: Mat F1,2U: Mat F1,3V: Mat F1,4G: Mat F1,5H: Mat F1,6P: Mat F1,7R: Mat F

19、1,8Q18.桥梁锥坡放样子程序（ZP）程序名：ZP(Z62（1-Y2/Z72）) X：Z8 Z:Prog”GD”:If D0:Then L+XD:Else L-XD:IfEnd:Z8+YZ:D:1F:90Z1:Prog”KM”:Prog”THB”:Prog”XY”:Prog”JS”19显示子程序（XY）程序名：XYix 3: =：Locate 6,4,： ：Locate 6,4,：程序名：ZDFix 3:：Locate 6,4,：Locate 6,4,：20数据子程序(附后示例)-1程序名：X1（线路1坐标计算要素程序）If Z26615.555:Then 25900,11587.421,1

20、847.983, 101。0923.1”,715.555,11045, 11045, 0Mat F:Goto 0: IfEnd:If Z26915.555:Then 26615.555,11448.97,2550.016,101。0923.1”,300,11045,1800,1Mat F:Goto 0:IfEnd:LbI 0: Prog”F”-2程序名：X2（线路2坐标计算要素程序）If Z616.951:Then 316.951,11230.669,3213.086, 118。4228.42”,300,1800, 11045, 1Mat F:Goto 0: IfEnd:If Z4050:Th

21、en3089.766,9708.017,5530.185,123。2857.1”,300,-44。3938”,2200,2Mat F:Goto 0:IfEnd:LbI 0:Prog”F”程序字母说明：O-线元起点桩号(交点桩号)；U-起点X坐标（交点X）；V-起点Y坐标（交点Y）；G-线元起点桩号切线方位角（交点前一交点至现交点方位角）; 线元长度（缓和曲线长度），线元起点曲率半径（偏角：值为正负，左偏为负，右偏为正），线元终点曲率半径（圆半径）,Q线元判别(以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0;交点法取值2

22、）.说明括内为交点法子母代表意思。-1程序名：S1(线路1高程竖曲线要素子程序)If Z3=1:Then Goto 1: Else Prog “S2”:Goto 0: IfEnd: LbI 1:If Z26157.8:Then -200000R:157.8T:26000C:37.1G:0.01222I:Goto 0:IfEnd:If Z27421.915:Then 300000R:171.915T:27250C:32.65G:-0.00356I:Goto 0:IfEnd:If Z27889.029:Then 1000000R:134.029T:27755C:36.64G:0.0079I:Got

23、o 0:IfEnd:LbI 0-2程序名：S2(线路2高程竖曲线要素子程序)If Z183.007:Then 1365R:20.475T:162.532C:46.1G:0.003I:Goto 0:IfEnd:If Z321.264:Then -1200R:38.732T:282.532C:50.175G:0.033I:Goto 0:IfEnd:LbI 0程序字母说明：C-竖曲线交点桩号；G-交点桩号高程（未竖曲线调整的）；T-竖曲线切线长(标段结尾或开头没有竖曲线的输0)；R-竖曲线半径（分正负：凹曲线为正，凸曲线为负）；I竖曲线前纵坡-1程序名：I1（线路1高程超高参数子程序）1.5K:2W

24、:If D0:Then Goto L:Else Goto R:IfEnd:LbI L:If Z26615.555:Then 0S:-0.02M:Goto 0:IfEnd:If Z26735.555:Then 120S:26615.555C:-0.02M:0.02N:Goto 0:IfEnd:If Z26795.555:Then 60S:26735.555C:0.02M:0.04N:Goto 0:IfEndLbI R: If Z26735.555:Then 0S:-0.02M: Goto 0:IfEndIf Z26795.555:Then 60S:26735.555C:-0.02M:-0.04N

25、:Goto 0:IfEndIf Z27436.951:Then 0S:-0.04M: Goto 0:IfEndLbI 0 -2程序名：I2（线路2高程超高参数子程序）0.5K:1W:If D0:Then Goto L:Else Goto R:IfEnd:LbI L:If Z100:Then 0S:-0.015M:Goto 0:IfEnd:If Z110:Then 10S:100C:-0.015M:-0.02N:Goto 0:IfEnd:If Z343.665:Then 0S: -0.02M: Goto 0:IfEndLbI R: If Z100:Then 0S:-0.015M: Goto 0:

26、IfEndIf Z110:Then 10S:100C:-0.015M:-0.02N:Goto 0:IfEndIf Z375.665:Then 0S:-0.02M: Goto 0:IfEndLbI 0 字程序中字母表示说明：K中央分隔带半幅宽（中桩标高至中桩中线距离，无分隔带则为0）；W超高方式参数（W=1为一般直线方式超高，W=2为三次抛物线方式超高）;S超高渐变段距离（不是渐变段则输入0）；C-超高渐变段起点桩号（不是渐变段，无需输入）；M超高段起点横坡，N-超高渐变段终点横坡（不是渐变段，无需输入）。-1程序名：G1(线路1路基标准半幅宽度参数子程序)If Z3=1:Then Goto 1

27、:Else Prog “G2”:Goto 0: IfEndLbI 1:If D0:Then Goto L:Else Goto R:IfEnd:LbI L:If Z28110.727:Then ZC:17.25A:Goto 0:IfEnd:If Z28200.727:Then 28110.727C:17.25A:21.25B:90S:Goto 0:IfEndLbI R: Z27927.478:Then ZC:17.25A: Goto 0:IfEndIf Z28172:Then 27927.478C:17.25A:27.031B:244.522S:Goto 0:IfEndLbI 0 -2程序名：G

28、2(线路2路基标准半幅宽度参数子程序)If D0:Then Goto L:Else Goto R:IfEnd:LbI L:If Z69.998:Then ZC:28.25A:Goto 0:IfEnd:If Z82.402:Then 69.998C:28.25A:25.545B:12.404S:Goto 0:IfEndLbI R: Z69.998:Then ZC:17.45A: Goto 0:IfEndIf Z80.367:Then 69.998C:17.45A:16.787B:10.369S:Goto 0:IfEnd:LbI 0 字程序中字母表示说明：C宽度渐变段起点桩号（不是渐变段C=Z）；

29、A宽度渐变段起点宽度; B宽度渐变段终点宽度（不是渐变段，无需输入）；S-宽度渐变段距离（不是渐变段，无需输入）。-1程序名：SD1(线路1隧道参数子程序)If Z3=1:Then Goto 1: Else Prog “SD2”:Goto 0:IfEnd:LbI 1:8.75Z4:-1.1Z5:4.77Z6:1.47Z7:-0.25Z9: 51。2857.1”Z10:LbI 0-2程序名：SD2(线路2隧道参数子程序)5.43Z4:1.634Z5:7.93Z6:1.634Z7: 0Z9: 90Z10字程序中字母表示说明：Z4隧道上拱半径；Z5隧道上拱圆心至设计面高度；Z6隧道中腰部半径；Z7中

30、腰圆心至设计面高度；Z9设计隧道中线与设计路基中线偏移值，左为负数，右为正数；Z10上部拱跨隧道半幅角度；-1程序名：W1(线路1路基填挖边坡参数子程序)If Z3=1:Then Goto 1: Else Prog “W2”:Goto 0:IfEnd:LbI 1:0.75Z5:1Z6:1.25Z7:10Z8:10Z9:2.6Z10:2Z11:2Z12:1.5Z13:1.75Z14:8Z15:2Z16LbI:0-2程序名：W2(线路2路基填挖边坡参数子程序)1Z5:1Z6:1.25Z7:10Z8:10Z9:2.6Z10:1.5Z11:1.5Z12:1.5Z13:1.75Z14:8Z15:2Z16

31、字程序中字母表示说明：Z5挖方第一阶边坡边率；Z6挖方第二阶边坡边率；Z7挖方第三阶边坡边率；Z8挖方第一阶高度；Z9挖方第二阶高度；Z10挖方路基碎落台及水沟宽度；Z11挖方第二台阶平台宽度；Z12挖方第三台阶平台宽度；Z13填方第一阶边坡边率；Z14填方第二阶边坡边率; Z15填方第一阶高度；Z16-填方第二台阶平台宽度。（注：本程序只做出挖方三个台阶，填方二个台阶，如需增加，先需在程序THB和4FBZ程序中增加变量。再如一标段有坡率及坡高不一样时，可以照其它参数程序一样，用判别语句。）三、使用说明1、规定 (1) “KM”为所求点桩号，反算时为输入大概桩号(2) 当所求点位于中线时，=0

32、；当位于中线左铡时，取负值；当位于中线中线右侧时，取正值。(3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。（在用交点法时，P子母代表偏角）(4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。（交点法为圆半径）(5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。 (6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半

33、径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。(7) Q值是判别用采用线元法还是交点法。交点法值为2。线元法，根据线元段取值，直线段取0，缓和段和圆曲线段，根据左偏取-1,右偏取1. (8) 为了区别字母O及数子0，特把字母0加粗。2、输入与显示说明 输入部分：A:XY=1， ZD=2 ，GC=3， GD=4， BP=5， FM=6， ZP=7， JS=8， SD=9? 输入:1、坐标计算放样程序2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放

34、样程序；8、极坐标计算程序；9、隧道超欠挖计算程序XZ？YZ？ 为置仪点坐标，第一次运行输一次，以下运行不需再输入，下次再运行此程序调上次输值，如需改，则输入，不需改，则按确认键。“QX:X1=1,X2=2”?选择经路，坐标计算中输入0值，变为输入线元段曲线要素。输1为第一条线路。输2为第二条线路，本程序暂设计实例为2条线路。？正算时所求点的里程（反算输入大概桩号）输入-1，返回输入选择计算类型，输入-2,返回选择线路，输入-3，调出本段线元参数，以矩阵显示，再运行从头开始。 ？正算时所求点距中线的边距(左侧取负，值右侧取正值，在中线上取零)X0 ？反算时所求点的X坐标（放样程序中实测X坐标）

35、Y0 ？反算时所求点的Y坐标（放样程序中实测Y坐标）显示部分：L? 涵洞放样程序中涵距中心桩号前后距离,前为正,后为负.M0? 边坡放样程序中原地面标高输入H-B？计算面至路面高差（默认路面为0）PJ1? PJ2? 涵洞计算中第一个夹角同PJ。第二夹角为边线至路前进方向夹角。(同理适合在桥梁中斜交桥,平行布置中,桥台桩基坐标计算)默认值均为90度.TH-GH？边坡放样中填方超放宽值，默认值为0.5m.LD:Z-,Y+? 桥梁锥坡向左右方向边长，左为负数，右为正数。LR? 锥坡向路线前进或向后退方向边长。 Z0? 锥坡顶边桩号输出部分X=*正算时，计算得出的所求点的X坐标 Y=*正算时，计算得出

36、的所求点的Y坐标FWJ=* 正算时，计算得出的所求点的至置仪点方位角S=* 正算时，计算得出的所求点的至置仪点距离=*反算时，计算得出的所求点的里程=*反算时，计算得出的所求点的边距H=* 所求点位置设计路面顶标高I=* 所求点位置设计路面横坡（D输0时为，本段路基纵坡）SJLG=* 所求点位置路基设计半幅标准宽度L0=* 边桩放样程序中实测点至设计边坡点距离，正向内移，负向外移。(隧道程序中为超欠挖值，正为超挖，负为欠挖)TW=* 边桩放样程序中，实测放样边坡点至止桩号设计顶填挖高度值H0=* 隧道放样程序中测量点至设计面高度四、结束语1、本套程序实例线路给二条，如标段像匝道有多条线时，同理增加。2、由于本人没做过隧道，隧道程序只是参照本项目另一个标的图纸所做，如有不同，可以调整参数。原理应是一样的。3、为了更好的开发计算器程序，本人特建一QQ群，欢迎各位测友加入，QQ群号是：24817026。4、所有对程序有建议或问题的，加本人QQ后可以直接留言，由于工作原因，可能不能马上给予答复，敬请谅解！(加QQ为好友时请注明:计算器程序)