线元法计算器兼匝道程序

线元法计算器兼匝道程序

ID:21975147

大小:44.50 KB

页数:6页

时间:2018-10-26

线元法计算器兼匝道程序_第1页
线元法计算器兼匝道程序_第2页
线元法计算器兼匝道程序_第3页
线元法计算器兼匝道程序_第4页
线元法计算器兼匝道程序_第5页
资源描述:

《线元法计算器兼匝道程序》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库

1、WORD文档下载可编辑5800计算程序主程序QXJSLbI0:“1.SZ=>XY”:“2.XY=>SZ”“3.GC=>SQX”:?Q:Q=1=>Goto1:Q=2=>Goto2:Q=3=>Goto3LbI1:“CE:X”?G:“CEY:”?H:Prog“XLXY”:LbIA:“K=”?S:Prog“KM”:“-B,0,B=”?Z:“σ右交角=”?M:Prog“SUB1”:Fix4:Cls“X=”:Locate3,1,N◢“Y=”:Locate3,1,E◢Prog“JI”:GotoALbI2:“X=”?B:“Y=”?C:B→N:C→E:Prog“S

2、UB2”:“K=”:S◢“-B,0,B=”:Z◢Goto0LbI3:0→B:“H-B”?B:B→Z[9]:LbID:Prog“XLXY”:“KM”?Z:Prog“KM”:“-B,0,B”?D:Prog“H”Fix5:“H=”:H-Z[9]→H◢“I=”:I◢GotoD说明:Q:代表正反算及竖曲线,其中1为正算,2为反算;3代表竖曲线;S:代表里程;Z:代表偏移距离;M:代表偏移角度(以线路前进方向为X方向,顺时针转为正;N:X坐标;E:Y坐标;F:切线方位角;SUB1正算子程序0.5(1÷R-1÷P)÷L→D:S-O→XU+∫(cos(A+(X÷

3、P+DX2)×180÷π,0,X)→NV+∫(sin(A+(X÷P+DX2)×180÷π,0,X)→E技术资料专业分享WORD文档下载可编辑A+(X÷P+DX2)×180÷π→FN+Zcos(F+M)→N:E+Zsin(F+M)→EReturnSUB2反算子程序Lbl1:0→Z:1→Q:Prog“KM”:Prog“SUB1”Pol(N-B+10^(-46),E-C+10^(-46)):Isin(F-90-J)→W:S+W→SIfAbs(W)>0.0001:ThenGoto1Lbl2:0→Z:Prog“SUB1”:(C-E)÷sin(F+90)→Z

4、次程序JIClstatPol(N-G,-E-H):ClsIfJ<0:ThenJ+360→Y:EaseJ→Y:Ifend“FJL=”:I◢“FWJ=”:Y▲DMS◢XLXZ(线路选择)1→I:“XLXZ:Z=1:A=2,B=3,C=4,D=5,E=6,F=7,L=8”?I:I→Z[1]:IFI=0:ThenGoto0:ElseGoto1:IfEndLbI0:“F”?A:“QDZH”?O:“X”?U:“Y”?V:“R1”?P:“R2”?R:“L”?L:Goto1LbI1技术资料专业分享WORD文档下载可编辑SUB0(数据库)Goto1↙Lbl1IFS

5、<157687.528:Then157547.528→o:2884169.2517→U:471475.6573→V:98°32′43.08″→A:10^45→P:10000;→R:140→L:Return:IfEnd说明:S:里程;O为线元起点里程;U为线元起点X坐标;V为线元起点Y坐标;A线元起点切线方位角;P线元起点半径(左转为负右转为正);R线元终点半径(左转为负右转为正)高程计算子程序(H)程序名:HProg“S1”:C-T→F:Z-F→S:C+T→E:G-TI→Q:IfT=O:ThenQ+SI→H:Goto0:ElseIfZ

6、nQ+SI→H:Goto0:ElseIfZ≤E:ThenQ+SI+S2÷2÷R→H:Goto0:LbI0:H:IfD=0:ThenGotoI:ElseProg“I”:H+V→H:GotoILbII高程超高计算程序(I)程序名:IIfZ[3]=1:ThenProg“I1”:Goto1:IfEndLbI1:IfW=1:ThenGotoZ:ElseGotoX:IfEndLbIZ:IfS=0:ThenAbs(D)×M→V:Goto2:ElseAbs(D)×((N-M)×(Z-C)÷S+M)→V:Goto2:IfEnd:LbIX:IfS=0:ThenAbs

7、(D)×M→V:Goto2:ElseAbs(D)×(((3((Z-C)÷S)2-2((Z-C)÷S)∧(3))×(N-M))+M)→V:Goto2:IfEnd技术资料专业分享WORD文档下载可编辑LbI2:Abs(D)→E:V÷E→I:I(E-K)→V②-1程序名:S1(线路1高程竖曲线要素子程序)IfZ[1]=1:ThenGoto1:ElseIfZ[1]=2:ThenProg“SA”:ElseIfZ[1]=3:ThenProg“SB”:ElseIfZ[1]=4:ThenProg“SC”:ElseIfZ[1]=5:ThenProg“SD”:Els

8、eIfZ[1]=6:ThenProg“SE”:ElseIfZ[1]=7:ThenProg“SF”:ElseIfZ[1]=8:ThenPr

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

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

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