卡西欧5800 CASIOFX(简单易用的定位放样程序).doc

卡西欧CASIOFX-5800道路坐标放样程序1，主程序TYQXJS）LB14: ”1.SZXY”: ”2.XYXZ” : ? N : ? S : Prog “ SUBO “ 1P C ： （P-R）（2HPR） D ：180 E ：N=1 Gto1 : Goto2 : LB1 1 : ? Z : Abs(S-0) W : Prog “SUB1” : “XS=” : X “YS=” : Y F -90 F : “FS=” :F DMS Goto 4 LB1 2 : ? X : ? Y : X I :YJ： Prog “ SUB2 “ : 0W S : “S= “ : S “ Z= “ : ZGoto4 2，正算子程序（SUB1）0.1739274226A：0.3260725774B：0.0694318442K：0.3300094782L：1LF：1KM：U+W(Acos(G+QEKW（C+KWD）)+Bcos(G+QELW(C+LWD)+Bcos(G+QEFW(C+FWD)+Acos(G+QEMW(C+MWD) X : VWAsinGQEKWCKWDBsinGQELWCLWDBsinGQEFWCFWDAsinGQEMWCMWDY ：GQEWCWD90F: X ZcosFX: YZsinFY3. 反算子程序SUB2 G90T ： AbsYVcosTXUsinTW : 0 Z : Lb1 4 : Prog “ SUB1” : TQEWCWDL : JYcos LIXsinLZ ：IF Abs Z IE6 : Then0Z : Prog “SUB1 “ : JYsin FZ : EIse WZ W : Goto4 :IfEnd4数据库子程序 SUB0Goto1同时保存多个曲线时旳指针LB1 1： IF S*线元终点里程 ： Then *G 线元起点方位角 ： *0线元起点里程 ; *U线元起点坐标X ： *V 线元起点坐标Y ： *P线元起点曲率 半径 ： *R线元终点曲率半径 ： *H线元起点至终点长度：0或1.-1Q：Return:IfEndLB 1 1： IF S*线元终点里程 ： Then *G 线元起点方位角 ： *0线元起点里程 ; *U线元起点坐标X ： *V 线元起点坐标Y ： *P线元起点曲率 半级 ： *R线元终点曲率半径 ： *H线元起点至终点长度 ：0或1 ，-1 Q ： Return : IfEnd为了便于解读，每增加一个线元就增加一行语句，每加一条曲线就增加一个LB 1，每增加一个工程就增加一个文件 。4. 使用说明1. 规定（！）。以道路中线的前进方向（即里程增大的方向）区分左右：当线元往左偏时，Q=- 1；当线元往右偏时；Q=1；当线元为直线时，Q=0. 2，当所求点为中线时，Z=0；当位于中线左则侧，Z取负值；当为于中线右侧时，Z取正值。（3），当线元为直线时，其起点，止点的曲率半径为无穷大，以10的45次代替。（4），当线元为圆曲时，无论其起点，止点与什么线元相接，其曲率半径等于圆弧的半径。（5）当线元为完整缓和曲线时，起点与直线相接时，曲率半径无穷大，以10的45次代替，与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替，与圆曲线相接时，曲率半径等于圆曲线的半径。（6），当线元为非完整缓和曲线时，起点与直线相接时，曲率半径 等于设计规定的值。与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值。与圆曲线相接时，曲率半径等于圆曲线的半径。2，输入与显示说明输入部分1， SZXY2， XYSZ3， N?，选择计算方式，输入1表示进行由里程，边距计算坐标；输入2表示由坐标反算里程和边距。4， S?，正算时所求点的里程，反算时为所求点的近似里程，反算时输入的近似里程不能夸线元，若夸线元的话，需进行第二次反算，并以第一次的结果做为近似里程，否则反算的里程及边距不对，Z?正算时所求点距中线的边距（左侧取负值。右侧取正值，在中线上取零）5， X?反算时所求点的X坐标。6， Y?反算时所求点的Y坐标显示部分XS正