自用5800p全线任意里程中边桩正反算及高程计算带超欠挖

自用5800p全线任意里程中边桩正反算及高程计算带超欠挖

ID:1013389

大小:188.00 KB

页数:11页

时间:2017-11-06

自用5800p全线任意里程中边桩正反算及高程计算带超欠挖_第1页
自用5800p全线任意里程中边桩正反算及高程计算带超欠挖_第2页
自用5800p全线任意里程中边桩正反算及高程计算带超欠挖_第3页
自用5800p全线任意里程中边桩正反算及高程计算带超欠挖_第4页
自用5800p全线任意里程中边桩正反算及高程计算带超欠挖_第5页
资源描述:

《自用5800p全线任意里程中边桩正反算及高程计算带超欠挖》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库

1、FX5800P全线任意里程中边桩正反算及高程计算带超欠挖FX5800P全线任意里程中边桩坐标正反算(加了数据库)本程序非本人原创,结合上传者长处,进行改编,愿收获和大家共享,不足之处多多指教。含竖曲线及隧道超欠挖,本程序由内蒙@文哥和师父阿玖哥共同改编完成主程序                ZBJSLbl6:"1.SZ→XY":"2.XY→SZ":?S:?N:“DYPQXSJK=”?→A:A=1=>Prog“ZP1”:A=2=>Prog“ZP2”:A=3=>Prog“YP1”:A=4=>Prog“YP2”1÷P→C:(P-R)÷(2HPR)

2、→D:180÷π→E:N=1=>Goto1:Goto2Lbl  1:?Z:?T:Abs(S-O)→W:Prog"SUB1":"XS=":X◢"YS=":Y◢"FS=":F-90►DMS◢“XC”?C:“YC”?E:0→I:0→J:Pol(X-C,Y-E):“I=”:I◢If  J∠0:Then“J=”:J+360►DMS◢IfEndIf  J>0:Then“J=”:J►DMS◢IfEnd:“DYSQXSJK=”?→B:B=1=>Prog“ZG1”:B=2=>Prog“ZG1”:B=3=>Prog“YG1”:B=3=>Prog“YG1”:Got

3、o6Lbl2?X:?Y:X→I:Y→J:Prog"SUB2":O+W→S:Cls:"S=":S◢"Z=":Z◢“DYSQXSJK=”?→B:B=1=>Prog“ZG1”:B=2=>Prog“ZG1”:B=3=>Prog“YG1”:B=3=>Prog“YG1”:Goto6如不想用偏角法放样可直接删除“XC”?C:“YC”?E:0→I:0→J:Pol(X-C,Y-E):“I=”:I◢直接里程推坐标。正算子程序  SUB10.1739274226→A:0.3260725774→B:0.0694318442→K:0.3300094782→L:1-L→

4、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-90+T)→X:Y+Zsin(F-90+T)→Y反算子程序  SUB2G-90→TAbs((Y-V)cosT-(X-U)sin(T)

5、)→W:0→ZLbl6:Prog"SUB1"T+QEW(C+WD)→L:(J-Y)cos(L)-(I-X)sin(L)→ZIFAbs(Z)<1E-6:Then0→Z:Prog"SUB1":(J-Y)÷sin(F)→Z:ElseW+Z→W:Prog"GC":Goto6:IfEnd数据库子程序    ZP1Goto1Lbl  1:IF  S<线元终点里程:Then@@@→O(线元起点里程):@@@→U(线元起点X坐标):@@@→V(线元起点Y坐标):@@@→G(线元起点计算方位角):@@@→P(线元起点半径):@@@→R(线元止点半径):@@@→

6、H(线元长度):@@@→Q(线元左、右偏标志,左偏-1,右偏1,直线为0):Return:IfEndIF  S<线元终点里程:Then@@@→O(线元起点里程):@@@→U(线元起点X坐标):@@@→V(线元起点Y坐标):@@@→G线元(起点计算方位角):@@@→P(线元起点半径):@@@→R(线元止点半径):@@@→H(线元长度):@@@→Q(线元左、右偏标志,左偏-1,右偏1,直线为0):Return:IfEnd。。。。。。。。。。。。。。。。。。。。。。。。。。。      ZG1(数据库1)Lb1  7↙CLs:?E:    (计算点

7、里程输入)If  E

8、换算成小数。GC(竖曲线)F-E→L:A-B→W:Abs(R*W/2)→I:F-I→C:F+I→D↙If  E≤C:Then  G-L*B→H:Goto5:Else

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。