FX5800P全线任意里程中边桩正反算及高程计算带超欠挖FX5800P全线任意里程中边桩坐标正反算（加了数据库） 本程序非本人原创，结合上传者长处，进行改编，愿收获和大家共享，不足之处多多指教。含竖曲线及隧道超欠挖，本程序由内蒙文哥和师父阿玖哥共同改编完成主程序ZBJSLbl 6：1.SZ XY：2.XY SZ：？S：？N：“DYPQXSJK=”？A:A=1=Prog“ZP1” :A=2=Prog“ZP2”: A=3=Prog“YP1”: A=4=Prog“YP2”1PC：(P-R)(2HPR) D：180E:N=1 =Goto 1: Goto 2Lbl 1:?Z: ?T:Abs(S-O)W: ProgSUB1:XS=:XYS=:YFS=:F-90 DMS“XC” ?C： “YC” ? E：0I：0J：Pol（X-C，Y-E）:“I=”：IIfJ0: Then “J=”: J+360DMSIfEndIfJ 0：Then “J=” ：JDMSIfEnd：“DYSQXSJK=”？B:B=1=Prog“ZG1” :B=2=Prog“ZG1”: B=3=Prog“YG1”: B=3=Prog“YG1”:Goto 6Lbl 2?X:?Y:XI:YJ:ProgSUB2:O+WS:Cls:S=:SZ=:Z“DYSQXSJK=”？B:B=1=Prog“ZG1” :B=2=Prog“ZG1”: B=3=Prog“YG1”: B=3=Prog“YG1”:Goto 6如不想用偏角法放样可直接删除“XC” ?C： “YC” ? E：0I：0J：Pol（X-C，Y-E）:“I=”：I直接里程推坐标。正算子程序 SUB10.1739274226A： 0.3260725774B： 0.0694318442K： 0.3300094782L： 1-LF： 1-KM：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)+90F： X+Zcos（F-90+T）X： Y+Zsin（F-90+T）Y反算子程序SUB2 G-90TAbs (Y-V)cosT-(X-U)sin(T) W:0ZLbl6：Prog SUB1T+QEW(C+WD) L： (J-Y)cos（L）-(I-X)sin（L）ZIF Abs（Z）1E-6：Then0Z:Prog SUB1:(J-Y)sin（F）Z:Else W+ZW：ProgGC:Goto6:IfEnd数据库子程序 ZP1Goto 1Lbl1：IFS线元终点里程：ThenO(线元起点里程) ： U(线元起点X坐标)：V(线元起点Y坐标)：G(线元起点计算方位角)：P(线元起点半径)：R(线元止点半径)：H(线元长度)：Q(线元左、右偏标志，左偏-1，右偏1，直线为0)：Return：IfEndIFS线元终点里程：ThenO(线元起点里程) ： U(线元起点X坐标)：V(线元起点Y坐标)：G线元(起点计算方位角)：P(线元起点半径)：R(线元止点半径)：H(线元长度)：Q(线元左、右偏标志，左偏-1，右偏1，直线为0)：Return：IfEnd。 ZG1(数据库1)Lb1 7CLs:?E:(计算点里程输入)IfEXXXANDEXXX :Then XXXA : XXXB :XXXF : XXXG :XXXR :Prog“GC” IfEXXXANDEXXX :Then XXXA : 0B :XXXF : XXXG :XXXR :Prog“GC”：Goto7Ifk0 : ThenG+(C-E) 2/2/R-L*BH: Goto 5 : Else If W0 : ThenG+(E-D) 2/2/R-L*AH: Goto 5 : Else If W XY2. XY = SZ S ?选择里程 ,N?，Z?左或右偏距。选择计算方式，1.表示进行由里程、边距计算坐标 ；输入2表示由坐标反算里程和边距。显示部分： XS=正算时，计算得出的所求点的X坐标 YS=正算时，计算得出的所求点的Y坐标 FS=正算时，所求点对应的中线点的切线方位角XC=测站点X值YC= 测站点Y值 I=XXX 测站到放样点距离J=XXX测站到放样点方位角 S=反算时，计算得出的所求点的里程 Z=反算时，计算得出的所求点的边距 K=XXXX反算得出的里程 H=XXXX 得出设计高程 J=?拱部测得高程 M=?测设线到隧道中线距离 N=?反算时得出的偏距 V= 计算得出的半径，即直角3角形斜边 H+XXXO 其中XXX为（路面高程测设线到隧道中线之高差，隧道中线到起拱线圆心的距离，XXX为上述之和，上述H+XXXO为起拱线圆心设计标高，起拱线处于水平面，故高程与圆心标高相等J-OP为拱部到起拱线高差M-NQ为圆心和偏距之间的距离，由上述俩点求出斜边即半径隧道3心圆放样主程序（CQW）Lb1 5“H=”：HJ=”？J: H+XXXHJ-HP:Z- XXXQ:(Q)(2)+P(2)VV- XXXVV=“：V5.07Q：11P:?J: J-HJ: Abs(4.125-Z)ZIf J6.319:Then (Z2+(J-0.715)2 )-QV: IfEnd:If J1.577 AND J 6.319 Then (Z-0.723)2+(J-1.577) 2)-PV :IfEnd:IfJ1.577 AND J 6.319J: Then Z-(P+0.723)V: IfEnd:“V=”: VQ-第一个圆圆心P-第二个圆圆心J-实测高程H-路面纵断设计高程Z-由反算主程序反算得到边距（不需修改）程序中右线输入Abs(5.72-Z) Z，左线输入Abs(5.72+Z) ZCQW-计算结果（+超，-欠）三算例请到http:/www.celiang.net/celiang/article_view.asp?id=1101&author=tung 有算例。注:1.本程序根据空间里程序改编而成，并非本人原创。2.正算跨线元计算正确，反算时跨线元计算第一