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

道路坐标正反算480 程序功能及原理 1.功能说明：本程序由一个主程序(TYQXjs)和两个子程——正算子程序(SUB1)、反算子程序(SUB2)序构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。另外也可以将本程序中核心算法部分的两个子程序移植到其它相关的程序中，用于对曲线任意里程中边桩坐标进行正反算。本程序也可以在CASIO fx-4500P计算器及 CASIO fx-4850P计算器上运行。 2．计算原理：利用Gauss-Legendre 5点通用公式计算线路中边桩坐标并计算放样数据。 二、源程序 1.主程序(TYQXjs) Defm 2 Lbl 1：：：1.SZ = XY：2.XY = SZ： N：Prog”DAT1”:UX0：VY0：OS0：GF0：HLS：PR0：RRN：Q：C=1÷P：D=(P-R)÷(2HPR)：E=180÷π：N=1=Goto 1：≠Goto 2Δ← ：：{SZT}：SZ:T”ANG”：W=Abs(S-O)：Prog SUB1：XS=:X=X YS=:Y=Y◢ Goto 3←┘ Lbl 2：{XY}：XY：I=X：J=Y：Prog SUB2：S=:S=O+WZ=:Z=Z◢ Goto 1 Lbl3:J=0:I=Pol(X-Z[1],Y-Z[2]):F=J:F0=F=F+360:≠F360=F=F-360ΔΔ??”DIST=”:??I◢”FW=”:F→DMS◢ Goto 1 2. 正算子程序(SUB1) A=0.1184634425:B=0.2393143352:N=0.2844444444:K=0.0469100770:L=0.2307653449: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+(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+ZsinF 3. 反算子程序(SUB2) T=G-90：W=Abs((Y-V)cosT-(X-U)sinT)：Z=0：Lbl 0：Prog SUB1：L=T+QEW(C+WD)：Z=(J-Y)cosL-(I-X)sinL：AbsZ1-6=Goto1：≠W=W+Z：Goto 0Δ←┘ Lbl 1：Z=0：Prog SUB1：Z=(J-Y)÷sinF=Z=Z ÷AbsZΔ Z=Z ?((I-X)2+( J-Y) 2) 4.曲线元要素数据库：DAT1 ≥****=S＜=U=**:V=**:O=**:G=**:H=**:P=**:R=**:Q=**ΔΔ←┘ 。。。。。 5.曲线元要素数据库：DAT 注：如有多个曲线元要素继续添加入数据库DAT1中起点坐标、起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径起点切线方位角三、使用说明 1、规定 ????????(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时， Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。 ????????(2) 当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值；当位于中线中线右 侧时，Z取正值。 ????????(3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。 ????????(4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆 弧的半径。 ???????? (5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45 次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半 径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。 ???????? (6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的 值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等 于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。 (7)曲线元要素数据库（DAT1）可根据线型不同分为各个线元段输入到