Casio5800线元法.docVIP

Casio5800线元法（积木法）匝道坐标正反算放样程序 ????????????????????????? （歪哥版权 2009） 本程序由一个主程序2.XY和两个子程序（XY-A、XY-B）构成及各个线路的线元矩阵数据库（如P.Z、P.A等）组成，运行时只需运行主程序即可！ 本程序采用复化辛普森公式为核心，采用积木法线元定位思路架构，多线路共存，程序开始选择线路后K Or –K To Shu？提示时，执行输入一个定位桩号用于定位所在线元（若为负值程序转化为手工输入单独一段线元的要素：将显示K0?KN？X0? Y0?F0?R0?RN?ZX:-1,+1,0?等单一线元要素的输入正算；注意此时目的只是为了紧接着的下一段线元起点桩号（也就是所输入线元的终点桩号）坐标起点切线方位角计算，为了编写数据库做准备用的，故此时手输入情形下程序只可单独正算不可进行反算的！！等用手工输入单算将所有线元数据准备完毕编写为数据库时即可任意角正反算的），后面的坐标正、反算均在该线元范围内进行，该线元要素只在程序开始时运行一次（其实线元要素的显示可根据半径值负号确定所输入桩号所在的线形转向等信息），避免了每次计算桩号都要重新定位线元、计算线元要素的麻烦，适当的提高了正反计算速度，虽然存在每次执行程序只能在一个线元计算范围内计算，要计算另一个线元范围的桩号，要重新执行程序的缺点，但比起由此带来的优势，这是微不足道的；其实当K OUT！提示时只需连续两次EXE重新定位即可计算！！ 线元定位技术的采用，结合线元计算桩号范围的确定，可圆满解决公路匝道曲线中的断链情况；关于此程序断链的处理：断链前后的数据编写到一个数据库中，运行时只需记住断链前后某一个特定桩号来定位断链前后线元即可开始正常的断链前后的正反算了的。 数据库子程序采用矩阵变量的形式，使数据组织更加简洁，输入更加便捷；（全部数据库输入完毕后检查核对办法之一：逐一循环输入各个线元中的任一点桩号正算后彻底退出程序后，回到comp模式下按FUCTION----8：MATRIX-----1：EDIT----下箭头选择Mat B后回车用左右箭头键查看矩阵表中所输入该桩号所在的该段线元数据是否有误，有误则立即EXIT退出到线路数据库中找到该行修改[[]]中所错误的数值即可！！无误则可放心使用！） 程序考虑了调用数据库子程序和手工输入线元数据两种方法。 本程序采用线元定位思路故而专为应对匝道坐标计算而设，当然主线上的单交点平曲线计算也可使用的，但单交点曲线运用该程序计算的弊端是由于数据库太长占用计算器空间字节太多，故建议用交点法处理单交点曲线减少数据库容量，当然在单交点曲线线路中当不完整缓和曲线（含卵形）时，存在时此段不完整缓和曲线（含卵形）采用此线元法解决未尝不可！！ 关于下面代码中字母O和数字0，分不清者建议到word中使用编辑---查找功能自己就可区分出来！！！ ? 主程序名： ?? 2.XYClrMat:Deg:Fix 3↙ Cls :＂1Z 2A 3B＂？→I ↙(注：此处＂＂内为线路名，有几条线路就加入几条！) Cls:＂K Or –K To Shu＂?K:If K≥0:Then↙ I=1=Prog＂P. Z＂↙ I=2=Prog＂P. A＂↙ I=3=Prog＂P. B＂↙ ……………………… (注：此处必须与上述＂＂内为线路名和下面的数据库子程序名对应，有几条线路就加入几条！) Mat B[1,1]→A: Mat B[1,2]→L: Mat B[1,3]→U: Mat B[1,4]→V: Mat B[1,5]→W: Mat B[1,6]→P: Mat B[1,7]→Q: Mat B[1,8]→G↙ Else Cls:＂K0＂?A:＂KN＂?L :＂X0＂?U :＂Y0＂?V :＂F0＂?W : ＂R0＂?P :＂RN＂?Q:＂ZX:-1,+1,0＂?G:IfEnd :Cls↙ 1→O: Prog ＂XY-B＂↙ Cls:＂1.ZS 2.FS＂? →I: I=2=Goto 3↙ Cls:＂XC＂?H:＂YC＂?Z↙ LbI 1 : Cls:＂K×+×××＂?K↙ If K＞L Or K＜A : Then Cls: Locate 6,2,＂K OUT !＂◢ Stop: IfEnd↙ LbI 2: Cls:90→B: Cls:＂RJ Or 0 To K＂?B:B=0 =Goto 1:＂Z＂?T↙ Prog ＂XY-A＂↙ X+Tcos(M+B)→X↙ Y+Tsin(M+B)→Y↙ 360Frac((M+360)÷360→M↙ Pol(X-H,Y-Z : 360Frac((J+360)÷360→J↙ 2→O: Prog ＂XY-B＂:Goto 2↙ LbI 3 : Cls: ＂X＂?C:＂