FX5800P全线任意里程中边桩正反算及高程计算带超欠挖..docVIP

FX5800P全线任意里程中边桩正反算及高程计算带超欠挖 FX5800P全线任意里程中边桩坐标正反算（加了数据库） 主程序????????????????ZBJSLbl 6：1.SZ→ XY：2.XY→ SZ：？S：？N：Prog“SUB0”1÷P→C：(P-R)÷(2HPR) →D：180÷π→E:N=1 =Goto 1: Goto 2Lbl?? 1:?Z: Abs(S-O)→W: ProgSUB1:XS=:XYS=:Y◢FS=:F-90 ?DMS◢“XC” ?C： “YC” ? E：0→I：0→J：Pol（X-C，Y-E）:“I=”：IIf??J∠0: Then “J=”: J+360?DMS◢IfEndIf??J 0：Then “J=” ：J?DMS◢IfEnd：ProgGC:Goto 6Lbl 2?X:?Y:X→I:Y→J:ProgSUB2:O+W→S:Cls:S=:SZ=:Z◢ProgGC:Goto 6正算子程序?? SUB10.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反算子程序??SUB2 G-90→T(Y-V)cosT-(X-U)sin(T) →WAbs(W)→W:0→ZLbl6：Prog SUB1T+QEW(C+WD) →L： (J-Y)cos（L）-(I-X)sin（L）→ZIF Abs（Z）1E-6：Then0→Z:Prog SUB1:(J-Y)÷sin（F）→Z:Else W+Z→W：ProgGC:Goto6:IfEnd数据库子程序???? SUB0Goto 1(线元可输入多条，分离式可在前多加一位，匝道一样。例：左幅为K129+500,右幅输线元参数里程为1129+500，其他不变，前面1为任意数字，计算机便于区分)Lbl??1：IF??S线元终点里程：Then@@@→O(线元起点里程) ：@@@ →U(线元起点X坐标)：@@@→V(线元起点Y坐标)：@@@→G(线元起点计算方位角)：@@@→P(线元起点半径)：@@@→R(线元止点半径)：@@@→H(线元长度)：@@@→Q(线元左、右偏标志，左偏-1，右偏1，直线为0)：Return：IfEndIF??S线元终点里程：Then@@@→O(线元起点里程) ：@@@ →U(线元起点X坐标)：@@@→V(线元起点Y坐标)：@@@→G线元(起点计算方位角)：@@@→P(线元起点半径)：@@@→R(线元止点半径)：@@@→H(线元长度)：@@@→Q(线元左、右偏标志，左偏-1，右偏1，直线为0)：Return：IfEnd。。。。。。。。。。。。。。。。。。。。。。。。。。。如不想用偏角法放样可直接删除“XC” ?C： “YC” ? E：0→I：0→J：Pol（X-C，Y-E）:“I=”：I直接里程推坐标。?????? GC(竖曲线)Lb1?? 7CLs:?k:????(计算点里程输入)If??kXXXAND??K≥XXX :Then XXX→A : 0→B :XXX→S : XXX→G :XXX→R : Goto??2 : IfEndIf??kXXX??AND??K≥XXX:Then??XXX→A : XXX→B : XXX→S :XXX→G : XXX→R : Goto??2 : IfEnd↙If??k本段竖曲线终点里程??AND??K≥前一竖曲线终点里程 :Then??XXX→前坡（大里程向）A : XXX→后坡（小里程向）B : XXX→竖曲线交点里程S :XXX→交点高程G : XXX→曲率半径R : Goto??2 : IfEnd………依次类推，计算原始数据完成输入，坡度换算成小数。Lb1?? 2S-K→L ： A-B→W : Abs（R*W/2）→T : S-T→C : S+T→D If?? K≤C : Then??G-L*B →H : Goto 5 : Else?? If?? K≤S : Then??Goto3 : Else?? If?? K≤D : Then??Goto4??: IfEnd : IfEnd : IfEnd↙