道路坐标正反算无限个拐点计算器测量程序(新20070825).docxVIP

道路坐标正反算无限个拐点计 算器测量程序( 道路坐标正反算4800 一、程序功能及原理 1.功能说明：本程序由一个主程序(TYQXjs)和两个子程——正算子程序(SUB1)、反算子程序(SUB2) 序组成，能够根据曲线段——直线、圆曲线、和缓曲线（完整或非完整型）的线元要素（起点坐标、 起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲 线段范围内随意里程中边桩坐标进行正反算。此外也能够将本程序中核心算法部分的两个子程序移植 到其余有关的程序中，用于对曲线随意里程中边桩坐标进行正反算。本程序也能够在CASIOfx-4500P 计算器及CASIOfx-4850P计算器上运行。 2．计算原理：利用Gauss-Legendre5点通用公式计算线路中边桩坐标并计算放样数据。 二、源程序 1.主程序(TYQXjs) Defm2 Lbl1：N=1：{N}：1.SZ=XY：2.XY=SZ：N：Prog”DAT1”:UX0：VY0：OS0：GF0： HLS：PR0：RRN：Q：C=1÷P：D=(P-R)÷(2HPR)：E=180÷π：N=1=Goto1：≠Goto2Δ← T=90：Z=0：{SZT}：SZ:T”ANG”：W=Abs(S-O)：ProgSUB1：XS=:X=X◢ YS=:Y=Y◢ Goto3←┘ Lbl2：{XY}：XY：I