隧道测量程序.docx

隧道测量---快速坐标正反算程序(4800-4850计算器）

ZB （坐标正算）

1. Lb1 12.｛L｝3.SMNARCL

K=L-S

R=0=X“X”=M+KcosA▲

Y“Y”=N+KsinA▲

Z“FW”=A▲

Goto4△R≠0=AbsK≤C=Goto2△R≠0=K＞C=Goto3△R≠0=K0=AbsK＞C=Goto1△

Lb1 2

10.O=90K2÷（πRC）

11.G=K3÷（6RC）-K?7÷（336（RC）3＋K?11÷（42240（RC）?5-K?15÷9676800（RC）?7）

＋K?19÷（3530096640（RC）?9）

12.F=K－K?5÷（（40（RC）2）－K?9÷（3456（RC）?4）＋K?13÷（599040（RC）?6）－K?17÷

（40320×4532（RC）?8）

J=0=X“X”=M＋GsinA＋cosA▲

Y“Y”=N＋FsinA-cosA▲

Z“FW”=A-O▲

Goto4△

J≠0=X“X”=M＋FcosA－GsinA▲

Y“Y”=N＋GcosA＋FsinA▲

Z“FW”=A＋O▲

Goto4△

LbI 3

20．B=90（2K-C）÷（лR）

21.U=C÷2－C3÷（240R2）＋RsinB＋C?5÷（34560R?4）-C?7÷（599040R?6）

22．V=C2÷（24R）＋R（1－cosB）－C?4÷（2688R3）＋C?6÷（42240R?5）

J=0=X“X”=M＋UcosA＋VsinA▲Y“Y”=N＋UsinA－VcosA▲

Z“FW”=A-B▲

Goto4△

J≠0=X“X”=M＋UcosA－VsinA▲Y“Y”=N＋UsinA＋VcosA▲

Z“FW”=A＋B▲

Goto4△

Lb1 4

26．｛D｝：｛T｝

27．D=0=Goto1△

28．D≠0=X“LX”=X＋Dcos（T＋Z）▲Y“LY”=Y＋Dsin（T＋Z）▲

Goto1△

SUB（坐反算）

“1.SZ=UV”: “2.UV=SZ”: N

（=2): X“X0”:Y“Y0”:O“S0”=L:G“F0”(=Z):

Q：Q=0=R=1E-45：≠R△J=0：M=AbsQ：K=1-M：N=1=Goto1：≠Goto2△←┙

Lbl1：{SZ}：SZ：L=S-O：B=90QL÷π÷R：F=G+B：E=F+B+90：C=LK+2MRsinQB：UUS

= X+Rec(C,F)+ZcosE◢

VVS=Y+J+ZsinE◢

Goto1←┙

Lbl2：W=G+90Q：E=X+Rec(R,W)：F=Y+J：W=W+180M：W360=W=W-360△←┙

Lbl3：{UV}：UV：D=Pol(U-E,V-F):T=J：J0=T=J+360△B=T-W：P=KB+MAbsB：SS=O+

DKcosP+MπRP÷180◢

HH=DKsinB+MQ(R-D)◢

Goto3←┙

正算由下面输入：

S： ZH或HZ点里程M： ZH或HZ点X坐标N： ZH或HZ点Y坐标A： 切线方位角

R： 曲线半径

C： 缓和曲线长度

L： 求点里程X： 求点X坐标Y： 求点Y坐标

FW 求点切线方位角D： 左、右边桩距离T： 边桩与线路夹角LX：边桩X坐标

LY：边桩Y坐标

J：右偏输“1”，左偏输“0”反算由下面输入：

X0:线路中心X坐标Y0:线路中心Y坐标L:相对应里程

Z:相对应方位角

Q:＝０

U: 求点X坐标V: 求点Y坐标S= 求点里程H= 求点边距

说明：１.可用于缓和曲线坐标正反算，反算时X0,Y0,L,Z利用正算储存的数据，速度快．２.反算时先输入近似里程正算．

３.隧道断面炮位放样２０多个点位在操作熟练时只需15分钟左右，提高工程进度．