改全线坐标正反算程序

《改全线坐标正反算程序》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、线路中边桩任意里程坐标正、反算改编程序（CASIOfx-4800改CASIOfx-5800）1.正算子程序(SUB1)  0.1739274226→Z[3]：0.3260725774→Z[4]：0.0694318442→Z[5]：0.3300094782→Z[6]：1-Z[6]→Z[7]：1-Z[5]→Z[8]：A+Z[10](Z[3]cos(F+57.2958OZ[5]Z[10](1/C+Z[5]Z[10]Z[9]))+Z[4]cos(F+57.2958OZ[6]Z[10](1/C+Z[6]Z[10]Z[9]))+Z[4]cos(F+57.2958OZ[7]Z[10](1/C

2、+Z[7]Z[10]Z[9]))+Z[3]cos(F+57.2958OZ[8]Z[10](1/C+Z[8]Z[10]Z[9])))→Z[11]：B+Z[10](Z[3]sin(F+57.2958OZ[5]Z[10](1/C+Z[5]Z[10]Z[9]))+Z[4]sin(F+57.2958OZ[6]Z[10](1/C+Z[6]Z[10]Z[9]))+Z[4]sin(F+57.2958OZ[7]Z[10](1/C+Z[7]Z[10]Z[9]))+Z[3]sin(F+57.2958OZ[8]Z[10](1/C+Z[8]Z[10]Z[9])))→Z[12]：F+57.2958OZ[1

3、0](1/C+Z[10]Z[9])+90→Z[7]：Z[11]+Scos(Z[7]-90+M)→Z[11]：Z[12]+Ssin(Z[7]-90+M)→Z[12]：←┘2.反算子程序(SUB2)  Abs((Z[12]-B)cos(F-90)-(Z[11]-A)sin(F-90))→Z[10]：0→S：Lbl0：Prog"SUB1"：(F-90)+57.2958OZ[10](1/C+Z[10]Z[9])→Z[6]：(J-Z[12])cosZ[6]-(I-Z[11])sinZ[6]→S：IfAbsZ<1E-6：thenGoto1：ElseZ[10]+S→Z[10]：Goto0：I

4、fend：←┘Lbl1：0→S：Prog"SUB1"：(J-Z[12])÷sinZ[7]→S：←┘二.增设数据库程序（ＳＪＫ主程序）    Lb14："1.SZ=>XY"："2.XY=>SZ"：“K="?K：“N="?N：IfK<下一线元起点里程：then本线元起点里程→Z[1]：本线元起点X→A：本线元起点Y→B：本线元起算方位角→F：本线元长度→Z[2]：起点曲率半径→C：终点曲率半径→R：0或1、-1→O：Goto0：Ifend：←┘(第一线元数据要素)IfK<下一线元起点里程：then本线元起点里程→Z[1]：本线元起点X→A：本线元起点Y→B：本线元起算方位角→F：本

5、线元长度→Z[2]：起点曲率半径→C：终点曲率半径→R：0或1、-1→O：Goto0：Ifend：←┘(第二线元数据要素)IfK<下一线元起点里程：then本线元起点里程→Z[1]：本线元起点X→A：本线元起点Y→B：本线元起算方位角→F：本线元长度→Z[2]：起点曲率半径→C：终点曲率半径→R：0或1、-1→O：Goto0：Ifend：←┘(第三线元数据要素)If：。。。。。。。。。Goto0：Ifend：←┘(第N-1线元数据要素)If：。。。。。。。。。Goto0：Ifend：←┘(第N线元数据要素)LB10：(C-R)÷(2Z[2]CR)→Z[9]：IfN=1：Then

6、Goto1：ElseGoto2：Ifend←┘Lbl1：“S="?S：“M="?M：Abs(K-Z[1])→Z[10]：Prog"SUB1"："XS="：Z[11]◢"YS="：Z[12]◢"FS"：Z[7]-90◢(可以删除)“XC=”?P：“YC=”?Q0→I：0→J：Pol（Z[11]-P，Z[12]-Q）：“I=”：I◢IfJ<0：ThenJ+360→J：“J=”：J→DMS◢Else“J=”：J→DMS◢Ifend：←┘Goto4：←┘Lbl2：“X="?X：“Y="?Y：X→I：Y→J：Prog"SUB2"：Z[1]+Z[10]→K："K"：K◢"S"：S◢Goto

7、4←┘                                                   三.使用说明：1、规定        (1)以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，O=-1；当线元往右偏时，O=1；当线元为直线时，O=0。        (2)当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值；当位于中线中线右侧时，Z取正值。        (3)当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。        (4