自编5800计算器全线隧道超欠挖程序Word文档下载推荐.docx
《自编5800计算器全线隧道超欠挖程序Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《自编5800计算器全线隧道超欠挖程序Word文档下载推荐.docx（4页珍藏版）》请在冰豆网上搜索。
Prog“GCZCX”:
“H（Z）=”:
G◢
Goto1LbI2:
“X”?
X:
“Y”?
Y:
W:
“JSK”?
Prog“SJ-PM”：
Prog“FSZCX”:
“JSK”:
P◢显示实测里程“BZ（m）=”:
D◢显示实测边距
Prog“GCZCX”:
G◢显示对应里程中桩设计高程Goto2
LbI3
40→DinZ
“H（S）”?
S:
“BJ（°
“JSK”?
P◢“BZ（m）=”:
D◢
Prog“CQWZCX”:
“CQW=”:
Z[25]◢显示超欠挖+为超—为欠Goto3
注：
P输入待求点里程
D输入待求点边距
X输入实测X
Y输入实测Y
“H（S）”?
S输入实测Z
W输入线路夹角
输入反算点大致里程2.ZDYS
5→DimZ↙
Prog“SJ-PM”
IfE<
1:
Then10^（-9）→E:
Ifend↙IfK<
Then10^（-9）→K:
Ifend↙E2÷
（24R）-E^（4）÷
（2688R^（3））→Z[1]↙E÷
2-E^（3）÷
（240R2）→Z[2]↙（E2-K2）÷
（24R）÷
sin（Abs（O））→X↙（字母）“T1=”：
（R+Z[1]）tan（Abs（O）÷
2）+Z[2]-X→Z[3]◢（字母）“T2=”：
（R+K2÷
（24R）-K^（4）÷
（2688R^（3）））tan（Abs（O）÷
2）+K÷
2-K^（3）÷
（240R2）+X→Z[4]◢“L=”：
Abs（O）πR÷
180+（E+K）÷
2→L◢（字母）tan-1（（R+Z[1]）÷
（Z[3]-Z[2]））→J↙“E=”:
（R+Z[1]）÷
sin（J）-R→X◢A-Z[3]→X：
X+E→Y↙IfE<
Then“ZY=”：
X◢Else“ZH=”：
X◢Ifend↙“HY=”：
Y◢“QZ=”：
X+E+（L-K-E）÷
2→Y◢X+L-K→Y：
X+L→X↙IfK<
Then“YZ=”：
X◢Else“YH=”：
Y◢Ifend↙“HZ=”：
X◢
ZSZCX（平曲线正算子程序）Prog“ZDYS”
LbI1↙F→J↙B-Z[3]cos（F）→X↙C-Z[3]sin（F）→Y↙E→G↙IfP≤A-Z[3]:
ThenA-Z[3]-P→I:
-I→M:
0→N:
F+W→H:
Goto5：
IfEnd↙（数字）IfP≤A-Z[3]+E:
ThenP-A+Z[3]→I:
90I2÷
（REπ）→H:
O<
0=>
-H→H：
H+W+F→H:
Goto3:
IfEnd↙（前面字母，后面数字）IfP≤A-Z[3]+L-K:
ThenP-A+Z[3]-E→I:
Goto4:
ElseGoto2:
IfEnd↙LbI2↙B+Z[4]cos（F+O）→X↙（字母）C+Z[4]sin（F+O）→Y↙（字母）F+O+180→J↙（字母）K→G↙IfP≤A-Z[3]+L:
ThenA-Z[3]+L-P→I:
（RKπ）→H:
O>
-H→H：
H+J+W+180→H:
Goto3:
ElseP-A+Z[3]-L→I:
J+W+180→H:
Goto5：
IfEnd↙
LbI3↙I-I^（5）÷
（40（RG）2）→M↙I^（3）÷
（6GR）-I^（7）÷
（336（RG）^（3））→N↙Goto5↙LbI4↙（E+2I）×
90÷
（πR）→H↙Rsin（H）+Z[2]→M↙R（1-cos（H））+Z[1]→N↙O<
-H→H↙（前面字母，后面数字）J+H+W→H↙Goto5↙LbI5↙IfP≤A-Z[3]+L-K:
ThenO<
-N→N:
ElseO>
-N→N:
Goto6:
IfEnd↙
LbI6↙X+Mcos（J）-Nsin（J）+Dcos（H）→X↙Y+Msin（J）+Ncos（J）+Dsin（H）→Y↙3SJ-PM（平面数据库）
IFP
交点终点里程AndP
交点起点里程：
Then交点桩号
A:
交点X
B:
交点Y
C:
方位角
F:
转角（右+，左-）
O:
半径
R:
第一缓和段
E:
第二缓和段
K:
Ifend
4GCZCX
20
DimZ
Prog“SJ-GC”
C-Z[19]→F↓小里程坡度-大里程坡度Abs（RF÷
2）→T↓求切线长R（Abs（F）÷
F）→R（判断凹凸曲线）:
IfP≤B-T:
Then0→K:
ElseIfP≥B+T:
Z[19]→C:
ElseP-B+T→K:
IfEnd:
IfEnd↓A-（B-S）C-K2÷
（2R）+（D*横坡）→G↓下划线计算左右边桩高程加入
5高程子程序SJ-GCIfP≤（下一竖曲线起点里程）AndP
:
Then（变坡点高程）→A:
（变坡点里程）→B:
（小里程坡度）→C:
（大里程坡度）→Z[19]:
（竖曲线半径）→R:
IfEnd
6FSZCX（平曲线反算子程序）X→U:
Y→V:
0→D:
F-W→J↙（数字）A+（Y-C）cos（J）-（X-B）sin（J）→P↙LbI7↙Prog“ZSZCX”↙H-180→J↙（V-Y）cos（J）-（U-X）sin（J）→I↙IfAbsI<
10^（-4）:
ThenGoto8:
ElseP+I→P:
Goto7:
IfEnd←┘LbI8↙（V-Y）÷
sin（H）→D↙
7CQWZCX
40→DimZ回车
Prog“SD”回车
IfS≥G+Z[25]:
Then
（S-（G+Z[21]））2+（D-Z[31]）2）-Z[32]→Z[36]:
IfEnd回车IfS≤G+Z[25]AndS≥G+Z[26]:
（S-（G+Z[22]））2+（D-（Z[31]+Z[28]）2）-Z[33]→Z[36]:
IfEnd回车IfS≤G+Z[26]AndS≥G-Z[27]:
（S-（G+Z[23]））2+（D-（Z[31]+Z[37]）2）-Z[34]→Z[36]:
IfEnd回车
IfS<
G-Z[27]:
（S-（G+Z[24]））2+（D-Z[31]）2）-Z[35]→Z[36]:
8SD（隧道数据库）
IfD
0:
Then2.21→Z[21]:
2.27→Z[22]:
1.21→Z[23]:
11.8→Z[24]:
5.725→Z[25]:
0.146→Z[26]:
1.9936→Z[27]:
0.1→Z[28]:
2.4→Z[31]:
7.03→Z[32]:
6.91→Z[33]:
3.46→Z[34]:
14.57→Z[35]:
3.386→Z[37]:
Ifend回车
-0.1→Z[28]:
-3.386→Z[37]:
仅供个人用于学习、研究；
不得用于商业用途。
notforcommercialuse.
Nurfü
rdenpersö
nlichenfü
rStudien,Forschung,zukommerziellenZweckenverwendetwerden.
Pourl'
é
tudeetlarechercheuniquementà
desfinspersonnelles;
pasà
desfinscommerciales.
толькодлялюдей,которыеиспользуютсядляобучения,исследованийинедолжныиспользоватьсявкоммерческихцелях.
以下无正文
升级会员 