5800-9860计算器坐标正反算通用程序.docx

5800-9860 计算器坐标正反算通用程序 1. 坐标正算主程序 （ 命名为 ZBZS） 第 1 行： Lbl 0: ” K=”? K: ” BIAN=”? Z: ” a =”?B 第 2 行： Prog “A” 第 3 行： ”X=” :N+Zcos(F+B) 第 4 行： ” Y=” :E+Zsin(F+B) 第 5 行： ” F=” :F丄 第 6 行： Goto 0 K――计算点的里程 BIAN 计算点到中桩的距离（左负右正） a 取前右夹角为正 2. 坐标反算桩号和偏距主程序 （ 命名为 ZBFS） 第1 行： ” X1=” ? C: ” Y1=”?D: ”K1=”?K 第 2 行： Lbl 0:Prog “A” 第 3 行： Pol(C-N,D-E) 第 4 行： List An s[1] fl 第 5 行： List An s[2] fJ 第 6 行： Icos(F- J) fS: K+SfK 第 7 行： Abs(S)0.0001=Goto 0 第 8 行： ” K仁” :K丄 第 9 行： ” BIAN= :IsinJ - F)f Z丄 X1——取样点的 X坐标 Y1——取样点的 Y坐标 K1――输入时为计算起始点（在线路内即可），输出时为反算点的桩号 Z――偏距（左负右正） 计算坐标子程序 （ 命名为 XYF） 为了简洁，本程序由数据库直接调用，上述中的正反算主程序不直接调用此程序 第1 行： K-Af S: (Q-P) - LfI 第 2 行： N+/ (cos(F+X(2P+XI) X 90- n ),0,S) fN 第 3 行： E+/(sin(F+X(2P+XI) X 90- n ),0,S) fE 第 4 行： F+S(2P+SI) X 90- n fF 数据库（命名为 A） 第 1 行：KW 175.19仁〉Stop 第 2 行： 175.191 tA:428513.730 f N:557954.037 f E:92 ° 26 40〃t F:0 f P:1/240 f Q:70.417 f L: K A+L =GoTo 1 （第一缓和曲线，圆半径为 240） 第 3 行：245.607 f A: 428507.298 f N:558024.092 f E: 100 ° 50 59.4 f F: 1/240fP:1/240fQ: 72.915f L: K w A+L =Goto 1 （第圆曲线，半径为 240） 第 4 行：318.522f A: 428482.988 f N:558092.538f E: 118 ° 15 25.2 f F: 1/240 f P: 0fQ: 55.104 fL: K wA+L =Goto 1 （第二缓和曲线，圆半径为 240） 第 5 行：373.627f A:428453.283 f N:558138.912f E:124 ° 50 4.5 f F:0 f P: - 1/180fQ:67.222fL: K A+L=Goto 1:Stop （第一缓和曲线，圆半径为 180） 第 6 行： Lbl 1:Prog “XYF” A――曲线段起点的里程 N 曲线段起点的 x坐标 E 曲线段起点的y坐标 F 曲线段起点的坐标方位角 P――曲线段起点的曲率（左负右正） Q――曲线段终点的曲率（左负右正） L ――曲线段长度（尽量使用长度，为计算断链方便） 说明： （1） 在 9860 中，程序中所有公式和部分函数结果均存储在 List Ans 列表数组中，要想多 次调用最好随公式取出结果，并赋给变量。 （2） 正算主程序可以计算一般边桩的坐标，如要计算类似涵洞端墙的坐标需增加第二偏距 和转角两个变量。 （3） 程序规定，左偏曲线曲率（半径倒数）输入负值，右偏曲线曲率输入正值，直线上点 曲率输入 0，例如直线段，线元起点和终点均输入 0，第一缓和曲线分别输入 0 和圆半径的 倒数，圆曲线均输入半径倒数，第二缓和曲线分别输入圆半径倒数和 0，卵形曲线分别输 入对应圆半径的倒数 （4） 若是从大里程向小里程的反方向计算，则曲率取正方向时的负值，方位角减去 （或加 上）180 度。 （5） 有多个匝道的项目，可随时更改正反算主程序中的红色字体部分来调用其它线路的数 据 （ 6）反算桩号偏差为 1mm （7）可以计算任意线型的任意点坐标 坐标计算通用程序 （命名为 ZB） 本程序与上述中的几个程序无关，是在计算坐标时采用输入曲线元参数模式下的程序，为 临时使用方便。 第 1 行：” K0=“? A: ”X0=“? N:” Y0=“？E:” F0= “？F: ” 1-R仁“？P:” 1-R2= “?Q : “L0= “?L 第 2 行： Lbl 0: ” K=” ?K: ” BIA