改全线坐标正反算程序.docVIP

线路中边桩任意里程坐标正、反算改编程序（CASIO fx-4800CASIO fx-5800）1. 正算子程序(SUB1)??0.1739274226→Z[3]：0.3260725774：0.0694318442：0.3300094782：1-：1-：+Z[10] (Z[3]cos(F +57.2958 O Z[5] Z[10] (1/C+ Z[5] Z[10] Z[9]))+Z[4]cos(F +57.2958 O Z[6] Z[10] (1/C+ Z[6] Z[10] Z[9]))+Z[4]cos(F +57.2958 O Z[7] Z[10] (1/C+ Z[7] Z[10] Z[9]))+ Z[3]cos(F +57.2958 O Z[8] Z[10] (1/C+ Z[8] Z[10] Z[9]))) →Z[11]：+ Z[10] (Z[3]sin(F +57.2958 O Z[5] Z[10] (1/C+ Z[5] Z[10] Z[9]))+Z[4]sin(F +57.2958 O Z[6] Z[10] (1/C+ Z[6] Z[10] Z[9]))+Z[4]sin(F +57.2958 O Z[7] Z[10] (1/C+ Z[7] Z[10] Z[9]))+Z[3]sin(F +57.2958 O Z[8] Z[10] (1/C+ Z[8] Z[10] Z[9]))) →Z[12]： +57.2958 O Z[10] (1/C+ Z[10] Z[9])+90→Z[7]：+Scos(Z[7]-90+M) →Z[11]：+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：Lbl 0：Prog SUB1：(-90)+57.2958 O Z[10] (1/C+ Z[10] Z[9])→Z[6]：(J-)cos Z[6]-(I-Z[11])sin Z[6]→S： AbsZ1E-6： Goto1：+S→Z[10]：Goto 0：：←┘Lbl 1：0：Prog SUB1：(J-)÷sin Z[7]→S：←┘二.增设数据库程序（ＳＪＫ主程序）???? Lb1 4：1.SZ = XY：2.XY = SZ：“=? K：“=?N ：下一线元起点里程： 本线元起点里程：本线元起点X：本线元起点Y：本线元起算方位角：本线元长度：起点曲率半径：终点曲率半径：0或1、-1： Goto0：：←┘ (第一线元数据要素)下一线元起点里程： 本线元起点里程：本线元起点X：本线元起点Y：本线元起算方位角：本线元长度：起点曲率半径：终点曲率半径：0或1、-1： Goto0： ：←┘(第二线元数据要素)下一线元起点里程： 本线元起点里程：本线元起点X：本线元起点Y：本线元起算方位角：本线元长度：起点曲率半径：终点曲率半径：0或1、-1： Goto0： ：←┘(第三线元数据要素)：。。。。。。。。。 Goto0：：←┘(第N-1线元数据要素)：。。。。。。。。。 Goto0：：←┘(第N线元数据要素)LB1 0：(-R)÷(2 Z[2] C R) →Z[9]：N=1：Goto 1：Goto 2：←┘ Lbl 1：“=?S：“ =? M ： Abs(- Z[1]) →Z[10]：Prog SUB1：XS=：YS=：FS：-90◢(可以删除) “XC=” ?P：“C=” ?Q 0→I：0：Pol（-P，-Q）：“I=” ： J0： J+360→J：“=” ：→DMS◢ Else “J=” ：→DMS◢ Ifend：←┘Goto4：←┘Lbl 2：“=?X：“=?Y：X：Y：Prog SUB2：+ Z[10]→K： ：S：Goto4←┘??????????????????????????????????????????????????? 三. 使用说明：1、规定????????(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时， =-1；当线元往右偏时，=1；当线元为直线时，=0。????????(2) 当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值；当位于中线中线右侧时，Z取正值。????????(3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。????????(4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。???????? (5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径