曲线任意里程中边桩坐标正反算090507范文.doc

曲线任意里程中边桩坐标正反算 (fx-4800P及fx-5800P计算器) 发布人： yshf 作者： yshf ”QXYS”：W=Abs(S-O)：Prog SUB1：XXS=X◢ YYS=Y◢ F”F-QIEXIAN”=F-90◢ (F-QIEXIAN 指切线方位角) Goto 1←┘ Lbl 2：{XY}：XY：I=X：J=Y：Prog SUB2：SS=O+W◢ ZZ=Z◢ Goto 2 2. 正算子程序(SUB1) C=1÷P：D=(P-R) ÷(2HPR)←┘ A=0.1739274226:B=0.3260725774:K=0.0694318442:L=0.3300094782: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) C=1÷P：D=(P-R) ÷(2HPR)←┘ 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：AbsZ1E-6=Goto1：≠W=W+Z：Goto 0Δ←┘ Lbl 1：Z=0：Prog SUB1：Z=(J-Y)÷sinF sssssssssssssssssssssssssssssssssssssss CASIO fx-5800P ssssssssssssssssssssssssssssssssssssss （二）用于CASIO fx-5800P计算器(加粗斜体红色部分为5800与4800区别处) 1. TYQXJS (主程序) 1.SZ XY：2.XY → SZ:?N:X0? U:Y0? V: S0 ?O: F0?G: LS?H: R0?P: RN?R:?Q←┘ 180÷π→E:If N=1 Then Goto 1:Else N﹥1:IfEnd :Goto 2←┘ Lbl 1:?S:?Z: Prog”QXYS”：Abs(S-O) → W：Prog SUB1:XS= :X→X◢ YS=:Y→Y◢ F◢ Goto 1←┘ Lbl 2:?X:?Y:X→I:Y→J:Prog SUB2:S=:O+W→S◢ Z=:Z→Z◢ Goto 2←┘ 2. 正算子程序(SUB1) 1÷P→C: (P-R)÷(2HPR)→D←┘ 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+Zcos(F)→X: Y+Zsin(F)→Y←┘ 3. 反算子程序(SUB2) 1÷P→C: (P-R)÷(2HPR)→D←┘ G-90→T： Abs((Y-V)cos(T)-(X-U)sin(T))→W: 0→Z←┘ Lbl 0:Prog SUB1:T+QEW(C+WD)→L: (J-Y)cos(L)-(I-X)sin(L)→Z←┘ If Abs(Z)1^-6:Then Goto1:Else W+Z→W:IfEnd:Goto 0←┘ Lbl 1:0→Z:Prog SUB1:(J-Y)÷sin(F)→Z 说明：SUB2程序中“0→Z”中的“0”是数字“零”，Lbl与Goto后面跟的也都是数字。 三、使用说明 1、规定 (1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。 (2) 当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值；当位于中线中线右侧时，Z取正值。 (3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。 (4