曲线任意里程中边桩坐标正反算(CASIO fx-4800P计算器)程序.doc.doc

曲线任意里程中边桩坐标正反算(CASIO fx-4800P 计算器) 程序一、程序功能本程序由一个主程序(TYQXJS) 和两个子程——正算子程序(SUB1) 、反算子程序(SUB2) 序构成, 可以根据曲线段——直线、圆曲线、缓和曲线(完整或非完整型)的线元要素(起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径)及里程边距或坐标,对该曲线段范围内任意里程中边桩坐标进行正反算。另外也可以将本程序中核心算法部分的两个子程序移植到其它相关的程序中, 用于对曲线任意里程中边桩坐标进行正反算。本程序也可以在 CASIO fx-4500 P 计算器及 CASIO fx-4850P 计算器上运行。特别申明: (1). 适用于弧长小于 2 倍半径的各种线元坐标正反算,精度优于 1mm ; (2). 在引用该核心计算部分时,请注明来源。二、源程序 1. 主程序(TYQXJS) " => XY" : " => SZ" :N: 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=>Goto 1:≠>Goto 2 Δ←┘ Lbl 1: {SZ} : SZ : W=Abs(S-O) : Prog "SUB1" : X"XS"=X ◢ Y"YS"=Y ◢ F"FS"=F-90 ◢ Goto 1 ←┘ Lbl 2: {XY} : XY : I=X : J=Y : Prog "SUB2" : S"S"=O+W ◢ Z"Z"=Z ◢ Goto 2 2. 正算子程序(SUB1) A= : B= : K= : L= : F=1-L : M=1-K : X=U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW (C+FWD))+Acos(G+QEMW(C+MWD))) : Y=V+W(Asin(G+QEKW(C+KWD))+Bsin(G+ QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD))) : F=G+QEW(C+ WD)+90 : 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 : AbsZ<1E-6=>Goto1 :≠>W=W+Z : Goto 0 Δ←┘ Lbl 1: Z=0 : Prog "SUB1" : Z=(J-Y) ÷ sinF 三、使用说明 1 、规定(1) 以道路中线的前进方向(即里程增大的方向)区分左右;当线元往左偏时, Q=-1 ;当线元往右偏时, Q=1 ;当线元为直线时, Q=0 。(2) 当所求点位于中线时, Z=0 ;当位于中线左铡时, Z 取负值;当位于中线中线右侧时, Z 取正值。(3) 当线元为直线时,其起点、止点的曲率半径为无穷大