文档介绍：隧道程序
卡西欧计算器5800隧道正反算、隧道超欠挖计算程序在隧道中的应用,速度有点慢
概述:
程序由三个子程序构成
-SDZS 隧道正算,具有三维坐标功能。
-SDFS 隧道反算。
-CQW 隧道超欠挖检测程序。
其余均为子程序,本程序还有许多需要改进的地方,欢迎大家提供宝贵的意见。有兴趣的可以把三个程序汇总。
本程序为三维坐标全能程序,正在调试阶段,期待和大家一起提高,一起进步。
隧道超欠挖计算程序
-SDZS
Lb1 0: “KP”?S(待求桩号):“BIANZHU”?Z(边距):Prog “PM-SJ”: Abs(S-O) → W:Prog "SUB1": X:Y: F-90→F:S→ K:Prog“SQX”:“XS=”(X正算坐标):Locate6,4,X: “YS=”(Y正算坐标):Locate6,4, Y:
“BC=”(方位角):Locate6,4, F°:“H=”(高程):Locate6,4, H◢Goto 0
-SDFS
Lb1 0: “KP”?S:“CZX”?X:CZY”?Y(测站坐标):Prog“PM-SJ”: X→ I: Y→  J:Prog "SUB2": O+W→S:"S=":Locate6,4,S: "Z=":Locate6,4,Z: S→ K:Prog“SQX”:F-90→F: “BC=”:Locate6,4, F°: “H=”:H◢
-CQW
程序说明:为了精简,不含数据库,直接把断面的相关数据插入程序内,一些相关的数据,请仔细去推敲它的来历
1.
2.
3. 12为O3的半径
4.
5.

7.
8.
9.
Fix3:Lb1 1:Prog“SDFS”:“HC”?F: “Z”? Z:
If F<H-:Then √(Z2+(+H-F)2 )-12→W:
Eles If F≥H- AND F ≤H+:Then Abs(Z)-→Z:
√((Z2+(H+-F)2-→W :
Eles √((F-H-)2+Z2)-→W: IfEnd: IfEnd
“CQHD”?(衬砌厚度)A:W=”: W-A→W◢
Goto1
(SUB1)
1÷P→ C: (P-R)÷(2HPR) → D: 180÷π→ E: →  A: → B: → K: → L: 1-L→ F:1-K→ M: U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD))) → X: V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD