4800曲线任意里程中边桩坐标正反算.docVIP

曲线任意里程中边桩坐标正反算 CASIO fx-4800P计算器 程序一、程序功能 本程序由一个主程序 TYQXJS 和两个子程——正算子程序 SUB1 、反算子程序 SUB2 序构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。另外也可以将本程序中核心算法部分的两个子程序移植到其它相关的程序中，用于对曲线任意里程中边桩坐标进行正反算。本程序也可以在CASIO fx-4500P计算器及 CASIO fx-4850P计算器上运行。?? 特别申明： 1 . 适用于弧长小于2倍半径的各种线元坐标正反算，精度优 于1mm； 2 . 在引用该核心计算部分时，请注明来源。二、源程序1.主程序 TYQXJS 1.SZ XY：2.XY SZ：N：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： SZ ：SZ：W Abs S-O ：Prog SUB1：XXS XYYS Y◢FFS F-90◢Goto 1←┘Lbl 2： XY ：XY：I X：J Y：Prog SUB2：