线任意里程中边桩坐标正反算CASIOfx-4850P计算器程序修改版.docVIP

线任意里程中边桩坐标正反算(CASIO?fx-4850P计算器)程序（修改版）一、程序功能及原理1.功能说明：本程序由一个主程序(TYQXjs)和两个子程——正算子程序(SUB1)、反算子程序(SUB2)序构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。另外也可以将本程序中核心算法部分的两个子程序移植到其它相关的程序中，用于对曲线任意里程中边桩坐标进行正反算。本程序也可以在CASIO?fx-4500P计算器及?CASIO?fx-4850P计算器上运行。2．计算原理：利用Gauss-Legendre?5点通用公式计算线路中边桩坐标并计算放样数据。二、源程序1.主程序(TYQXjs)Defm?2: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=Goto?1：≠Goto?2Δ←Lbl?1：{SZT}：SZ:T”ANG”：W=Abs(S-O)：Prog?SUB1：XS=:X=X◢YS=:Y=Y◢Goto?3←┘Lbl?2：{XY}：XY：I=X：J=Y：Prog