带状线路坐标正反算计算程序.pdf

《带状线路坐标正反算计算程序.pdf》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、装饰装修天地带状线路坐标正反算计算程序12肖宏问晓娟1.陕西省澄城县五一渠管理处陕西省7152002.陕西省澄城县水利电力工作队陕西省715200摘要：带状线路测设线均由直线、圆曲线和缓和曲线3种线元O—线元起点里程；U—线元起点里程对应的复数形式高斯平构成，本文基于改建铁路广通至大理路线图介绍了CASIOfx-面直角坐标；9860GⅡSD编程计算器将设计文件高斯平面直角坐标系转化为G—线元起点方位角；H—线元长度；P—线元起点半径；R—线以测设线为基准的施工坐标系的坐标正反算计算程序。元终点半径；关键词:

2、高斯平面直角坐标系；施工坐标系；坐标正反算直线段：P、R均输1045（无穷大）；圆曲线：P、R均输圆曲线半径；缓和曲线：按线路前进方向，小里程为P、大里程为R，靠近圆一、程序曲线端输圆曲线半径，靠近直线端输1045（无穷大）；1.主程序：测设线坐标正反算Q—线元类别，直线输0；圆曲线和缓和曲线，面向路线前进方Norm2:Deg:File3:Fix4:0→Y:1→DimList1:List1→List2:List向，左转弯输-1，右转弯输1。1→List3:“LC”→List1[0]:“BJ”→List2[0

3、]:“X+Yi”→List3[0]:Lbl1.3条件S—输入线元起终点里程。0:Menu“ZS→1”,1,“FS→2”,2:Lbl1:Y+1→Y:“LC=”?→S:S→List12.正算[Y]:“BJ=”?→Z:Z→List2[Y]:Prog“TJ”:Prog“QXYS”:Prog“P1”:需输入参数为：LC=？输入里程；BJ=？输入测设线边距；“XS，YS=”:X⊿X→List3[Y]:Goto1:运算结果：XS,YS=为输入参数对应的以复数形式显示的高斯Lbl2:Y+1→Y:IfList1[1]=0:T

4、hen“PBS=”?→S:S→List1[Y]:平面直角坐标。ElseList1[Y-1]→S:IfEnd:Prog“TJ”:Prog“QXYS”:“X=”?→X:X→三、反算List3[Y]:Prog“P2”:Prog“TJ”::Prog“QXYS”:Prog“P1”:IfAbs(ReP需输入参数为：PBS=？输入判别数(对应线元任意里程值)；(X-List3[Y]))>0.002OrAbs(ImP(X-List3[Y]))>0.002:ThenS→List1X=？输入以复数形式显示的高斯平面直角坐标值X

5、+Yi；运算结[Y]:0→List2[Y]:Goto2:IfEnd:“LC=”:S⊿果：LC=显示输入参数对应里程；BJ=显示输入参数对应测设线S→List1[Y]:“BJ=”:Z⊿Z→List2[Y]:Goto2:边距。2.子程序四、程序曲线要素2.1TJ(线元判别条件)缓IfS≥138677.758AndS＜138787.758:Then1→J:IfEnd:IfS≥曲和切夹138787.758AndS＜139681.5452:Then2→J:IfEnd:IfS≥线曲线曲直139681.5452AndS＜

6、139791.545:Then3→J:IfEnd:IfS≥139791.545交点坐标曲线里偏角半线长线线AndS≤140597.845:Then4→J:IfEnd:Return交程径长点长度长2.2QXYS(线元曲线要素)度T度度号R:IfJ=1:Then138677.758→O:2818182.3813+504701.2384i→U:lJD309°20′27.8″→G:110→H:10^45→P:5000→R:1→Q:IfEnd:IfJ=2:坐ZHHZThen138787.758→O:2818252.4

7、253+504616.4227i→U:309°58′坐标(m标或或azay(m)(m)(m)(m)16.69″→G:893.7872→H:5000→P:5000→R:1→Q:IfEnd:IfJ=3:ThenE)NZYYZ139681.5452→O:2818884.6033+503986.2787i→U:320°12′48.06″→G:110→H:5000→P:10^45→R:1→Q:IfEnd:IfJ=4:Then139791.545→28113314°5077135+148O:2818969.6444+5

8、03916.5084i→U:320°50′36.97″→G:806.3008→H:564+32'4534744.4296.1420.2.632510^45→P:10^45→R:0→Q:IfEnd:Return5.4937.54.00054083487437.272.3P1Abs(S-O)→W:Prog”Z”:Return938449"12.4P2Prog“F”:O+W→S:Return28113811°2.5Z(