道路坐标正反算无限个拐点计算器测量程序(新20070825).doc

《道路坐标正反算无限个拐点计算器测量程序(新20070825).doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、道路坐标正反算4800一、程序功能及原理1.功能说明：本程序由一个主程序(TYQXjs)和两个子程——正算子程序(SUB1)、反算子程序(SUB2)序构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。另外也可以将本程序中核心算法部分的两个子程序移植到其它相关的程序中，用于对曲线任意里程中边桩坐标进行正反算。本程序也可以在CASIOfx-4500P计算器及CASIOfx-4850P计算器上运行。2．计算

2、原理：利用Gauss-Legendre5点通用公式计算线路中边桩坐标并计算放样数据。二、源程序1.主程序(TYQXjs)Defm2Lbl1：N=1：{N}："1.SZ=>XY"："2.XY=>SZ"：N：Prog”DAT1”:U"X0"：V"Y0"：O"S0"：G"F0"：H"LS"：P"R0"：R"RN"：Q：C=1÷P：D=(P-R)÷(2HPR)：E=180÷π：N=1=>Goto1：≠>Goto2Δ←T=90：Z=0：{SZT}：SZ:T”ANG”：W=Abs(S-O)：Prog"SUB1"："XS=":X=X◢"YS=":Y=Y◢Goto3←┘Lbl2

3、：{XY}：XY：I=X：J=Y：Prog"SUB2"："S=":S=O+W◢"Z=":Z=Z◢Goto1Lbl3:J=0:I=Pol(X-Z[1],Y-Z[2]):F=J:F<0=>F=F+360:≠>F>360=>F=F-360ΔΔ  ”DIST=”:  I◢”FW=”:F→DMS◢Goto12.正算子程序(SUB1)A=0.:B=0.:N=0.:K=0.:L=0.:M=0.5:F=1-L:X=U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Ncos(G+QEMW(C+MWD))+Bcos(G+QE(1-L)W(C+(

4、1-L)WD))+Acos(G+QE(1-K)W(C+(1-K)WD))):Y=V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Nsin(G+QEMW(C+MWD))+Bsin(G+QE(1-L)W(C+(1-L)WD))+Asin(G+QE(1-K)W(C+(1-K)WD)))：F=G+QEW(C+WD)+T：X=X+ZcosF：Y=Y+ZsinF3.反算子程序(SUB2)T=G-90：W=Abs((Y-V)cosT-(X-U)sinT)：Z=0：Lbl0：Prog"SUB1"：L=T+QEW(C+WD)：Z=(J-Y)

5、cosL-(I-X)sinL：AbsZ<1e-6=>Goto1：≠>W=W+Z：Goto0Δ←┘Lbl1：Z=0：Prog"SUB1"：Z=(J-Y)÷sinF：Z≠0=>Z=Z÷AbsZΔZ=Z⺁((I-X)2+(J-Y)2)4.曲线元要素数据库：DAT1{S}:S：S≥****=>S＜****=>U=**:V=**:O=**:G=**:H=**:P=**:R=**:Q=**ΔΔ←┘。。。。。5.曲线元要素数据库：DAT2注：如有多个曲线元要素继续添加入数据库DAT1中，每一段（直线、缓和曲线、圆曲线等）线元曲线要素为：起点X坐标U、起点Y坐标V、起点里程O、

6、起点切线方位角G、线元长度H、起点曲率半径P、止点曲率半径R、偏角标志Q（左偏Q=-1、右偏Q=1、直线Q=0）。线元曲线各点的坐标、起点切线方位角均可用专门的excel程序计算，该excel程序还可以计算出所需要只的其它坐标。附后专门的excel程序计算。三、使用说明1、规定        (1)以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。        (2)当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值；当位于中线中线右侧时，Z取正值。        (3)当线元为直线

7、时，其起点、止点的曲率半径为无穷大，以10的45次代替。        (4)当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。        (5)当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。        (6)当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规

8、定的值；与圆曲线相接时，