CASIO5800隧道测量程序

Lbl4:“1.SZ=>XY”:“2.XY=>SZ”:“N=”?N（N=1坐标正算，N=2坐标反算）:“S=”?S（输入测点的里程）:Prog“SUB0”（回车）

1÷P→C:(P-R)÷(2HPR)→D:180÷π→E（回车）

If N=1:Then Goto1:IfEnd（回车）

If N=2: Then Goto2:IfEnd（回车）

Abs(S-O)→W（回车）

Lbl1:“Z=”?Z（输入测点距中桩的边距，左为负值右为正值）:Abs(S-O)→W:Prog“SUB1”:F-90→F:“FWJ=”:F▼DMS◢（显示中桩坐标方位角）

“X=”:X◢（显示中桩X坐标）

“Y=”:Y◢（显示中桩Y坐标）

Prog“SUB3”: “TJ=”:(12.54-S)×0.25→Z[10]◢(挑顶高度)

“DBGC=”:Z[3]◢（显示铺底高程）

Z[10]+1.865+2256.54→Z[4]:“YXGC=”:Z[4]◢（显示圆心高程）

Z[4]+4.92拱架顶部的高度）→Z[5]:“GDGC=”:Z[5]◢（显示拱架顶部高程）

“X0=”?U（输入设站点X坐标）:“Y0=”?V（输入设站点Y坐标）（回车）

Pol(X-U,Y-V) （回车）

If J≥360:Then J-360→J:Else J<0=>J+360→J:IfEnd（回车）

“ZJ=”:J▼DMS◢（显示放样拨角）

“L=”:I◢（显示放样距离）

Goto4

Lbl2:“X=”?X（坐标反算时输入测点X坐标）:“Y=”?Y（坐标反算时输入测点Y坐标）:X→I:Y→J:Prog“SUB2”:O+W→S:“S=”:S◢（显示坐标凡算时是测点的里程）

“Z=”:Z◢（显示坐标反算时测点距中桩边距左为负，右为正）

Prog“SUB3”: “TJ=”:(12.54-S)×0.25→Z[10]◢(挑顶高度)

“DBGC=”:Z[3]◢（显示铺底高程）

Z[10]+2256.54+1.865→Z[4]:“YXGC=”:Z[4]◢（显示圆心高程）

Z[4]+4.92→Z[5]:“GDGC=”:Z[5]◢（显示拱架顶部高程）

Prog“SUB4”:“TS=”:Z[8]◢（显示断面放样时该点距轮廓线距离，负为欠挖，正为超挖）

Goto4（回车）

SUB0(平曲线数据库)

Goto1

Lbl1:If S≤7.30(曲线终点里程)：Then 257°27′43″→G(曲线方位角)：0(零)→O（起点里程）：27335.419→Z[1]（起点X坐标）:49555.122→Z[2]（起点Y坐标）:10∧(45)→P（曲线起点半径，直线为1045，曲线为曲线半径）:10∧(45)→R（曲线起点半径，直线为1045，曲线为起点曲线半径）:7.3→H（曲线起点至终点长度）:0(零)→Q（曲线左偏为-1，右偏为1，直线为0）:Return:IfEnd(回车)

Lbl1:If S≤12.54(曲线终点里程)：Then 257°27′43″→G(曲线方位角)：7.3(零)→O（起点里程）：27333.834→Z[1]（起点X坐标）:49547.996→Z[2]（起点Y坐标）:15→P（曲线起点曲率，直线为1045，曲线为曲线半径）:15→R（曲线起点半径，直线为1045，曲线为终点曲线半径）:5.24→H（曲线起点至终点长度）:-1→Q（曲线左偏为-1，右偏为1，直线为0）:Return:IfEnd(回车)

SUB1(坐标正算程序)

0.1739274226→A:0.3260725774→B:0.0694318442→K:0.3300094782→L:1-L→F:1-K→M:Z[1]+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD)))→X:Z[2]+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD))) →Y:G+QEW(C+WD)+90→F:X+Zcos(F)→X:Y+Zsin(F)→Y（回车）

SUB2(坐标反算程序)

G-90→T:Abs((Y-Z[2])cos(T)-(X-Z[1])sin(T))→W:0→Z:Lbl0:Prog“SUB1”:T+QEW(C+WD)→L:(J-Y)cos(L)-(I-X)sin(L)→Z:If Abs(Z)<10∧(-6):Then Goto1:Else W+Z→W:IfEnd:Goto0(回车)

Lbl1:0（零）→Z:Prog“SUB1”(J-Y)÷sin(F)→Z(回车)

SUB3(竖曲线计算)

If S≤25:Then (S-1)×0.02+2256.32→Z[3]:Goto5:IfEnd(回车)

Lbl5

SUB4(断面轮廓线计算)

“SCGC=”?U(回车)

If U≥2252 And U≤2256.54+（12.54-S）×0.25＋1.865:Then Abs(Z)-4.92→Z[8]:Goto6:IfEnd(回车)

If U≥2256.54+1.865+（12.54-S）×0.25  And U≤2267:Then √(Z2+(U-Z[4])2)-4.92→Z[8]:Goto6:IfEnd(回车)

Lbl6