《自用5800P全线任意里程中边桩正反算及高程计算带超欠挖》由会员分享，可在线阅读，更多相关《自用5800P全线任意里程中边桩正反算及高程计算带超欠挖（11页珍藏版）》请在金锄头文库上搜索。
1、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
2、)W: ProgSUB1:XS=:XYS=:YFS=:F-90 DMS“XC” ?C： “YC” ? E：0I：0J：Pol（X-C，Y-E）:“I=”：IIf J0: Then “J=”: J+360DMSIfEndIf J 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=:S Z=:Z“DYSQXSJK=”？B:B=1=Prog“ZG1” :B=2=Prog“
3、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+Q
4、ELW(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）0 : Then G+(C-E) 2/2/R-L*BH : Goto 5 : Else If W0 : Then G+(E-D) 2/2/R-L*AH : Goto 5 : Els
5、e 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=?
6、 反算时得出的偏距V= 计算得出的半径，即直角 3 角形斜边H+XXX O 其中 XXX 为（路面高程测设线到隧道中线之高差，隧道中线到起拱线圆心的距离，XXX 为上述之和，上述 H+XXXO 为起拱线圆心设计标高，起拱线处于水平面，故高程与圆心标高相等J-OP 为拱部到起拱线高差M-NQ 为圆心和偏距之间的距离，由上述俩点求出斜边即半径隧道 3 心圆放样主程序（CQW）Lb1 5“H=”： HJ=”？J: H+XXX HJ-HP:Z- XXXQ:(Q)(2)+P(2)VV- XXXVV=“：V5.07Q：11P:?J: J-HJ: Abs(4.125- Z)ZIf J6.319:Then (
7、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:/ 有算例。注:1.本程序根据空间里程序改编而成，并非本人原创。2.
8、正算跨线元计算正确，反算时跨线元计算第一次结果错误，反应速度比一般输出结果慢，给出结果 S=XXX 为输入坐标的线元概略里程，在进行计算，显示结果*近似里程*，里程及偏距误差 0.001m.，可更改数据（1E-6）改为（1E-3 ），速度稍快一点。3本程序可进行偏角法放样。4.输入每行数据看数据输完毕没有，输完不要忘记按（EXE）5.使用者需细心输入，有问题在以下网址查找原因。http:/ 即是 10 的負 6 次方,亦即是等於 0.0000017.程序还在不停更新中，发现问题请指正，希望哪位神人能把此程序改的更简化一点。谢谢发贴：+13 分 【测量空间 】0查看楼主其它文章 J+360J:1
9、31116.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
10、)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 楼：fk200321 09-8-23 23:11 回坚决支持楼主！狂顶！这么好的程序！大家把他顶起来！14 楼：happh2006 09-8-25 15:37 回可以改
11、成计算斜交任意角度的程序15 楼：lbt 09-8-25 17:3 回 评：+8 分顶16 楼：t74567187 09-8-26 15:44 回没有数曲线呢 就 是一个纵坡 高程 数据库怎么输啊17 楼：LW317409248 09-8-26 21:42 回16 楼:t74567187竖曲线包括了所有运算过程和数据库18 楼：布山客 09-8-27 11:5 回顶一个19 楼：xingzyhou 09-8-31 23:38 回评：+10 分只能算一条曲线的啊，要是有多条综合曲线，请问楼主怎么办好呢？20 楼：大哥大 09-9-11 7:45 回谢谢21 楼：LW317409248 楼主 09
12、-9-11 22:25 回19 楼:xingzyhou多看看说明，如果是分离式路基那么就在桩号前多加一位数字即可，计算机方便辨认线路，匝道一样22 楼：liuyong 09-9-13 22:5 回 评：+8 分很好，但不知怎么下载23 楼：LW317409248 09-9-14 1:23 回22 楼:liuyong只需复制就行24 楼：初学着 09-9-17 10:50 回怎么计算就是差那个 0,000 几25 楼：sd984205 09-9-17 17:57 回非常感谢，正好要用26 楼：留心 09-10-12 0:27 回评：+10 分好程序就要顶一下27 楼：学测量 09-10-15 1
13、7:50 回楼主你好：线路上中边桩高程是否都能算？28 楼：linsen 09-10-17 13:51 回超欠怎么 H-0.0000H (0.000 可按照本合同段测设中心到路肩高差怎么输入呀，我的高程怎么都是无限大的呀，29 楼：linsen 09-10-19 11:43 回评：+10 分楼主在吗？能帮我解释一下我的高程显示的无限大的原因吗？能加你的 QQ 聊下吗 30 楼：dgsd 09-10-25 19:12 回断连如何处理啊？31 楼：tyxiayu 09-10-29 17:39 回请教下，有断链的时候，数据库应该怎么改32 楼：狼图腾 09-11-9 14:32 回都说好久用用看 ！
14、有什么问题在问啊楼哥啊 ！QQ765039521！狼图腾33 楼：寂寞 09-11-9 15:3 回 评：+6 分顶下34 楼：陈一 10-1-26 12:27 回在算缓和曲线时起点半径是无穷大（1045)址点半径是该曲线的半径，计算时，会出现这种现象，Math ERROR,问题出现在 “G+QEKW(C+KWD)）”这个位子，不知道是什么原因，算直线圆曲线能算，缓和曲线段就出错，这是什么原因，希望楼主能帮我解答一下35 楼：。 10-3-5 15:14 回 评：+6 分显示部分：XS= 正算时，计算得出的所求点的 X 坐标YS= 正算时，计算得出的所求点的 Y 坐标FS= 正算时，所求点对应的中线点的切线方位角XC= 测站点 X 值YC= 测站点 Y 值 I=XXX 测站到放样点距离J=XXX 测站到放样点方位角这个测站点坐标太麻烦了 能不能提示输入一次？以下就不用输了？
