采用积分进行任意曲线线路坐标计算程序(直线、圆曲线、卵型曲线)

《采用积分进行任意曲线线路坐标计算程序(直线、圆曲线、卵型曲线)》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、采用积分进行任意曲线线路坐标计算程序（直线、圆曲线、卵型曲线）采用积分进行任意曲线线路坐标计算程序(直线、圆曲线、卵型曲线)程序名“XLJS”G“XJ=”：H“YJ=”：R“XH=”：S“YH=”：A“XA=”：B“YA=”：C“TA=”：E“1+RA,Z-，Y+”：P“KA=”？Lbll:{FQ}：F“1+RB,Z-，Y+”：Q“KB=”？Lbl2：{V}：V“K=”：0=V：0<P=>Goto3：关>Goto4?Lbl3：“K-SMALL”：Goto2?Lbl4：0>Q=>Goto5：7^>Goto7?Lbl5：{I}：I“l=l=>E

2、SC关>NEXT”：l=l=>；Goto2：关>Goto6?Lbl6：“JISUAN:A-TXY”：V=Q：Z=0：D=0：Goto8?Lbl7:{DZ}：Z“JIA-JIAO=”：D“WAIYI:(Z-,Y+)”？Lbl8：T=C+90+X(2E+(F-E)(V-P)4-(Q-P))(V-P)：T〈0=〉T=T+360Z1T〉360=〉T=T-36OZI?Rad：W=A+；(cos(C°+0.5X(2E+(F-E)(X-P)+(Q-P))(X-P)),P,V,4)+DXcos(T°+Z°)?Y=B+；(sin(C°+0.5X(2E+(F-E)(X-P)+(Q-P)

3、)(X-P)),P,V,4)+DXsin(T°+Z°)：Deg：Goto9?Lbl9：=>GotoB：笑>GotoA?LblA：A=W：B=Y：C=T：E=F：P=Q：Gotol?LblB：W“X=”iT“T=”JPol（R-G,S-H）：Fixm：M=J：Pol（W-G,Y-H）:J=J-M?J<O=>；J=J+360ZlJ>；360=>J=J-360ZJ“A=”iI“S=”2Goto2程序积分式中“°”的编辑输入为：“FUNCTION”键+5（DRG）+4（°）。程序功能由于程序根据线路曲线坐标计算通用数学模型编制，所以，对于任意线型的一段线路曲

4、线（直线、圆曲线可看作是通用计算模型的特例），只要输入曲线信息和测站信息，都可以迅速地计算出该曲线上任意里程点处的切线方位、中桩或与该里程切线成任意夹角的外移桩坐标、极坐标法放样的角度和距离。程序运行运行程序“XUS”，按提示输入置镜点坐标（X」，Yj）,后视点坐标（XH,YH）,曲线起点A的坐标（XA,YA）、沿线路前进方向的切线方位角TA、里程KA、曲率（直接在计算器上以1+RA的形式输入，R表示半径，左偏曲线输负值厶偏曲线输正值），继续输入终点B的曲率（1+RB输入同A点）、里程KB。当屏幕显示“K=?”时，输入该段曲线要计算放样数据的里程值，按提示输入夹角“jIA-jIAO

5、”（夹角的范围为0-180度）和外移量“WAIYI”，“jlAJIAO”值为该里程&线路前进方向的切线方位角顺时针至该里程中桩与右边桩连线间的角度，当为法线方向时jlAJIAO为90度，“WAIYI”值中桩左侧输负值心侧输正值，计算中桩时“WAIYI”值输0即可，按“EXE键”屏幕即可依次显示计算中桩或外移桩的坐标、中桩切线方位角、放样角度A，放样距离S。程序的输入输出都按通俗易懂的提示或测量习惯显示，为确保计算结果无误，编制程序时专门设置了错误里程输入提示，当输入的计算里程K小于该曲线起点里程时，程序将提示里程太小“K-SMALL”，继续输入正确的里程，当第一条曲线计算完毕需计算

6、紧接的第二条曲线时，只需要给K输入一个大于第一曲线终点里程的里程值，这时屏幕显示“l=l=>ESC矣>NEXT”，如果不小心误输入一个大于终点里程的K时（ESC表示取消），可输入1“取消”操作，继续计算当前曲线，如果确认要计算下一曲线（NEXT表示要计算下一曲线），输入一个不等于1的数值，接下来屏幕将显示“JISUAN:A-TXY”，程序将自动计算第二曲线的起点信息，接着自动提示输入第二曲线终点的曲率和里程，当显示“K=?”时，即可进行第二曲线放样数据的计算。依次类推，直至计算完所有需计算的曲线中、边桩坐标和放样数据。迁站时，直接按“AC”键终止程序的运行，到新的测站后

7、重新运行“XLJS”,输入新的测站点、后视点坐标并保持原曲线参数不变即可。当遇到线路曲线的曲率发生突变（如直线直接接圆曲线或者两个不同半径的圆曲线直接相接）的特殊情况时，可以将突变点两侧的曲线分开单独进行计算，也可以在突变点处增加输入一段微小长度的回旋线把突变点两侧的曲线连接起来，增加一段长度为0.0001米长度的回旋曲线，不会影响计算结果的精度。比如某直线直接连接半径为R的圆曲线，计算完直线段需要接着计算圆曲线时，先输入微小长度的回旋线（1/RB=1/R,1^=直线