你的位置：
首页
>
IT圈
>
5800计算器隧道测量程序
2024年4月13日发(作者：官芷烟)
5800计算器隧道测量程序
Y（正算主程序）
（P－R）÷（2HPR）→Z：N=1=﹥Goto 1：If N=2：Then Goto 2↙
Lbl 1：〝DKI？S：〝ZD=0〞？D：D→D：Abs（S-O）→W：Prog〝B1〞：〝X=〞：
X◢
〝Y=〞：Y◢
F-90→F：〝XC〞？C：〝YC〞？E：0→I：0→J：Pol（X-C，Y-E）：J≤0=﹥J+360
→J：〝FWJ=〞：JDMS◢
〝L=〞：I◢
D→D：Goto 1↙
Lbl 2：〝X〞？I：〝Y〞？J：I→X：J→Y：Prog 〝B2〞：O+W→S：〝DKI=〞：S
◢
D→D：〝D=〞：D◢
Prog 〝YY〞◢
Lbl 2
B1（正算子程序）
0.1739274226→A:0.3260725774→B:0.→K:0.3300094782→L:1-L→
F:1-K→M:U+W（Acos （G+（180÷π）QKW（1÷P+KWZ））+Bcos （G+（180÷π）
QLW（1÷P+LWZ））Bcos （G+（180÷π）QFW（1÷P+FWZ））+Acos （G+（180÷
π）QMW（1÷P+MWZ）））→X: V+W（Asin （G+（180÷π）QKW（1÷P+KWZ））
+Bsin （G+（180÷π）QLW（1÷P+LWZ））Bsin （G+（180÷π）QFW（1÷P+FWZ））
+Asin （G+（180÷π）QMW（1÷P+MWZ）））→Y: G+（180÷π）QW（1÷P+WZ）
+90→F:X+Dcos （F→X: X+Dsin （F→Y
B2（反算子程序）
G-90→T:Abs（（Y-V）cos（T）-（X-U）sin（T））→W:0→D:Lbl 0:Prog〝B1〞:T+
（180÷π）QW（1÷P+WZ）→L:（J-Y）cos（L）-（I-X）sin（L）→D:If Abs（D）＜
0.000001:Then Goto 1:lfEnd:W+D→W:Goto 0↙
Lbl 1:0→D:Prog〝B1〞:（J-Y）÷sin（F）→D
YY（高程程序）
〝QS〞？Q:Prog〝ZT1〞:A-T→B:A+T→C;Abs（S-A）→Z↙
If S≤B:Then -1→U:1→G;K→F;0→P:Goto 1↙
lfEnd:lf S≥C:Then 1→U:1→G:L→F:0→P:Goto 1↙
lfEnd:0→G:0→F:0→U:1→P: ↙
Lbl 1: 〝H〞:G（E+UZF）+P（（E-KT）+K（S-B）+（S-B）（S-B）÷（2R）→H◢
〝+Q,-C〞: （隧道半径）-√（（Q-H-设计高程到圆心距离)）
2
+D
2
）
ZF-Y（计算程序）
〝1 =﹥XY,2 =﹥KB〞？N:Lbl 4〝DKI〞？S:If S＜终点桩号：Then 起点桩号→O; 起
点X→U：起点Y→V：起点方位角→G：曲线长→H：起点半径→P:终点半径→R：转向→
Q:Prog〝Y〞:Goto 4:lfEnd↙
说明：直线半径为10^（45），转向为0
ZT1（高程数据库）
lf S≤终点桩号：Then 交点高程→E:起点桩号→A: 半径→R：T→T：前坡→K:后坡→L：
Goto 1:Else ↙
有多少曲线都输完后输
Lbl 1
2024年4月13日发(作者：官芷烟)
5800计算器隧道测量程序
Y（正算主程序）
（P－R）÷（2HPR）→Z：N=1=﹥Goto 1：If N=2：Then Goto 2↙
Lbl 1：〝DKI？S：〝ZD=0〞？D：D→D：Abs（S-O）→W：Prog〝B1〞：〝X=〞：
X◢
〝Y=〞：Y◢
F-90→F：〝XC〞？C：〝YC〞？E：0→I：0→J：Pol（X-C，Y-E）：J≤0=﹥J+360
→J：〝FWJ=〞：JDMS◢
〝L=〞：I◢
D→D：Goto 1↙
Lbl 2：〝X〞？I：〝Y〞？J：I→X：J→Y：Prog 〝B2〞：O+W→S：〝DKI=〞：S
◢
D→D：〝D=〞：D◢
Prog 〝YY〞◢
Lbl 2
B1（正算子程序）
0.1739274226→A:0.3260725774→B:0.→K:0.3300094782→L:1-L→
F:1-K→M:U+W（Acos （G+（180÷π）QKW（1÷P+KWZ））+Bcos （G+（180÷π）
QLW（1÷P+LWZ））Bcos （G+（180÷π）QFW（1÷P+FWZ））+Acos （G+（180÷
π）QMW（1÷P+MWZ）））→X: V+W（Asin （G+（180÷π）QKW（1÷P+KWZ））
+Bsin （G+（180÷π）QLW（1÷P+LWZ））Bsin （G+（180÷π）QFW（1÷P+FWZ））
+Asin （G+（180÷π）QMW（1÷P+MWZ）））→Y: G+（180÷π）QW（1÷P+WZ）
+90→F:X+Dcos （F→X: X+Dsin （F→Y
B2（反算子程序）
G-90→T:Abs（（Y-V）cos（T）-（X-U）sin（T））→W:0→D:Lbl 0:Prog〝B1〞:T+
（180÷π）QW（1÷P+WZ）→L:（J-Y）cos（L）-（I-X）sin（L）→D:If Abs（D）＜
0.000001:Then Goto 1:lfEnd:W+D→W:Goto 0↙
Lbl 1:0→D:Prog〝B1〞:（J-Y）÷sin（F）→D
YY（高程程序）
〝QS〞？Q:Prog〝ZT1〞:A-T→B:A+T→C;Abs（S-A）→Z↙
If S≤B:Then -1→U:1→G;K→F;0→P:Goto 1↙
lfEnd:lf S≥C:Then 1→U:1→G:L→F:0→P:Goto 1↙
lfEnd:0→G:0→F:0→U:1→P: ↙
Lbl 1: 〝H〞:G（E+UZF）+P（（E-KT）+K（S-B）+（S-B）（S-B）÷（2R）→H◢
〝+Q,-C〞: （隧道半径）-√（（Q-H-设计高程到圆心距离)）
2
+D
2
）
ZF-Y（计算程序）
〝1 =﹥XY,2 =﹥KB〞？N:Lbl 4〝DKI〞？S:If S＜终点桩号：Then 起点桩号→O; 起
点X→U：起点Y→V：起点方位角→G：曲线长→H：起点半径→P:终点半径→R：转向→
Q:Prog〝Y〞:Goto 4:lfEnd↙
说明：直线半径为10^（45），转向为0
ZT1（高程数据库）
lf S≤终点桩号：Then 交点高程→E:起点桩号→A: 半径→R：T→T：前坡→K:后坡→L：
Goto 1:Else ↙
有多少曲线都输完后输
Lbl 1