L3  Norm:T=J/10000
L4  I=IntT+Int(fracT×100)/60+frac(fracT×100)/36
L5  H=G+Y+Rec(D,I)
L6  B=10+L+N×W
L7  O=S-4.11×0.02+1.69
L8  C=(poI(B-15.11,H-O)-R)×100:Fix1:“Pc=”◢
L9  Goto 0
G--测站地面高程
Y--仪器高
J--观测的竖直角
D--斜距
L--线路中线至测站的距离
S--线路中线设计高程
R--半径
H--实测纵坐标
B--实测横坐标
O--圆心处的设计纵坐标
C--

 ‘

实测偏差（输出用 pc=’表示）

I--T 为计算过程对 J 的替换
N--修正符 (当仪器不是置在中线上，且各种原因引起测量的竖直角读数，线路中
线一侧不是 270-360 度，
线路边线一侧不是 0-90

“

度时，计算结果偏差超常，无需重测，输 -1” 修正即可。

“

其它情况输入 +1”，测站不能设在隧道中线时，测站至隧道中线的距离尽可能大
于一米为益)
角度输入，如 203°23＇12〃输入 2032312
66°03＇18〃输入 660318
0°0＇10〃输入 10 即可。
其它输入单位均为 m，输出单位为 cm。
本程序仅适用于单心圆隧道断面测量，如遇多心圆隧道，可根据实测的横坐标或
纵坐标，用判断语句确定采用不同的半经和设计坐标，只需对程序适作调整。
1.3.1 计算轴交点坐标
轴交点纵坐标等于测站地面高程加仪器高；轴交点横坐标等于１０加线路中心至
测站的距离。
1.3.2 计算所测断面各点的实测坐标
实测纵坐标等于轴交点纵坐标加竖直角的余弦乘斜距。实测横坐标等于轴交点横坐
标加竖直角
的正弦乘斜距，用下式表示：
H=G+Y+cosI×D                      （1--2）
B=１０＋L+SinI×D                   （1--2）
式中 H—实测纵坐标
G—测站地面高程
Y—-仪器高
I--观测的竖直角 J，计算过程中，程序用 I 对 J 进行了替换
D—斜距