隧道圆曲线超欠挖程序

9隧道圆曲线超欠挖程序

3447215.723→H: 497525.062→U: Lbl 0: \"X=\"?X: \"Y=\"?Y: \"S=\"?S: Pol((X-H),(Y-U)): J﹤0 =>J﹢360→J: \"J=\":J◢（H线起点X坐标，U是Y，J方位角） \"I=\":I◢

Abs(216°12′3.92″走向方位角-J)→A:(Aπ×(670-0))÷180°﹢9117.253→L◢（L起点到测点直线距离670是半径）

I-(670＋5.21)→C◢（C偏中，5.21为设计线跟线路中心距离） If L﹤(9170-172.2): Then 400.757-(9170-L)×0.04→T↙（400.757为竖曲线起点高，T为测点设计高）

Else If L﹤9170: Then 400.757-(9170-L)×0.04﹢(-1)×1×(172.2-Abs(9170-L))²÷2÷28000→T↙

Else If L﹤(9170﹢172.2):Then 400.757-(9170-L)×0.0277﹢(-1)×1×(172.2-Abs(9170-L))²÷2÷28000→T↙

Else If L≧(9170﹢172.2): Then 400.757-(9170-L)×0.0277→T: IfEnd: IfEnd: IfEnd: IfEnd↙

S-T→V: If V﹤1.6: Then Goto 1: Else If V﹤8.0:Then Goto 2: IfEnd: IfEnd↙（S为实测高） Lbl 1↙

Abs(C)﹢4-√(Abs(9.95²-Abs(S-T-1.6)²))→R: \"R1=\":R◢ \"T=\": T◢

S-T-1→D: \"D=\":D◢（D为实测设计高差）

\"C=\":C◢ Goto 0↙ Lbl 2↙

Abs(C)-√(Abs(5.92²-(S-(T﹢1.6))²))→R:\"R2=\":R◢

S-(T﹢1.6)-√(Abs(5.92²-C²))→Q:\"SX=\":Q◢（R为断面上纵坐标和设计的差值，即上下移动多少） \"T=\":T◢

\"C=\":C◢（偏中） S-T→D: \"D=\":D◢ Goto 0