原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
第十篇隧道多心圆非旋转断面测量通用程序（简易法）
1.坐标正算主程序 （命名为 ZBZS）
第 1 行：
Deg;Lbl 0: ” K=” ?K:
” BIAN=”?
Z:
” JIAO= ” ?B
第 2 行：
Prog “ LX”
第 3 行：
N+(Z+2.5)cos(F+B^
第 4 行：
E+(Z+2.5)si n(F+B)i
第 5 行：
? I— ?
” F=”:
FJ
第 6 行：
Prog “-LHX”:
”H=”:
H 丄 Goto 0
K――计算点的里程
BIAN――计算点到中桩的距离(左负右正)
a 前右夹角为正更改红色字体部分可调用其他线路数据库，本程序调
用 A 匝道数据显示 X 坐标
显示 Y 坐标
显示中线切线方位角，可省掉
显示设计标高
2.坐标反算桩号和偏距主程序 (命名为 ZBFS)
第 1 行：
”X1=”? C:
” Y1=” ?D:
“H1=”?G:
” K1=” ?K
第 2 行：
Lbl 0:Prog “ LX”
第 3 行：
Pol(C-N,D-E):
lcos(FJ) t S:
K+S— K
第 4 行：
Abs(S)0.0001=Goto 0 第 5 行：
”K1=”:
KJ
第 6 行：
” BIAN=”:
Isi n(JF) — Z:
Z-2.5J
第 7 行：
Prog “-LHX”:
” H-1H0=”:
G-H—HJ
第 8 行：
” R二” v2((Z2+(H-2.43)2J
第 9 行：
” H-1H0-2(43= ”:
H-2(43J
第 10 行：
Prog “-SLDX”:
Prog “ SU I DAO”
X1――取样点的X坐标
Y1――取样点的Y坐标
H1――取样点的标高
K1 输入时为计算起始点（在线路内即可），输出时为反
算点的桩号
Z――偏距（左负右正）
注：
在 9860或 9960中需将第 3 行替换为 Pol（C-N,D-E）:
List An s[1] 卩 I
List An s[2] —J
lcos（FJ） t S:
K+S—K,其他所有除数据库外的程序均保持不变可将 K1值设置为线路上的
某个桩号
更改红色字体部分可调用其他线路数据库，本程序调用 A匝道数据反算桩
号
显示到隧中偏距
显示到设计标高的高差，可进行矮边墙的放样显示到起拱线处的高差，可
进行台阶开挖或拱架固定点等的放样调用并计算超欠挖
（一）、中桩坐标计算
1?坐标计算子程序（命名为XYF公用）
为了简洁，本程序由数据库直接调用，上述中的正反算主程序不直接调用 此程序第 1 行：
K-AtS：
(Q-P) - L— I
第 2 行：
If I=0 And P=0:Then N+Scos(F) —N:
E+Ssin(F) —E :
Return:
IfEnd
第 3 行：
If 1=0 And P 半 0:Then N+2sin(Abs(SP x 180 -n ) - 2) x cos(F+SP x 90 -n
E+2sin(Abs(SP x 180 -n ) - 2) x sin(F+SP x 90 -n ) - Abs(P) — E :
Else N+ j (cos(F+X(2P+XI) x 90-n ),0,S) — N:
E+/ (sin(F+X(2P+XI) x 90 -n ),0,S) — E:
IfEnd
第 4 行：
F+S(2P+SI) x 90-n— F
2.平曲线数据库(命名为 LX)
第 1 行：
K 193516.436=Stop超出后程序显示 Done)
第 2 行：193516.436—A:
.8221 —N:481703.5537 —E:322. ———
第 3 行： 194643.183—A:
.7969 —N:
481082.436 — E:330. — P:
0— Q:570 — L:
K A+L =Goto 1第二缓和曲线)
第 4 行：195213.183—A:
.6352 —N:
480814.0763 —E:332.591975 —F:
0—P:
0—Q:
786．817—L:
K A+L=Goto 1:Stop直线，超出后程序显示 第 5 行： 196000—A:
.9688 —N:
435733.6695 —E:332. —F:
0—P:
0—Q:
503.255 —L:
K A+L=Goto 1:Stop直线，超出后程序显示 第 6 行：
Lbl 1:Prog “XYF”
A――曲线段起点的里程
Done)Done)N――曲线段起点的x坐标
Done)
Done)
E――曲线段起点的y坐标
F 曲线段起点的坐标方位角
P——曲线段起点的曲率（左负右正）
Q——曲线段终点的曲率（左负右正）
L――曲线段长度（尽量使用长度
文档评论（0）