宜昌市夷陵区东湖大道隧道测量程序

宜昌市夷陵区东湖大道隧道测量程序（CASIOfx-5800P）
1.Lbl 0↙
2.25→Dim↙增加额外变量（25个）
3.〝X=〞?X: 〝Y=〞?Y:〝h=〞?H ↙赋予变量值（由全站仪测量任意点）
4.〝L(1)﹑R(-1)=〞?A↙设置左右洞值（左1，右-1）
5.〝ZQ(1),FY(2)=〞?C↙设置偏差放样值（偏差1，放样2）
6.X-3405392.293→Z[1]:Y-531606.311→Z[2] ↙变量至圆心坐标增量
7.tan-1(Z[2]÷Z[1])+180→Z[4] ↙圆心至变量方位角
8.246°35′58.8″- Z[4] →Z[3] ↙线元起点至变量与圆心间交角
9.337.486+ Z[3]÷360×2000×π→K↙变量里程桩号（不显示）
10.90.999+(K-337.486)×0.04→Z↙变量设计高程（不显示）
11.〝K〞?K: 〝Z〞?Z↙显示变量里程与设计高程
12.Z+2.149935→Z[13]:Z+1.525→Z[14]: Z+0.598133→Z[15]:Z+15.998744
→Z[16]↙变量对应轮廓圆心高程（钢支撑内轮廓）
13.3405392.293→Z[11] ↙线元圆心X坐标（本隧道均位于此平曲线上）
14.531606.311→Z[12] ↙线元圆心Y坐标（本隧道均位于此平曲线上）
15.Z[11]+（1000+A*7.671）cosZ[4]→Z[5]: Z[12]+(1000+A*7.671)sinZ[4]→
Z[6]: Z[11]+(1000+A*6.588)cosZ[4]→Z[7]: Z[12]+(1000+A*6.588)sinZ[4]→Z[8]:Z[11]+(1000+A*12.009339)cosZ[4]→Z[9]: Z[12]+(1000+A*12.009339)sinZ[4]→Z[10]↙（计算轮廓圆心）
16.If C=1:Then√(X-Z[5])2+(Y-Z[6])2+(H-Z[13])2 -6.55→G↙
17.〝ZQ〞?G↙显示偏差值（＋为超挖，—为欠挖，下同）
18.22 2 -7.800
22 2 -2.59321
√(X-Z[5])2+(Y-Z[6])2+(H-Z[16])2 -15.998744
（四数值中取绝对值最小者）
19.Ifend ↙结束偏差计算程序
20.If C=2 :Then Z[11]+(1000+A*7.671)cosZ[4]→B↙ C=2进入放样程序
21.〝D1〞?B↙第一特征圆控制点（坐标，高程）
Z[12]+(1000+A*7.671)sinZ[4]
Z-2.301256
22. Z[11]+(1000+A*12.631935)cosZ[4]→D↙
23.〝D2〞?D↙第一特征圆控制点（坐标，高程）
Z[12]+(1000+A*12.631935)sinZ[4]
Z-1.616078
24. Z[11]+(1000+A*14.276445)cosZ[4]→E↙
25.〝D3〞?E↙第二特征圆控制点（坐标，高程）
Z[12]+(1000+A*14.276445)sinZ[4]
Z+0.210535
26. Z[11]+(1000+A*14.265973)cosZ[4]→F↙
27. 〝D4〞?F↙第二特征圆控制点（坐标，高程）
Z[12]+(1000+A*14.265973)sinZ[4]
Z+2.899313
28. Z[11]+(1000+A*13.343124)cosZ[4]→I↙
29. 〝D5〞?I↙第二特征圆控制点（坐标，高程）
Z[12]+(1000+A*13.343124)sinZ[4]
Z+5.424781
30. 〝D6〞?B↙第三特征圆控制点（坐标，高程）
Z[12]+(1000+A*7.671)sinZ[4]
Z+8.700
31. Z[11]+(1000+A*2.045591)cosZ[4]→J↙
32.〝D7〞?J↙第四特征圆控制点（坐标，高程）
Z[12]+(1000+A*2.045591)sinZ[4]
Z+5.5060708
33.Ifend ↙结束计算程序34．Goto 0↙
end。