fx-5800p全线坐标正反算带高程计算程序(线元法

《fx-5800p全线坐标正反算带高程计算程序(线元法》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、曲线任意里程中边桩坐标正反算(CASIOfx-5800P计算器)程序一、程序功能及原理1.功能说明：本程序由一个主程序(TYQXJS)和五个子程——正算子程序(SUB-ZS)、反算子程序(SUB-FS)等构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。本修改版程序既可实现正算全线贯通，亦可实现反算全线贯通。本程序在CASIOfx-5800P计算器运行。2．计算原理：利用Gauss-Legendre5点通

2、用公式正算线路中边桩坐标、线外测点至曲线元起点和终点的垂距的符号是否相异（即Dca×Dcb<0=>该测点在其线元内）进行判断并利用该线元要素反算中桩里程、支距，最后计算出放样数据。二、源程序1.主程序(TYQXJS)Deg:fix3119→DimZ“INPUT(0)OrDATA(Else)”?ILbl0:“1.SZ=>XY,2.XY=>SZ，3.TF=>CK,4.SD=>FY，5.TW=>FY”?NIfN=1OrN=5:ThenGoto1ElseIfN=2OrN=3OrN=4:ThenGoto2ElseGoto3IfEnd:IfEndLbl1:“K(m)=”?SIf

3、S<0:ThenGoto0:IfEnd“JL(m)=”?ZIfZ≠0:Then“ANGLE→R(Deg)=”?M:IfEndIfI=0:ThenProg“DAT1”:ElseProg“DAT2”:IfEndS-O→W:IfW<0:ThenGoto0:ElseIfW>H:ThenGoto0:IfEnd:IfEndProg“SUB-ZS”:Prog“SUB-GC”IfZ<0:Then“XL(m)=”:X◢“YL(m)=”:Y◢IfN=5:ThenProg“SUB-TW”:IfEndElseIfZ>0:Then“XR(m)=”:X◢“YR(m)=”:Y◢IfN=5:The

4、nProg“SUB-TW”:IfEndElse“X(m)=”:X◢“Y(m)=”:Y◢“Hs(m)=”:L◢“FWJ=”:F►DMS◢IfEnd:IfEndGoto1Lbl2:“X(m)=”?X:IfX<0:ThenGoto0:IfEnd“Y(m)=”?YIfN=3OrN=4:Then“H(m)=”?→Z[2]:IfEndX→Z[4]:Y→Z[5]:90→MIfI=0:ThenProg“DAT1”G+QEH(C+HD)→F:1→J:U→Z[8J]:V→Z[8J+1]G-M→A:F-M→B:Prog“SUB-ZX1”:GotoBG+M→A:F+M→B:Prog“SUB

5、-ZX1”:GotoB:IfEnd0→J:LblA:IszJZ[8J+3]-M→A:Z[8(J+1)+3]-M→B:Prog“SUB-ZX1”IfZ[6]Z[7]<0:ThenJ→J:Prog“DAT1”:GotoB:IfEndZ[8J+3]+M→A:Z[8(J+1)+3]+M→B:Prog“SUB-ZX1”IfZ[6]Z[7]<0:ThenJ→J:Prog“DAT1”:GotoB:ElseGotoA:IfEndLblB:Prog“SUB-FS”O+W→S:Prog“SUB-GC”“K(m)=”:S◢“Hs(m)=”:L◢“JL(m)=”:Z◢IfN=3:ThenP

6、rog“WIDE”:IfEndIfN=4:ThenProg“SDFY”:IfEndGoto2Lbl3:“TYQXJS→END”2.正算子程序(SUB-ZS)0.1184634425→A:0.2393143352→B:0.2844444444→Z[1]:0.0469100770→K:0.2307653449→L:0.5→Z[3]U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Z[1]cos(G+QEZ[3]W(C+Z[3]WD))+Bcos(G+QE(1-L)W(C+(1-L)WD))+Acos(G+QE(1-K)W(C+(1-

7、K)WD)))→XV+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Z[1]sin(G+QEZ[3]W(C+Z[3]WD))+Bsin(G+QE(1-L)W(C+(1-L)WD))+Asin(G+QE(1-K)W(C+(1-K)WD)))→YG+QEW(C+WD)+M→FX+Zcos(F)→X:Y+Zsin(F)→YF-M→F:IfF<0:ThenF+360→F:IfEndReturn3.反算子程序(SUB-FS)G-M→T:Abs((Y-V)cos(T)-(X-U)sin(T))→W:0→ZLblC:Prog“SUB-ZS