适合隧道测量用的各种小程序由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“隧道测量程序”。
曲线坐标计算程序：
Deg：Norm1↓
（设置计算器角度单位为度及小数点显示为小数模式）主程序（程序名称：QXZBJS）R ：K：W：C↓
（定义变量）K÷2-K3÷240R2→Z[1]：K2÷24R-K4÷2384R3→Z[2] ：(Z[2]+R)tan(Abs(W)÷2)+ Z[1]→Z[3] ：K+ Abs(W)×πR÷180→Z[4]↓ Lbl 1↓
Abs(D-C)→I↓
If D＜C：Then D-C→X：0→Y ：0→Q ：Goto 4：IfEnd↓
If I> Z[4]：Then Z[4]-I→Z[5]：0→Z[6] ：0→Q ：Goto 3：IfEnd↓ If I≤Z[4]-K：ThenI→J：Else Z[4]-I→J：IfEnd↓ If J≥K：Then Goto 2：IfEnd↓
(J2×180÷(2πRK))°→Q↓
（以度数为单位赋值给Q）J-J5÷(40R2K2)→X：J3÷(6RK)-J7÷(336R3K3)→Y↓
If I＞Z[4]-K：Then X→Z[5]：Y→Z[6]：Goto 3：IfEnd↓ Goto 4↓ Lbl 2↓
((I-0.5K)×180RπR)°→Q↓
（以度数为单位赋值给Q）Rsin(Q)+ Z[1]→X：R(1-cos(Q))+ Z[2]→Y↓ Goto 4↓ Lbl 3↓
Z[3](1+cos(W))-Z[5]cos(W)-Z[6]sin(Abs(W))→X↓(Z[3]-Z[5])sin(Abs(W))+ Z[6]cos(W)→Y↓ Abs(W)-Q→Q↓ Goto 4↓ Lbl 4↓
If W＜0：Then-Q→Q：-Y→Y：IfEnd↓ X-Esin(Q)→X：Y+Ecos(Q)→Y↓ Goto 5↓ Lbl 5↓ F：G：Z X-Z[3]→I：Y→J↓ F+Icos(Z)-Jsin(Z)→X↓ G+Isin(Z)+Jcos(Z)→Y↓ Goto 6↓ Lbl 6↓
“X=” ：X◢ “Y=” ：Y◢ Pol(X-A, Y-A)↓ “I=” ：I◢
If J＞0：Then“J=” ：J◢ “J=” ：J+360◢IfEnd↓
子程序： 左线（QL）Lbl 0↓
？A：？B↓ Goto 1↓ Lbl 1↓
？D：？E↓
If D>220249.506：Then Goto 2：IfEnd↓
219215.613→C:1450→R:280→K:-29°47′23″→W↓ 54117.378→F:94561.972→G: 298°7′23″→Z↓ Goto3↓ Lbl 2↓
If D>222040.807：Then “WU XIAO” ◢Goto 1：IfEnd↓
221331.463→C:3000→R:0.00000000000001→K:-13°32′51″→W↓ 54060.248→F:92598.282→G: 268°20′1″→Z↓ Goto3↓ Lbl 3↓
Prog“QXZBJS” ↓ Goto1↓ RETURN↓
R：圆曲线半径 K：缓和曲线长度
W：转角（左偏取负值，右偏取正值）C：ZH点里程
Z：第一切线方位角 A： 置镜点X坐标 B：置镜点Y坐标 F： 交点X坐标 G：交点点Y坐标
D、E：待求点里程和偏距 路线为分离式路线时，右线子程序与左线一样，根据右线的直曲转角表输入相应的参数即可
导线测量:DXCL Lbl 0↓
Deg：Norm1↓
（设置计算器角度单位为度及小数点显示为小数模式）?A：?B：“A1”→Z[8]:“B1”→Z[9] ↓ Pol(A-Z[8], B-Z[9])↓
If J>0：Then“ J”：J→Z[10]◢Else“J”: J+360→Z[10]◢IfEnd↓ Goto 1↓ Lbl 1↓ ?V:?L↓
Z[10]+V-180→T↓ “X”:A+Lcos(T)→X◢ “Y”:B+Lsin(T)→Y◢ Goto 1↓
A、B：分别为置镜点X坐标和Y坐标 “A1” ：“B1” 分别为后视点X坐标和Y坐标 V：夹角 L：边长
缓和曲线的已知坐标反算里程和偏距程序 主程序（程序名称：HHQXFS）Lbl 0↓
Deg：Norm1↓
（设置计算器角度单位为度及小数点显示为小数模式）
Z[11] ：Z[12] ：Z[13] ：Z[14] ：M ：N ：R ：K：C ：Z↓
（定义变量）Goto 1↓ Lbl 1 Pol(Z[13]-Z[11]，Z1[4]-Z[12])↓ I→Z[15] ↓
If J>0：Then J→Z[16]：Else J+360→Z[16]：IfEnd↓ Pol(X-Z[11]，Y-Z[12])↓ I→Z[17] ↓
If J>0：Then J→Z[18]：Else J+360→Z[18]：IfEnd↓ Z[17]×cos(Abs(Z[16]-Z[18]))→Z[19]：Z[17]×sin(Abs(Z[16]-Z[18]))→Z[20]↓ Z[19]×K÷Z[15]→S
S-S5÷(40R2K2)→Z[21]：S3÷(6RK)-S7÷(336R3K3)→Z[22]↓ Goto 2↓ Lbl 2↓
→Z[23]：tan-1(Z[22] ÷Z[21])→Z[24]↓
If N=1：Then Z+(-1)M×Z[24]→W：Else Z+180-(-1)M×Z[24]→W：IfEnd↓ Z[11]+ Z[23] cosW→Z[25] ：Z[12]+ Z[23] sinW→Z[26]↓ →Z[27]↓ →Z[18]↓ →Z[29]↓ Goto 3↓ Lbl 3↓
If Z[18]> Z[16]：Then-Z[20]-Z[29]→E：Else Z[20]-Z[29]→E：IfEnd↓ “D”：C-(-1)N×S+ →D◢
（计算显示反算出的里程）其中 为修正系数
If M=1：Then“E”：E◢Else “E”：-E→E◢IfEnd↓（计算显示反算出的偏距）
子程序：（如当我们想反算慕家梁隧道左线第二缓和曲线时）Lbl 0↓
54102.075→Z[11] ↓（HZ点X坐标）94035.965→Z[12] ↓（HZ点Y坐标）
54101.208→Z[13] ↓（HY点X坐标）
94315.848→Z[14] ↓（HY点Y坐标）
1→M：2→N：1450→R：280→K：220249.506→C：268°20′01″→Z↓ ?X：?Y（待反算点X坐标和Y坐标）Goto 1↓ Lbl 1↓
Prog“HHQXFS”（引用主程序“HHQXFS”）Goto 0↓
Return↓
（引用主程序后必须有的结束语句）
变量含义：
Z[11]、Z[12]、Z[13]、Z[14]：分别为缓和曲线的起终点X坐标和Y坐标； M ：缓和曲线左偏M=1，右偏M=2 N ：计算第一缓和曲线时M=1，第二缓和曲线时M=2 R ：圆曲线半径 K：缓和曲线长
C：缓和曲线的起点或终点里程（第一缓和曲线时为起点里程，反之为终点里程）； Z：第一切线方位角 在实际工作中，当项目变换后，只需根据新项目中的曲线坐标表中给定参数改变子程序中的这些变量（Z[11] ：Z[12] ：Z[13] ：Z[14] ：M ：N ：R ：K：C ：Z）即可
圆曲线反算程序：YQXFS Lbl 0↓
Deg：Norm1↓
（设置计算器角度单位为度及小数点显示为小数模式）Z[30] ：Z[31] ：Z[32] ：Z[33] ：R ：L：K：Z：C↓
（定义变量）Goto 1↓ Lbl 1↓
（180K÷(2 πR)）°→Z[34]↓ Z+ ×Z[34]+ ×90→Z[35]↓ Z[30]+Rcos(Z[35])→Z[36]↓ Z[31]+Rsin(Z[35])→Z[37]↓ →Z[38]↓
Pol(Z[30]-Z[36]，Z[31]-Z[37])↓ J→Z[39]↓
Pol(Z[32]-Z[36]，Z[33]-Z[37])↓ J→Z[40]↓
Pol(Z[X]-Z[36]，Y-Z[37])↓ J→Z[41]↓
Abs(Z[41]-Z[39])×(L-2K)÷Abs(Z[40]-Z[39])→S↓ “D”:C+S →D◢ Z[38]-R→E↓
If M=1：Then“E”：E◢：Else“E”：-E→E◢IfEnd↓
子程序：（如当我们想反算慕家梁隧道左线圆曲线时）Lbl 0↓
53993.248→Z[30]:94775.117→Z[31]↓ 54101.208→Z[32]↓ 94315.848→Z[33]↓ 1450→R:1033.893→L:298°7′23″→Z：219495.613→C↓ ?X：?Y↓ Goto 1↓ Lbl 1↓
Prog“YQXFS”（引用主程序“YQXFS”）Goto 0↓
Return↓
（引用主程序后必须有的结束语句）
Z[30]、Z[31]、Z[32]、Z[33]：分别为圆曲线的起终点X坐标和Y坐标； R：圆曲线半径 L：曲线长
K：缓和曲线长 Z：第一切线方位角
高程 GC Lbl 0↓
Deg：Norm1↓
Z[41] ：Z[42] ：Z[43] ：C：R↓
（定义变量）Z[41]-Z[42]→Z[44]↓ R×Abs(Z[44])÷200→T↓ Goto 1↓ Lbl 1↓
If D＜C-T：Then Goto2：IfEnd↓ If D≤C：Then Goto3：IfEnd↓ If D≤C+T：Then Goto4：IfEnd↓ Lbl 2↓
“H”： Z[43]-(C-T)×Z[41]÷100→H◢↓ Goto 6↓ Lbl 3↓
(D+T-C)÷2R→Y↓
If Z[44]＜0：ThenY→Y：Else-Y→Y:IfEnd↓ “H”： Z[43]-(C-T)×Z[41]÷100+Y→H◢↓ Goto 6↓ Lbl 4↓
(C+T-D)÷2R→Y↓
If Z[44]＜0：ThenY→Y：Else-Y→Y:IfEnd↓ “H”： Z[43]+(D-C)×Z[42]÷100+Y→H◢↓ Goto 6↓ Lbl 5↓
“H”： Z[43]+(D-C)×Z[42]÷100→H◢↓ Goto 6↓ Lbl 6↓
子程序：（左线）Lbl 0↓ ?D↓ Goto 1↓ Lbl 1↓
If D＞221443.412：Then Goto2：IfEnd↓
-2.2→Z[41]:-0.5→Z[42]:525.222→Z[43]:219640→C:45000→R↓ Goto 3↓ Lbl 2↓
If D＞222000：Then “WU XIAO” ◢Goto 0：IfEnd↓
-0.5→Z[41]:-2.473→Z[42]:514.972→Z[43]:221690→C:25000→R↓ Goto 3↓ Lbl 3↓
Prog“GC”（引用主程序“HHQXFS”）Goto 0↓
Return↓
（引用主程序后必须有的结束语句）Z[41]、Z[42]： W、W Z[43] ：交点高程 C：交点里程桩号 R：数曲线半径
直线反算程序：（ZXFS）
“A”?→Z[45]:“B”?→Z[46]↓:？C:？Z Lbl 1↓
？X：？Y↓
Pol(X-Z[45], Y-Z[46])J-Z→Z[47]↓
C+Icos(Z[47])→D↓ “D”:D◢
“E”:Isin(Z[47])→E◢ Goto 1↓
放样程序：（FY）
Deg：Norm1↓
（设置计算器角度单位为度及小数点显示为小数模式）?A：?B↓ Goto 1↓ Lbl 1↓ ?X：?Y↓
Pol(X-A, Y-B)↓ “I”:I◢
If J>0：Then“ J”：J◢Else“J”: J+360◢IfEnd↓ Goto 1↓
添加额外变量：例如想添加100个额外变量
100→FUNCTION→｛PROG｝→SHIFT→(Dimz)→EXE 当显示器上显示“Done”时，表示添加了指定数量的额外变量
