隧道单圆曲线通用反算超欠挖程序.doc

隧道单圆曲线通用反算超欠挖程序 Lbl4:Prog”HMSJK”:Goto3:”YX,X”?A:”YX,Y”?B:”QD,X1”?C:QD,Y1”?E: ”R”?R:”QD,ZH”?Q Lbl 3:”DM,KW,ZH”?Z Lbl 0:?X:?Y:C-A-I:E-B-J:Pol(I,J):J-P:If P0:ThenJ+360-P:Else P-360-P:IfEnd X-A-I:Y-B-J:Pol(I,J):I-I:J-J:IfJ0:ThenJ+360-J:Else J-360-j:IfEnd J-P-O: If O0Then- O- O: Else O-O IfEnd (O×π×R)÷180-L:Q+L-K: IfK1112.810:ThenGoto2:IfEnd:IfK1380.646:ThenGoto2:IfEnd:R-I-D:(K-1098.402)×(-2.5) ÷100+789.531-H:”SCGC”?F:F-H-S: If S≤0.64: Then Abs(D)-(5.35-(S×0.13÷1.49) -N Goto1: IfEnd: If S≥5.303: Then√((S-2.582)^2+Abs(D) ^2)-(4.38+Z) -N :Else√((S-1.34)^2+(Abs(Abs (D)+1.9)) ^2)-(6.66+Z) -N:Goto1: IfEnd Lbl 1:Cls:”K=”:Locate 4,1,K:”D=”: Locate 4,2,D: ”H=”:Locate 4,3,H:”W=”: Locate 4,4,N◢ Goto0 Lbl 2:”CX-CO” ◢ Goto4 说明：本程序已经用过三个工地，代码无错误。如果用本程序的话，出了问题自己负责，一下程序主要变量说明：1、YX,X，YX,Y（圆曲线圆心坐标），QD,X1，QD,Y1（支援点起点坐标，也就是圆曲线的起点），”R”（圆曲线半径），QD,ZH（支援点起点桩号，也就是圆曲线的起点）。这是起始数据的输入，程序也可以建立子程序数据库，只需要再开头建立个Prog”HMSJK”:Goto3。 2、DM,KW,ZH（隧道支护，开挖尺寸，程序里面是标准净空） 3、X,Y(是全站仪实测的坐标) 2、SCGC（是全站仪实测的高程） 4、计算结果显示(串联显示)： K 施工桩号 D 距线路中线的偏距 H 线路施工桩号断面上设计高程 W 隧道断面超欠挖数据（负数欠挖，正数超挖，零是正好在轮廓线上）超欠的方向全部是圆心方向 优点：反算速度快，适合单圆曲线 线性。缺点：不适合缓和曲线（本人编的有适合整个线性的程序）。最后还要注意：线路的竖曲线数据一定要改变，还有超欠挖程序也要改变，因为每个工地的数据都不一样。主程序是不变的。 联系方式：飘QQ826258999 编制：闫宝强