- 1、本文档共4页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
5800程序汇总
1. 主程序(ZBJS)
Lbl 4:1.SZ = XY:2.XY = SZ:?N:?S:Prog“SUB0”↙
1÷P→C: (P-R)÷(2HPR) →D:180÷∏→E:N=1 = Goto1: Goto2:↙
Lbl 1:? Z: Abs(S-O) →W:Prog SUB1: XS=:X◢
YS=:Y◢
F-90→F: “FS=”:F▲DMS◢
Goto4↙
Lbl 2:?X: ?Y:X→I:Y→J: Prog“SUB2”:O+W→S:“S=”:S◢
“Z=”:Z◢
Goto4↙
2. 正算子程序(SUB1)
0.1739274226→A: 0.3260725774→B: 0.0694318442→K: 0.3300094782→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))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD))) →Y:
G+QEW(C+WD)+90→F: X+Zcos(F)→X: Y+Zsin(F)→Y
2. 反算子程序(SUB2)
G-90→T: Abs(Y-V)cosT-(X-U)sinT) →W
0→Z:Lbl 0:Prog SUB1
T+QEW(C+WD) →L: (J-Y)cos(L)-(I-X)sin(L)→Z:IF Abs(Z)1E-6:Then0→Z:Prog SUB1: (J-Y)÷sin(F)→Z:Else W+Z→W:Goto0:IfEnd
SUB0 数据库子程序
Goto1↙ 同时保存多个曲线时的指针
Lbl 1:IF S***(线元终点里程):Then***→G(线元起点方位角):***→O(线元起点里程):***→U(线元起点X):***→V(线元起点Y):***→P(线元起点曲率半径):***→R(线元终点曲率半径): ***→H(线元起点至终点长度):0或1、-1→Q:Return:IfEnd↙
IF S***(线元终点里程):Then***→G(线元起点方位角):***→O(线元起点里程):***→U(线元起点X):***→V(线元起点Y):***→P(线元起点曲率半径):***→R(线元终点曲率半径):***→H(线元起点至终点长度):0或1、-1→Q:Return:IfEnd
……………..
说明正算:
1:运行主程序ZBJS,选择1.SZ=XY(正算坐标)2.XY=反算坐标。
2:S? 输入里程 Z?输入偏距(0为中桩,-1为左,1为右)
3:XS 计算出所在里程的X坐标
YS 计算出所在里程的Y坐标
FS 线路方位角
4:按EXE返回程序。
坐标反算:
1:运行主程序ZBJS,选择1.SZ=XY(正算坐标)2.XY=反算坐标。
2:S?输入所求大约里程
3:X?输入已知X坐标,Y?输入已知Y坐标
4:S=计算出所求里程。Z=偏离中线距离,一般很少,可以省略。
5:按EXE返回程序。
以下是广三高速8标的线元要素:
IF S26873.225(线元终点里程):Then293度03分43.1秒→G(线元起点方位角):25305.836→O(线元起点里程):2561273.902→U(线元起点X):493212.208→V(线元起点Y):*10的45次方→P(线元起点曲率半径):10的45次方→R(线元终点曲率半径):1567.389→H(线元起点至终点长度):0→Q:Return:IfEnd
IF S27173.225(线元终点里程):Then293度33分43.1秒→G(线元起点方位角):26873.225→O(线元起点里程):2561900.451→U(线元起点X):491775.495→V(线元起点Y):*10的45次方→P(线元起点曲率半径):2000→R(线元终点曲率半径):300→H(线元起点至终点长度):1→Q:Return:IfEnd
IF S27719.625(线元终点里程):Then297度51分33秒→G(线元起点方位角):27173.225→O(线元起点里程):2562027.179→U(线元起点X):491503.658→V(线元起点Y):*2000→P(线元起点曲率半径):2000→R(线元终点曲率半径):546.40→H(线元起点至终点长度):1→Q:Return:IfEnd
您可能关注的文档
- 01Chapter01精选.ppt
- 1.1.1任意角精选.doc
- 1.1.1算法与程序框图精选.doc
- 1.1.3集合的基本运算(并集与交集)精选.ppt
- 1.2.1任意角的三角函数(一)精选.doc
- 1.2.2同角三角函数的基本关系精选.doc
- 1.2.1任意角的三角函数(二)精选.doc
- 1.2.1基本算法语句精选.doc
- 1.2.2基本算法语句精选.doc
- 1.2.1应用举例精选.ppt
- 某某单位2024年党建工作总结及2025年工作计划.doc
- 某某市发改委关于2024年度落实党风廉政建设工作责任制情况的报告.doc
- 某某局2024年全面从严治党和党风廉政建设工作总结.doc
- 某某区财政局2024年法治政府建设总结及2025年工作谋划.doc
- 2024年党管武装工作述职报告2篇.doc
- 2024年度国企党委书记抓基层党建工作述职报告3篇.doc
- 公司党委书记2024年述职述廉报告.docx
- 2024年度乡镇党委领导班子民主生活会(四个带头)对照检查材料.doc
- 市医疗保障局关于2024年法治政府建设工作情况的报告.docx
- 市民政局党组2024年巡察整改工作情况报告.docx
文档评论(0)