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

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

Lbl4:Prog”HMSJK”:Goto3:”YX,X”?A:”YX,Y”?B:”QD,X1”?C:”QD,Y1”?E: ”R”?R:”QD,ZH”?Q Lbl 3:”DM,CN”?Z

Lbl 0:?X:?Y:C-A->I:E-B->J:Pol(I,J):J->P:If P<0零:ThenJ+360->P:Else P-360->P:IfEnd

X-A->I:Y-B->J:Pol(I,J):I->I:J->J:IfJ<0零:ThenJ+360->J:Else J-360->j:IfEnd

J-P->O: If O<0（小的是零）Then- O-> O: Else O->O :IfEnd (O×π×R)÷180->L:Q+L->K:

IfK<1149.58:ThenGoto2:IfEnd:IfK>1422.4:ThenGoto2:IfEnd:R-I（不是一）->D:(K-1148)×(-2.5) ÷

100+7.200->H:”SCGC”?F:F-H->S: If S≤0.73And

S<1:ThenAbs(D)-(5.233-(1.57-(S+0.84))×0.137÷1.57) ->N Goto1: IfEnd: If S≥5.303: Then√((S-2.582)²+Abs(D) ²)-(4.33+Z) ->N :Else√((S-1.34)²+(Abs(Abs (D)+1.9)) ²)-(6.6+Z) ->N:Goto1: IfEnd

Lbl 1:Cls:”K=”:Locate 4,1,K:”D=”: Locate 4,2,D: ”H=”:Locate 4,3,H:”CQW=”: Locate 6,4,N◢ Goto0

Lbl 2:”CX-CO” ◢ Goto4

编制：闫宝强

数据库名字：HMSJK

8.155->A:953.599->B:535.352->C:14.7->E:618.607->R:1149.588->Q

说明：本程序已经用过三个工地，代码无错误。

2、DM,KW,ZH（隧道支护，开挖尺寸，程序里面是标准净空） 3、X,Y(是全站仪实测的坐标) 2、SCGC（是全站仪实测的高程） 4、计算结果显示(串联显示)： K 施工桩号 D 距线路中线的偏距

H 线路施工桩号断面上设计高程

W 隧道断面超欠挖数据（负数欠挖，正数超挖，零是正好在轮廓线上）超欠的方向全部是圆心方向 优点：反算速度快，适合单圆曲线

线性。缺点：不适合缓和曲线（本人编的有适合整个线性的程序）。最后还要注意：线路的竖曲线数据一定要改变，还有超欠挖程序也要改变，因为每个工地的数据都不一样。主程序是不变的。 联系方式：飘QQ8262599