资源描述：
《任意曲线里程中边桩坐标正反算(fx5800计算器)程序.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、任意曲线里程中边桩坐标正反算（fx5800计算器）程序一、程序功能本程序由一个主程序（TYQXJS）和3个子程序―――（正算子程序SUB1）、反算子程序（SUB2）构成，可以根据曲线段—直线、圆曲线、缓和曲线(完整或非完整型)的线元要素(起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径)及里程边距或坐标,对该曲线段范围内任意里程中边桩坐标进行正反算,另外也可以将本程序中核心算法部分的两个子程序移植到其他相关的程序中,用于对曲线任意里程中边桩坐标进行正反算.1.主程序(TYQXJS)（5800P正交程序）〝1.SZ=＞XY〞:〝2.XY=＞SZ〞:〝1，2〞？
2、N:〝K0〞?O:〝X0〞?U:〝Y0〞?V:〝FWJ〞?G:〝Ls〞?H:〝+1,-1,0〞?Q:IfQ=0:Then10^45->P:10^45->R:Else〝R1〞?P:〝R2〞?R:IfEnd:180÷π→E:N=1=＞Goto1：Goto2↙Lbl1:〝JSLCH〞?S:〝P-J〞?Z:Abs(S-O)→W:1÷P→C:(P-R)÷(2HPR)→D:Prog〝SUB1〞:〝XS〞:X◢〝YS〞:Y◢〝FS〞:F-90→F:F▲DMS◢Goto1↙Lbl2:〝X〞?X:〝Y〞?Y:X→I:Y→J:1÷P→C:(P-R)÷(2HPR)→D:Prog〝SUB2〞:〝S〞:O+
3、W→S◢〝Z〞:Z◢Goto2↙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+
4、Zcos（F）→X:Y+Zsin（F）→Y↙1.反算子程序（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↙Abs(Z)﹤10∧（-6）=＞Goto1:W+Z→W:Goto0↙Lbl1:0→Z:Prog〝SUB1〞:(J-Y)÷sin（F）→Z备注：起点里程→o：起点X坐标→U：起点Ｙ坐标→V：起点方位角→G：曲线元长度→Ｈ：起点半径→Ｐ：终点半径→Ｒ:（右偏+1,左偏-1,直线0）→Q三.使用说明1.(输入、输出角度为度、分
5、、秒形式)(1)以道路中线的前进方向(即里程增大的方向)区分左右;当线元左偏时,Q=-1,当线元右偏时,Q=1;当线元为直线时,Q=0.(2)当所求点位于中线时,Z=0,当所求点位于中线左侧时,Z取负值,当所求点位于中线右侧时,Z取正值.(3)当线元为直线时,其起点、止点的曲率半径为无穷大,以10的45次方代替。(4)当线元为圆曲线时,起点与直线相接时,曲率半径为无穷大,以10的45次方代替,与圆曲线相接时,曲率半径等于圆曲线的半径.止点与直线相接时,曲率半径为无穷大,以10的45次方代替,与圆曲线相接时,曲率半径等于圆曲线的半径.(5)当线元为非完整缓和曲线时,起点与直线相接时,
6、曲率半径等于设计规定的值;与圆曲线相接时,曲率半径等于圆曲线的半径.止点与直线相接时,曲率半径等于设计规定的值,与圆曲线相接时,曲率半径等于圆曲线的半径.2.输入与显示说明输入部分:1.SZ=＞XY2.XY=＞SZ,1为里程算坐标，２为坐标算里程N输入１或２，Ｓ为里程桩号，当所求点位于中线时Z=0,当所求点位于中线左侧时,Z取负值,当所求点位于中线右侧时,Z取正值。结束。
