自用5800P全线任意里程中边桩正反算及高程计算带超欠挖.doc

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-计算结果（+超，-欠）三算例请到/celiang/article_view.asp?id=1101&author=tung 有算例。注:1.本程序根据空间里程序改编而成，并非本人原创。2.正算跨线元计算正确，反算时跨线元计算第一次结果错误，反应速度比一般输出结果慢，给出结果S=XXX为输入坐标的线元概略里程，在进行计算，显示结果*近似里程*，里程及偏距误差0.001m.，可更改数据（1E-6）改为（1E-3），速度稍快一点。3本程序可进行偏角法放样。4.输入每行数据看数据输完毕没有，输完不要忘记按（EXE）5.使用者需细心输入，有问题在以下网址查找原因。/celiang/article_view.asp?id=380&author=yshf61E-6即是10的負6次方,亦即是等於0.0000017.程序还在不停更新中，发现问题请指正，希望哪位神人能把此程序改的更简化一点。谢谢发贴：+13 分 【测量空间】0查看楼主其它文章J+360J:131116.996+12003.1415926(J-284.788325)180K: K:K482.33+0.0080(K-137650)O: H0:OO+2.48+4.28+C+ZH: HG:HHC?M-HN: NG:N1599.896-ID: D:DMO+2.54-0.75=Goto 2O-L-MV: V:VAbs(D)-(2.83+C-(A2+0.05-T)(2.54-0.75+L)(M-(O-L)+A2-T+0.05+Z)Q: CQZ:QGoto 1Lbl 2:MO+3.73+(3.26+C+Z)sin(45-3351) =Goto 3(6.57+Abs(D)2+(M-(O+2.54)2)-(9.4+C+Z)Q: CQZ:QGoto 1Lbl 3:MO+4.28+(2.48+C+Z)cos(45) =Goto 4(0.55+Abs(D)2+(M-(O+3.73)2)-(3.26+C+Z)Q: CQZ:QGoto 1Lbl 4:(D2+(M-(O+4.28)2)-(2.48+C+Z)Q: CQZ:QGoto 112 楼：隧道春09-8-22 9:47 回还望各位知道的朋友帮我配备个边这套程序的说明啊 13 楼：fk20032109-8-23 23:11 回坚决支持楼主！狂顶！这么好的程序！大家把他顶起来！14 楼：happh200609-8-25 15:37 回可以改成计算斜交任意角度的程序15 楼：lbt09-8-25 17:3 回评：+8 分顶16 楼：t7456718709-8-26 15:44 回没有数曲线呢 就 是一个纵坡高程 数据库怎么输啊17 楼：LW31740924809-8-26 21:42 回16楼:t74567187竖曲线包括了所有运算过程和数据库18 楼：布山客09-8-27 11:5 回顶一个19 楼：xingzyhou09-8-31 23:38 回评：+10 分只能算一条曲线的啊，要是有多条综合曲线，请问楼主怎么办好呢？20 楼：大哥大09-9-11 7:45 回谢谢21 楼：LW317409248 楼主 09-9-11 22:25 回19楼:xingzyhou多看看说明，如果是分离式路基那么就在桩号前多加一位数字即可，计算机方便辨认线路，匝道一样22 楼：liuyong09-9-13 22:5 回评：+8 分很好，但不知怎么下载23 楼：LW31740924809-9-14 1:23 回22楼:liuyong只需复制就行24 楼：初学着09-9-17 10:50 回怎么计算就是差那个0,000几25 楼：sd98420509-9-17 17:57 回非常感谢，正好要用26 楼：留心09-10-12 0:27 回评：+10 分好程序就要顶一下27 楼：学测量09-10-15 17:50 回楼主你好：线路上中边桩高程是否都能算？28 楼：linsen09-10-17 13:51 回超欠怎么H-0.0000H(0.000可按照本合同段测设中心到路肩高差怎么输入呀，我的高程怎么都是无限大的呀，29 楼：linsen09-10-19 11:43 回评：+10 分楼主在吗？能帮我解释一下我的高程显示的无限大的原因吗？能加你的QQ聊下吗 30 楼：dgsd09-10-25 19:12 回断连如何处理啊？31 楼：tyxiayu09-10-29 17:39 回请教下，有断链的时候，数据库应该怎么改32 楼：狼图腾09-11-9 14:32 回都说好久用用看！有什么问题在问啊楼哥啊！QQ765039521！狼图腾33 楼：寂寞09-11-9 15:3 回评：+6 分顶下34 楼：陈一10-1-26 12:27 回在算缓和曲线时起点半径是无穷大（1045)址点半径是该曲线的半径，计算时，会出现这种现象，Math ERROR,问题