曲线隧道三圆心放样程序

 1： LbI 0:U:R“R0”:N“R1”:D“R2”:K“K(KO)”:X“X(X0)”:Y“Y（Y0）”:F“G（G0）”:Q“FW”: M“I0”:T“SJY1”:W“SJY2”:S“SJQ1”: J=0

2： LbI 1:Fixm:｛ABG｝:A:B:G:Prog“F”

3： U=1=＞P=Q-J:E=I-R:≠＞U=2=＞P=J-Q:E=R-IΔΔ

4： P≥0=＞P=P+360: Δ(≥表示从大里程到小里程，反止相反≤

5： Z【2】“K”=K-（∏PR÷180）▲

6： E=E-2.3  ▲ （2.3代表与线路中线和隧道的偏移距离比半径大就“+”反之“-”

7： Z“SJD”=（Z【2】-K）×M÷100+F:H“ΔH”=G-Z:L=H-T:C=H-W:V“QGD”=H-S▲

8： V≥0=＞Goto2Δ

9： V＜0=＞Goto3Δ

10： LbI 2:L=Abs L:E= AbsE:O=√(E2+L2):Z【1】“ΔR1”=(O-N) ▲

11：Goto1

12：LbI 3:C=AbsC:E=AbsE:Z【3】“ΔR2”=((√(C2+E2)-D)-0.1) ▲

0.1代表第二圆心与第一圆心的偏移距离

13： Goto1

黑色0代表零，红色0代表欧

圆曲线三圆心放样程序说明：

输入数据：

U=判断线路方向从小里程到大里程1是遗时针， 从大里程到小里程 2顺时针

R0=线路曲线的半径

R1=第一圆弧开挖半径

R2=第二圆弧开挖半径

K(KO)=曲线起点或终点里程

X(X0)=圆心X坐标

Y(Y0)=圆心Y坐标

G(G0)=曲线起点或终点的高程

FW=圆心到曲线起点或终点的方位角

I0=这段圆曲线的坡度

SJY1=设计到第一圆心的高差

SJY2=设计到第二圆心高差

SJQ1=设计路面到第一圆弧段高差

A=实测X坐标

B=实测Y坐标

G=实测高程

显示数据：

K=求点里程

E=偏中距离

QGD=偏中的高程

▽R2=判断进入第一或第二圆弧段并且判断此处的超欠

在下步程序开始循环

子程序F

I=PoI((A-X),(B-Y):J≤0=＞J=J: ≠＞J=J+360Δ

这条线路从大里程往小里程算，里程196+842.395  高程635.13

下坡 、坡比17.8‰  下一个坡比12.3‰

隧道里程196+534——195+910

竖曲线起点里程是196+055——196+165、半径20000

变坡点里程196+110  高程622.093

隧道设计路面到第一圆心高程是2.36  到第二圆心是2.42  第二圆心偏移隧道中心线10㎝

子程序

F

I=Pol((A-X),(B-Y):J≤O=＞J=J: ≠＞J=J+360△