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

1、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

2、 0:Prog “A” 第 3 行： Pol(C-N,D-E) 第 4 行： List An s1 fl 第 5 行： List An s2fJ 第 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偏距（左负右正） 3. 计算坐标子程序 （ 命名为 XYF） 为了简洁，本程序由数据库直接调用，上述中的正反算主程序不直接调用此程序 第1

3、行： 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 4. 数据库（命名为 A） 第 1 行：KW 175.19仁Stop 第 2 行： 175.191 tA:428513.730 f N:557954.037 f E:92 26 40t F:0 f P:1/240 f Q:70.417 f L: KGoTo 1 （第一缓和曲线，圆半径为240） 第 3 行：245.6

4、07 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

5、:0 f P:- 1/180fQ:67.222fL: KGoto 1:Stop （第一缓和曲线，圆半径为180） 第 6 行： Lbl 1:Prog “XYF” A曲线段起点的里程 N曲线段起点的 x坐标 E曲线段起点的y坐标 F曲线段起点的坐标方位角 P曲线段起点的曲率（左负右正） Q曲线段终点的曲率（左负右正） L 曲线段长度（尽量使用长度，为计算断链方便） 说明： （1）在 9860 中，程序中所有公式和部分函数结果均存储在 List Ans 列表数组中，要想多 次调用最好随公式取出结果，并赋给变量。 （2）正算主程序可以计算一般边桩的坐标，如要计算类似涵洞端墙的坐标需增加第二偏距 和转

6、角两个变量。 （3）程序规定，左偏曲线曲率（半径倒数）输入负值，右偏曲线曲率输入正值，直线上点 曲率输入 0，例如直线段，线元起点和终点均输入0，第一缓和曲线分别输入0 和圆半径的 倒数，圆曲线均输入半径倒数，第二缓和曲线分别输入圆半径倒数和0，卵形曲线分别输 入对应圆半径的倒数 （4） 若是从大里程向小里程的反方向计算，则曲率取正方向时的负值，方位角减去（或加 上）180 度。 （5）有多个匝道的项目，可随时更改正反算主程序中的红色字体部分来调用其它线路的数 据 （ 6）反算桩号偏差为 1mm （7）可以计算任意线型的任意点坐标 5. 坐标计算通用程序 （命名为 ZB） 本程序与上述中的几个

7、程序无关，是在计算坐标时采用输入曲线元参数模式下的程序，为 临时使用方便。 第 1 行：” K0=“? A: ”X0=“? N:” Y0=“？E:” F0= “？F: ” 1-R仁“？P:” 1-R2= “?Q : “L0= “?L 第 2 行： Lbl 0: ” K=” ?K: ” BIAN= ? Z: ” a =” ?B 第 3 行： Abs(K-A) t S: (Q-P) - Lt I 第 4 行： N+/ (cos(F+X(2P+XI) X 90- n ),0,S) T 第 5 行： E+/ (sin(F+X(2P+XI) X 90- n ),0,S) ty 第 6 行： ” F=” :F+S(2P+SI) X 90- n 丄(可省掉) 第 7 行： ” X=” :X+Z