曲线任意里程中边桩正反算(5800p).doc

曲线任意里程中边桩正反算（5800p） TYQXJS（主程序名） Lb1 0:4→Dimz:Cls:〝1.SZ→XY〞：〝2.XY→SZ〞? →N:Cls: 〝X0〞？U:〝Y0〞?V:〝QDZH〞?O:〝FWJ〞?G: 〝LS〞?H:〝R1〞?P:〝R2〞?R:?Q:1÷P→C:(P-R) ÷(2HPR) →D:180÷π→E:N=1 ＝＞ Goto1:N=2 ＝＞ Goto2↗ Lb1 1:Cls: 〝JSZH〞?S: 〝JUZHONGJULI〞?Z:Abs(S-O) →W:Prog〝SUB1〞:Cls:〝XS=〞:X◢ 〝YS=〞:Y◢ 〝FS=〞:F-90?DMS◢ Goto↗ Lb1 2:Cls:?X:?Y:X→I:Y→J:Prog〝SUB2〞:O+W→S:Cls〝S=〞:S◢ 〝Z=〞:Z◢ Goto2↗ SUB1(子程序名) 0.1739274226→A:0.3260725774→B:0.0694318442→K:0.3300094782→L:1-L→F:1-K→M:G+QEKW(C+KWD) →Z[1]:G+QELW(C+LWD) →Z[2]:G+QEFW(C+FWD) →Z[3]:G+QEMW(C+MWD) →Z[4]:Acos(Z[1]) →X:X+Bcos(Z[2])→X:X+Bcos(Z[3])→X:X+Acos(Z[4])→X:U+WX→X:Asin(Z[1])→Y:Y+Bsin(Z[2])→Y:Y+Bsin(Z[3])→Y:Y+Asin(Z[4])→Y:V+WY→Y:G+QEW(C+WD)+90→F:X+Zcos(F)→X:Y+Zsin(F) →Y↗ SUB2（子程序名） G-90→T:(Y-V)cos(T)-(X-U)sin(T) →W:Abs(W) →W:0→Z↗LB1 4:Prog〝SUB1〞:T+QEW(C+WD) →L:(J-Y)cos(L)-(I-X)sin(L) →Z:If Abs(Z) ＜0.000001:Then 0→Z:Prog〝SUB1〞(J-Y) ÷sin(F) →Z:ElseW+Z→W:Goto4:IfEnd↗ 注：1E-6即是10的负6次方，亦即是等于0.000001 曲线任意里程中边桩坐标正反算（CASIOfs-5800p计算器）程序使用说明 1：规定 以道路中线的前进方向（即里程增大的方向）区分左右；当线元左偏时，Q=-1；当线元右偏时，Q=1；当线元为直线时，Q=0. 当所求点位于中线时，Z=0；当位于中线左偏时，Z取负值；当位于中线右侧时，Z取正值。 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。 当线元为圆曲线时，无论其起点、止点与什么线元相接，都是该圆曲率的半径。