CASIO5800坐标正反算计算程序

CASIO 9860/5800坐标正反算计算程序1. 坐标正算主程序(命名为ZBZS)第1行：Lbl 0:”K=”?K:”BIAN=”? Z:”=”?B第2行：Prog “A”第3行：”X=”:N+Zcos(F+B)第4行：”Y=”:E+Zsin(F+B)第5行：”F=”:F第6行：Goto 0K计算点的里程BIAN计算点到中桩的距离（左负右正）取前右夹角为正2. 坐标反算桩号和偏距主程序(命名为ZBFS)第1行：”X1=”? C:”Y1=”?D: ”K1=”?K第2行：Lbl 0:Prog “A”第3行：Pol(C-N,D-E)第4行：List Ans1I第5行：List Ans2J第6行：Icos(F-J)S:K+SK第7行：Abs(S)0.0001=Goto 0第8行：”K1=”:K第9行：”BIAN=”:Isin(J-F)ZX1取样点的X坐标Y1取样点的Y坐标K1输入时为计算起始点(在线路内即可)，输出时为反算点的桩号Z偏距（左负右正）3. 计算坐标子程序(命名为XYF)为了简洁，本程序由数据库直接调用，上述中的正反算主程序不直接调用此程序第1行：K-AS：(Q-P)LI第2行：N+(cos(F+X(2P+XI)90),0,S)N第3行：E+(sin(F+X(2P+XI)90),0,S)E第4行：F+S(2P+SI)90F4. 数据库（命名为A）第1行：K175.191=Stop第2行：175.191A:428513.730N:557954.037E:922640F:0P:1/240Q:70.417L:KA+L =GoTo 1（第一缓和曲线，圆半径为240）第3行：245.607A: 428507.298N:558024.092E: 1005059.4F: 1/240P:1/240Q:72.915L: KA+L =Goto 1（第圆曲线，半径为240）第4行：318.522A: 428482.988N:558092.538E: 1181525.2F: 1/240P: 0Q: 55.104L: KA+L =Goto 1（第二缓和曲线，圆半径为240）第5行：373.627A:428453.283N:558138.912E:124504.5F:0P:-1/180Q:67.222L:KA+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）可以计算任意线型的任意点坐标5. 坐标计算通用程序(命名为ZB)本程序与上述中的几个程序无关，是在计算坐标时采用输入曲线元参数模式下的程序，为临时使用方便。第1行：”K0=“? A:”X0=“? N:”Y0=“?E:”F0=“?F:”1R1=“?P:”1R2=“?Q”:“L0=“?L第2行：Lbl 0:”K=”?K:”BIAN=”? Z:”=”?B第3行：Abs(K-A)S：(Q-P)LI第4行：N+(cos(F+X(2P+XI)90),0,S)X第5行：E+(sin(F+X(2P+XI)90),0,S)Y第6行：”F=”:F+S(2P+SI)90（可省掉）第7行：”X=”:X+Zcos(Z+