Fx-5800p常用程序修改版2.docVIP

Fx-5800p常用程序 1、坐标反算（FS） ?X : ?Y↙ ∟b∣0：？A：？B↙ Pol(A-X,B-Y):J＜0 =J+360→J↙ “S=”:I◢“T=”:J?DMS◢ Goto 0↙ 说明: X,Y—基点坐标 A,B—测点坐标 2、坐标正算（ZS） ∟b∣0:？S：？T：？A：？B↙ Rec(S,T)+A→X↙ B+J→Y↙ “X=”:X ◢“Y=”:Y◢ Goto 0↙ 说明: S—距离 T—方位角 A,B—基点坐标 X,Y—计算坐标 3、坐标转换（ZH—H） ？N：？E：？Q↙ ∟b∣0:“1.S =D”：“2.D =S”： ？F↙ If F=1: Then Goto 1: Eles Goto 2: If End↙ ∟b∣1:？X：？Y↙ N+ X cos（Q）—Y sin（Q）→U↙ E+X sin（Q）+Y cos（Q）→V↙ “X1=”：U◢：“Y1=”：V◢ Goto 0↙ ∟b∣2：？X：？Y↙ （X—N）cos（Q）+（Y—E）sin（Q）→U↙ （N—X）sin（Q）+（Y—E）cos（Q）→V↙ “X2=”：U◢ “Y2=”：V◢ Goto 0↙ 说明：N，E—施工坐标原点大地坐标 Q—施工坐标系与大地坐标系方位角 X，Y—需转换坐标 F—判断符 F=1，施工→大地，其他，大地→施工 4、竖曲线（SQX） ？A： ？ B： ？ D：？ T： ？ R： ？ Z↙ If Z≥1：Then Goto 1：Eles Goto 2：If End↙ ∟b∣1：？C：A+（B—A）÷T（C—D）—（C—D）2÷（2R）→H↙ “H=”：H◢ Goto 1↙ ∟b∣2：？C：A+（B—A）÷T（C—D）+ C—D）2÷（2R）→H↙ “H=”：H◢ Goto 2↙ 说明：A—起点（终点）高程 B—切线交点高 C—需计算点的高程 D—起点（终点）桩号 T—切线长 R—半径 H—C桩号的高程 Z—Z≥1时为凸曲线，其他为凹曲线 5、曲线任意里程坐标正反算1.主程序(TYQXJS)1.SZ = XY：2.XY = SZN：X0U:Y0？V: S0? O:F0?G: LS? H:R0?P: RN?R：Q：1÷PC:(P-R)÷(2HPR) →D： 180÷πE: If N=1: Then Goto 1：Goto 2 ↙Lbl 1:?S:?Z: Abs(S-O) →W：Prog SUB1 XS=:X◢ YS=:Y◢FS=:F◢Goto 1↙ Lbl 2:? X:?Y: X→I:Y→J:Prog SUB2: O+W→S: S=: S◢ Z=:Z◢ Goto 2↙ 2. 正算子程序(SUB1)0.1739274226 A： 0.3260725774B： 0.0694318442K： 0.3300094782 L：1-LF: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+ZcosF X： Y+ZsinF Y:Return↙ 3. 反算子程序(SUB2)G-90→T：Abs((Y-V)cosT-(X-U)sinT) W：0Z：Lbl 0：Prog SUB1：T+QEW(C+WD) L ：(J-Y)cosL-(I-X)sinLZ：Abs(Z)1÷1000000 : Then Goto1：W+Z→W：Goto 0Lbl 1：Z=0：Prog SUB1： (J-Y)÷sinF Z: Return↙ 三、使用说明1、规定????????(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。????????(2) 当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值；当位于中线中线右侧时，Z取正值。????????(3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。????????(4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。???????? (5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半