匝道线元法.doc

任意里程中边桩坐标正反算(CASIO fx-4800P计算器)程序时间:2007-12-18 13:13:15 来源:工测员网作者:未知1. 加编数据库作为主程序 , 计算中不必逐项输入 线元要素 , 提高运算速度，避免现场忙中出错 2. 将原来的主程序并入数据库 3. 计算直观 , 人性化 4. 正算直接输入里程和边距 , 反算输入近似里程便可 5. 增加了 “ 计算点与测站点 ” 的距离和方位角计算语句，方便直接放样 6. 愿收获与大家共享 7. 核心计算程序摘自 “yshf”1. 正算子程序 (SUB1) A=0.1739274226 ： B=0.3260725774 ： K=0.0694318442 ： L=0.3300094782 ： F=1-L ： M=1-K ： X=U+W(Acos(G+57.2958QKW(1/P+KWD)+Bcos(G+57.2958QLW(1/P+LWD)+Bcos(G+57.2958QFW(1/P+FWD)+Acos(G+57.2958QMW(1/P+MWD) ： Y=V+W(Asin(G+57.2958QKW(1/P+KWD)+Bsin(G+57.2958QLW(1/P+LWD)+Bsin(G+57.2958QFW(1/P+FWD)+Asin(G+57.2958QMW(1/P+MWD) ： F=G+57.2958QW(1/P+WD)+90 ： X=X+ZcosF ： Y=Y+ZsinF2. 反算子程序 (SUB2) T=G-90 ： W=Abs(Y-V)cosT-(X-U)sinT) ： Z=0 ： Lbl 0 ： Prog SUB1 ： L=T+57.2958QW(1/P+WD) ： Z=(J-Y)cosL-(I-X)sinL ： AbsZGoto1 ： W=W+Z ： Goto 0Lbl 1 ： Z=0 ： Prog SUB1 ： Z=(J-Y)sinF3 、 . 增设数据库程序（主程序 ） Lb1 4 ： 1.SZ = XY ： 2.XY = SZ ： NS ： S 下一线元起点里程 O = 本线元起点里程： U= 本线元起点 X ： V= 本线元起点 Y ： G= 本线元起算方位角： H= 本线元长度： P= 起点曲率半径： R= 终点曲率半径： Q=0 或 1 、 -1 ： Goto0( 第一线元数据要素 )S 下一线元起点里程 O = 本线元起点里程： U= 本线元起点 X ： V= 本线元起点 Y ： G= 本线元起算方位角： H= 本线元长度： P= 起点曲率半径： R= 终点曲率半径： Q=0 或 1 、 -1 ： Goto0( 第二线元数据要素 )S 下一线元起点里程 O = 本线元起点里程： U= 本线元起点 X ： V= 本线元起点 Y ： G= 本线元起算方位角： H= 本线元长度： P= 起点曲率半径： R= 终点曲率半径： Q=0 或 1 、 -1 ： Goto0( 第三线元数据要素 )。 Goto0( 第 N-1 线元数据要素 )。 Goto0( 第 N 线元数据要素 )LB1 0 ： D=(P-R)(2HPR) ： N=1=Goto 1 ： Goto 2Lbl 1 ： Z ： Z ： W=Abs(S-O) ： Prog SUB1 ： XXS=X YYS=Y FFS=F-90 C“XC” ： E“YC” ： I=0 ： J=0 ： Pol （ X-C ， Y-E ）： I“I=” J 0 J“J=”+360 J“J=” Goto4 Lbl 2 ： XY ： XY ： I=X ： J=Y ： Prog SUB2 ： SS=O+W ZZ =Z Goto4 三、使用说明 1 、规定 (1). 把所有相关的 ” 线元要素 “ 依次输入 ”SJK“(2). 运算时直接调用 “SJK” 运行，程序提示输入里程 “S” ？时，正算直接输入待求点里程，反算输入所求点 “ 近似 “ 里程 (3). 程序中 “XC 、 YC 、 ” 为测站坐标， “ ” 、 “ ” 为放样距离和方位角 (4) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时， Q=-1 ；当线元往右偏时， Q=1 ；当线元为直线时， Q=0 。 (5) 当所求点位于中线时， Z=0 ；当位于中线左铡时， Z 取负值；当位于中线中线右 侧时， Z 取正值。 (6) 当线元为直线时，其起点、止点的曲率半径为无穷大，以 10 的 45 次代替。 (7) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆 弧的半径。 (8) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以 10 的 45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半 径为无穷大，以 10 的 45 次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。 (9) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的 值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等 于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。 2 、输入与显示说明 输入部分： 1. SZ = XY2. XY = SZ N ? 选择计算方式，输入 1 表示进行由里程、边距计算坐标 ；输入 2 表示由坐标反算 里程和