5800计算器程序(SQX.doc

5800计 算 器 程 序 直线坐标反算：ZBFS LbI 0←┛ “XZ”?P：“YZ” ?U：“XH”?X：“YH”?Y←┛ Sin-1((Y-U)÷(√((X-P) 2+(Y-U) 2 ))→N：If X-P0:Then180o-N→N: Ifend←┛ If N0: Then N+360o→N : Ifend←┛ “N=”: N?DMS◢ “S=”: √((X-P) 2+(Y-U) 2 ) ◢ Goto 0←┛ 直线坐标正算：ZBZS LbI 0←┛ “X0”?A：“Y0”?B：“N”?C：“E”? E: “K1”? D：“K2”? F←┛ “X=”：A+(F-D)cos(C)+Ecos(C+90) →X◢ “Y=”：B+(F-D)sin(C)+Esin(C+90) →Y◢ Goto 0←┛ 相对坐标转换:XDZBZH “ZX”?A: “ZY”?B: “K1”?T: “E1”?E: “ZN”?N←┛ LbI 1←┛“X”?C: “Y”?D←┛ Pol(C-A,D-B):J≤0=J=J+360←┛“K=”:T+I* cos(J-N)◢ “E=”:E+I* sin(J-N)◢Goto 1←┛ 显示说明:ZX?,ZY?(HZ点或直线起点坐标),K1?（HZ点或直线起点里程）E1？(已知点距中桩距离，左“-”右“+”)，ZN?（HZ点或直线起点切线方位角），X，Y?（待求点坐标），输出部分：K=****.****，E=****.****，（待求点相对坐标即里程边距）。 缓和曲线： LbI 0←┛ “W”?W：“XZ”?A：“YZ”? B：“NQ”?C：“L0”?D：“R”?R：“K1”?K：“K2”?T：“E”?E←┛ T-K→F←┛ F2*180÷（2RDπ）→G←┛ F-F^(5)÷(40R2D2) →H←┛ J=F^(3)÷(6RD)-F^(7)÷(336R^(3)*D^(3))→J←┛ √(H2+J2)→L←┛ tan-1(J÷H) →O←┛ “NT=” :C+WG→N:N?DMS◢ C+WG-90W→V←┛ “X=” :A+Lcos(C+WO)+Ecos(V)→X◢ “Y=”:B+Lsin(C+WO)+Esin(V)◢ Goto 0←┛ 显示说明:W?(左转为-1,右转为1) XZ?,YZ?(输缓和曲线起点坐标(ZH)或HZ点坐标) NQ?( 输缓和曲线起点切线方位角) L0? (输缓和曲线长) R?(缓和曲线终点曲率) K1?(ZH点里程或HZ点里程) K2?(待求点里程) E?(待求点距中桩距离,左为右负为正) 输出部分:NT=xxxxxx(待求点切线方位角)，X=xxxxxx.xxxx，Y=xxxxxx.xxxx(待求点坐标)。 圆曲线：YQX LbI 1←┛ “X0”?A：“Y0”?B：“E”?S：“N”?V：“R”?R：“K1”?C：“K2”?D←┛ Abs(D-C)→E←┛ 180*E÷π÷R→F←┛ R-R*cos(F)→H←┛ R*sin(F)→J←┛ √(H2+J2)→L←┛ “W”?W：If w=-1:Then Goto 2:IfEnd←┛ If w=1:Then Goto 3:IfEnd←┛ LbI 2←┛ “X=”:A+L*cos(V-F÷2)+S*cos(V-F+90o)→X◢ “Y=”:B+L*sin(V-F÷2)+S*sin(V-F+90o)→Y◢ “N=”:V-F→N: N?DMS◢ Goto 1←┛ LbI 3←┛ “X=”:A+L*cos（V+F÷2）+S*cos(V+F-90o)→X◢ “Y=”:B+L*sin（V+F÷2）+S*sin(V+F-90o)→Y◢ V+F→N:“N=”:N?DMS◢ Goto 1:IfEnd←┛ 显示说明:X0?,Y0?(圆曲线起点坐标), E?(待求点距中桩距离，外侧“+”内侧“-”)，N?（圆曲线起点切线方位角），R?（曲线半径），K1?（圆曲线起点里程），K2?(待求点里程)，W？（曲线转向，左转“-1”右转“1”）输出部分：X=**，Y=**，N=**（待求点坐标.切线方位角）。 竖曲线：（SQX） LbI 0←┛ “QL”?O：“BG”?P：“I1”?A：“I2”?B：“BL”?J←┛ P+A（J-O）→H←┛ B-A→W←┛ “R”?R：“T=”：Rtan（tan-1（Abs（W））÷2）→T◢ T2÷2÷R→E←┛ “QL=”：J-T→U◢ “ZL=”：J+T→Z◢ H-TA→M←┛ LbI 1←┛ “LC”?V：If VZ:Then Goto 0：Else V≤Z=Goto 2:IfEnd←┛ LbI 2←┛ If V≤U: Then “G=”: P+A(V-O)→K◢Goto 1:El