任意曲线里程中边桩坐标正反算(fx5800计算器)程序一、 程序功能本程序由一个主程序(TYQXJS)和3个子程序(正算子程序SUB1)、反算子程序(SUB2)构成,可以根据曲线段直线、圆曲线、缓和曲线(完整或非完整型)的线元要素(起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径)及里程边距或坐标,对该曲线段范围内任意里程中边桩坐标进行正反算,另外也可以将本程序中核心算法部分的两个子程序移植到其他相关的程序中,用于对曲线任意里程中边桩坐标进行正反算.1. 主程序(TYQXJS)(5800P正交程序)1.SZ=XY:2.XY=SZ: 1,2?N:K0?O: X0?U: Y0?V: FWJ?G: Ls?H: +1,-1,0?Q:If Q=0:Then 10 45-P: 10 45-R:ElseR1?P: R2?R:IfEnd: 180E: N=1=Goto 1:Goto2Lbl 1:JS LCH?S: P-J?Z :Abs(S-O)W:1PC: (P-R