任意曲线中边桩CASIO5800计算程序.docVIP

任意曲线中边桩CASIO计算程序（反算只适用直线） 主程序（TYQXJS）只适合弧长小于2倍半径 1.SZ=XY:2.XY=SZ:NN: X0 ？U: Y0 ？V: S0 ？O: F0 ？G: LS ？H: R0 ？P: RN ？R: Q？Q: 1/P →C: (P-R)/(2HPR) →D: 180/π→E:IF N=1:THEN Goto1:ELSE Goto2←┘ Lbl 1: S？S Z？Z: Abs(S-O) →W:ProgSUB1:X→X▲ Y→Y▲ Goto1←┘ Lbl 2: “X”？ X: “Y” ？Y: X →I: Y→ J:ProgSUB2: O+W →S▲ Z →Z▲ Goto2 正算子程序（SUB1） 0.1739274226 →A: 0.3260725774 →B: 0.0694318442 →K: 0.3300094782 →L: 1-L →F: 1-K →: U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD))) →X: V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD))) →Y: G+QEW(C+WD)+90 →F: X+Zcos（F） →X: Y+Zsin（F ）→Y 反算子程序（SUB2） G-90→ T: Abs((Y-V)cosT-(X-U)sinT→ W: 0 →Z:Lbl 0:ProgSUB1: T+QEW(C+WD) →L: (J-Y)cosL-(I-X)sinL →Z:AbsZ1×10(原为1E，即Z键)-6：THEN Goto1:ELSE W+Z→ W:Goto 0←┘ Lbl 1: 0→ Z:ProgSUB1: (J-Y)/sin（F）→Z 使用说明 （1）规定 1：以道路中线的前进方向区分左右；当线元往左偏时Q=-1；当线元往右偏时，Q=1；当线元为直线时Q=0。 2：当所求点位于中线时，Z=0；当位于左侧时，Z取负值；位于右侧时Z取正值。 3：当线元为直线时，其起点，终点的曲率半径为无穷大，以10的45次方代替。 4：当线元为圆曲线时，无论其起点终点与什么线元相接，其曲率半径均等于圆弧的半径。 5：当线元为完整缓和曲线时，起点或终点分别与直线相接时，曲率半径为无穷大，以10的45次方代替；其分别与圆曲线相接时，曲率半径等于圆曲线半径。 6：当线元为非完整缓和曲线时，起点或终点分别与直线相接时，曲率半径等于设计规定的值；其分别与圆曲线相接时曲率半径等于圆曲线半径。 （2）输入与显示说明 输入部分： 1：SZ=XY 2：XY=SZ N？选择计算方式，输入1表示进行由里程，边距计算坐标；输入2表示由坐标反算里程和边距； X0？线元起点的X坐标 Y0？线元起点的Y坐标 S0？线元起点里程 F0？线元起点切线方位角 LS？线元长度 R0？线元起点半径 RN？线元终点半径 Q？线元左右标志（左偏Q=-1，右偏Q=1，直线段Q=0） S？正算时所求点里程 Z？正算是时所求点距中线的边距（左侧取负，右取正，在中线上取0） X？反算时所求点的X坐标 Y？反算时所求点的Y坐标 显示部分 XS=###正算时，计算得出的所求点的X坐标 YS=###正算时，计算得出的所求点的Y坐标 S=###反算时，计算得出的所求点的里程 Z=###反算时，计算得出的所求点的里程