[5800计算器程序好.docVIP

5800计算器程序 文件名“TYQXJS” “1.KD=XY”:“2.XY=KD”:”N”?N:”XA”?U:”YA”?V:”DKA”?O:”CA”?G:”LS”?H:”RA”?P:”RB”?R:”Q”?Q:1/P-C:(P-R)/(2HPR)-D:180/∏-E:IF N=1:THEN GOTO 1:ELSE GOTO 2:IFEND Lbl 1:”DKI”?S:”D”?Z:ABS (S-O)-W:PROG “SUB1”:”XS”:X◢ “YS”:Y◢ GOTO 1 Lbl 2:”X”?X:”Y”?Y:X-I:Y-J:PROG “SUB2”:O+W-S “S”:S◢ “Z”:Z◢ GOTO 2 子程序“SUB1” 0.1739274226-A:0.3260725774-B:0.0694318442-K:0.3300094782-L:1-L-F:1-K-M: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)COS(T)-(X-U)SIN(T))-W:0-Z:Lbl0:PROG “SUB1”:T+QEW(C+WD)-L:(J-Y)COS(L)-(I-X)SIN(L)-Z:IF ABS(Z)1*10^(-6):THEN GOTO 1:ELSE W+Z-W:GOTO 0:IFEND Lbl 1: 0-Z:PROG”SUB1”：(J-Y)/SIN(F)-Z 说明：输入与显示 输入部分： 1. SZ = XY 2. XY = SZ N ? 选择计算方式，输入1表示进行由里程、边距计算坐标 ；输入2 表示由坐标反算里程和边距。 XA ？线元起点的X坐标 YA ？线元起点的Y坐标 DKA ？线元起点里程 CA ？线元起点切线方位角 LS ？线元长度 RA ？线元起点曲率半径 RB ？线元止点曲率半径 Q ？ 线 元左右偏标志(左偏Q=-1，右偏Q=1，直线段Q=0) DKI ？ 正算时所求点的里程 D ？正算时所求点距中线的边距(左侧取负，值右侧取正值， 在中线上取零) X ？反算时所求点的X坐标 Y ？反算时所求点的Y坐标 显示部分： XS= 正算时，计算得出的所求点的X坐标 YS= 正算时，计算得出的所求点的Y坐标 S= 反算时，计算得出的所求点的里程 Z= 反算时，计算得出的所求点的边距 规定 (1) 以道路中线的前进方向（即里程增大的方向）区分左右； 当线元往左偏时， Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。 (2) 当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值； 当位于中线中线右侧时，Z取正值。 (3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以 10的45次代替。 (4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率 半径均等于圆弧的半径。 (5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半 径为无穷大，以10的45次代替；与圆曲线相接时，曲率半 径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大， 以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。 (6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值； 与圆曲线相接时，曲率半径等 于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲 线相接时，曲率半径等于圆曲线的半径。