曲线任意里程中边桩坐标正反算.doc
内容介绍
曲线任意里程中边桩坐标正反算
曲线任意里程中边桩坐标正反算(CASIOfx-4850P计算器)程序(修改版） 作者：lq52搜集文章来源：不详 点击数：836更新时间：2005-12-12 曲线任意里程中边桩坐标正反算(CASIOfx-4850P计算器)程序（修改版）
一、程序功能及原理 1.功能说明：本程序由一个主程序(TYQXjs)和两个子程正算子程序(SUB1)、反算子程序(SUB2)序构成，可以根据曲线段 直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边 距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。
另外也可以将本程序中核心算法部分的两个子程序移植到其它相关的程序中，用 于对曲线任意里程中边桩坐标进行正反算。
本程序也可以在CASIOfx-4500P计算器及CASIOfx-4850P计算器上运行。
2．计算原理：利用Gauss-Legendre5点通用公式计算线路中边桩坐标并计算放样数据。
二、源程序 1.主程序(TYQXjs) Defm2:"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Δ← Lbl1：{SZT}：SZ:T”ANG”：W=Abs(S-O)：Prog"SUB1"："XS=":X=X "YS=":Y=Y Goto3←┘ Lbl2：{XY}：XY：I=X：J=Y：Prog"SUB2"："S=":S=O+W "Z=":Z=Z Goto2 Lbl3:J=0:I=Pol(X-Z[1],Y-Z[2]):F=J:F<0=>F=F+360:≠>F>360=>F=F-36ΔΔ”DIST=”:I”FW=”:F→DMS Goto1 2.正算子程序(SUB1) A=0.1184634425:B=0.2393143352:N=0.2844444444:K=0.0469100770:L=0.2307653449:M=0.5:F=1-L:M=1- K: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：Lbl0：Prog"SUB1"：L=T+QEW(C+ WD)：Z=(J-Y)cosL-(I-X)sinL：AbsZ<1E-6=>Goto1：≠>W=W+Z：Goto0
下载地址
进入下载页
文件大小
37KB
上传作者
张宁
文件类型
.doc