卡西欧5800测量坐标计算程序

1、一使用说明：规定：以道路中线的前进方向区分线路的左右偏转方向，线路左偏Q=-1，线路右偏Q=1,直线Q=0。当所求点位于线路中线时，Z=0；当位于左侧时，Z取负值；当位于右侧时，Z取正值。当线元为直线时，其起终点的曲率半径为无穷大，取10的45次方代替。当线元为圆曲线时，起终点曲率半径为圆曲线半径。当线元为缓和曲线时，起终点曲率半径与直线相接取10的45次方代替，与圆曲线相接取圆曲线半径。输入与显示说明：输入部分：N?：选择计算方式，输入1表示由里程边距计算坐标，输入2表示由坐标计算里程边距。X0？线元起点X坐标。Y0？线元起点Y坐标。S0？线元起点里程。F0？线元起点切线方位角。LS?线元长

2、度。R0？线元起点曲率半径。RN?线元终点曲率半径。Q？线元左右偏标志(左偏=-1,右偏=1,直线=0)S?正算时所求点里程。Z？正算时所求点距中线边距。位于线路左侧输入负值，在右侧输入正值。AR?斜交角度。(为线路右角，在0-180度之间)X?反算时所求点X坐标。Y？反算时所求点Y坐标。显示部分：XS=计算结果，所求点X坐标。YS=计算结果，所求点Y坐标。FS=计算结果，所求点切线方位角。S二计算结果，反算时所求点里程Z二计算结果，反算时所求点边距。二程序清单1(用于任意曲线元的坐标计算)主程序(TYQXJS)1.SZ=XY:2.XY=SZ:？N:X0？U:丫0？V:S0？O:FO？G:LS

3、？H:R0？P:RN？R:?Q:1+PC:(P-R)-(2HPR)D:180-nE:IfN=1:THENGoto1:ElseGoto2:lfEnd:Lbl1:?S:”D(Z-,Y+)=？Z:90T:O=？T:Abs(S-O)-W:ProgSUBT:XS:X/YSWFS:F/Goto1:Lbl2:?X:?Y:lfX:J-Y:ProgSUB2:S:O+WTS：/Z:Z/Goto22正算子程序(SUB1)0.1739274226tA:0.3260725774tB:0.0694318442tK:0.3300094782L:1-LtF:1-KM:U+W(Acos(G+QEKW(C+KWD)+Bcos(G

4、+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)_F:X+Zcos(F+T)_X:Y+Zsin(F+T)-Y3反算子程序(SUB2)G-90-T:Abs(Y-V)cos(T)-(X-U)sin(T)-W:0-Z:Lbl0:ProgSUBT:T+QEW(C+WD)-L:(J-Y)cos(L)-(I-X)sin(L)-Z:IFAbs(Z)=起点桩号ANDS=起点桩号ANDS=起点桩号ANDS=起点桩号ANDS=起点桩号ANDS=起点桩号ANDS终点桩号:THENPROG“ZS3”：IFEND:1+PC:(P-R)+(2HPR)TD:180+n