曲线任意里程中边桩坐标正反算(CASIO_fx-5800P计算器)程序.docVIP

曲线任意里程中边桩坐标正反算(CASIO fx-5800P计算器)程序 曲线任意里程中边桩坐标正反算(CASIO fx-5800P计算器)程序一、程序功能????????本程序由一个主程序(XLJS)和两个子程——正算子程序(SUB1)、反算子程序(SUB2)序构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。另外也可以将本程序中核心算法部分的两个子程序移植到其它相关的程序中，用于对曲线任意里程中边桩坐标进行正反算。本程序也可以在CASIO fx-4500P计算器及 CASIO fx-4850P计算器上运行。?? 特别申明：(1). 适用于弧长小于2倍半径的各种线元坐标正反算，精度优于1mm；????????????????????(2). 在引用该核心计算部分时，请注明来源。 （3）该程序可计算标准、非标准曲线，但不可以计算与线路成斜交角的坐标二、源程序1.主程序(XLJS)1.KS+E = X-Y：2.X-Y = KS+E?N： Lbl 1： KS?Z： E?S：Prog XXX： 1÷P→C： (P-R)÷(2HPR) →D：180÷π→E：IF N=1:Then Goto 2：Else Goto 3Lbl 2： Abs(Z-O) →W：Prog SUB1：X=:X◢Y=:Y◢ FWJ=：F-90◢ Prog GC Goto 1 Lbl 3： XS? X： YS? Y： X→I：Y→J：Prog SUB2：KS=： O+W→Z◢E=:S◢ Prog GCGoto 3 2. 正算子程序(SUB1)0.1739274226→A：0.3260725774→B： 0.0694318442→K： 0.3300094782→L：1-L→F ：1-K→M：U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD))) →X：V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD))) →Y：G+QEW(C+WD)+90→F：X+ScosF→X：Y+SsinF→Y3. 反算子程序(FSZ )G-90→T：Abs((Y-V)cosT-(X-U)sinT) →W：S=0：Lbl 0：Prog SUB1 ：T+QEW(C+WD) →L： (J-Y)cosL-(I-X)sinL→S：IF AbsS10^-6:Then Goto1：Else W+S→W：Goto 0Lbl 1：S=0：Prog SUB1 ：(J-Y)÷sinF→S数据库： IF Z≤下一起点里程:Then本线路起点里程→O：本线路X→U：本线路Y→V：本线路方位角→G：本线路长度→H：本线路起点半径→P：本线路止点半径→R：1、-1→Q (左偏Q=-1，右偏Q=1，直线段Q=0）:Else IF Z≤下一起点里程:Then本线路起点里程→O：本线路X→U：本线路Y→V：本线路方位角→G：本线路长度→H：本线路起点半径→P：本线路止点半径→R：1、-1→Q (左偏Q=-1，右偏Q=1，直线段Q=0）:IFEnd 高程主程序GC LbI1：Prog高程子程序名GCZL：AbsR→R：2tan-1（T/R）→O：πRO/180→I：IF Z≤J-T:Then Z-J→A：0→M： Q→V：Goto2：Else IF Z ≤J-T+I/2:Then -T→A：Z-J+T→M：Q→V ：Goto2：Else IF Z≤J-T+I:Then -T→A: J-T+I-Z→M:V→-D: Goto2：Else IF ZJ-T+I:Then -2T-Z+I+J→A:0→M:-D→V: Goto2 : IFEnd LbI2:IF W≤0:Then Goto 3: Else -R→R: Goto 3 LbI3: 180M/(πR) →P : R(1/cosP-1) →C: Abs(R×tanP) →B: GC=: E+(A+B)V+C→K◢ 竖曲线要素子程序“GCZL“ IF Z≤下一起点里程:Then交点里程→J:交点高程→E：交点前坡度含正负（7.xx/100）→Q：交点后坡度含正负（7.xx/100）→D：偏向判定（W＝0凹，W＝1凸）→W：切线长→T：竖曲线半径→R：Else IF Z≤下一起点里程: Then交点里程→J：··············