【vb精品源码栏目提醒】:网学会员为广大网友收集整理了,5800隧道正反算超欠挖 - 工程建设,希望对大家有所帮助!
5800 正反算及隧道超欠挖 任意坐标正反算及隧道超欠挖程序1-JIN YU主程序Lbl 4:quot1→ZS2→FS3→CQWquotNN1gtGoto 1:N2gtGoto 2:N3gtGoto 3Lbl 1: “K”S:“P”Z:Prog “SJ-PM”: AbsS-O → W:Prog quotSUB1-ZSquot: “Xquot:Locate44X:quotYquot:Locate44Y:F-90→F:S→ K:Prog“SJ-GC”:“H”:Locate44H◢Goto 4Lbl 2:“X”X:“Y”?Y:Prog“SJ-PM”: X→ I: Y→ J:Prog quotSUB2-FSquot:OW→S: “Kquot: S ◢“Pquot: Z◢S→ K:Prog“SJ-GC” :“H”: H◢Goto 4Lbl 3: “X”X:“Y”?Y:Prog“SJ-PM”: X→ I: Y→ J:Prog quotSUB2-FSquot:OW→S: “Kquot: S ◢“Pquot: Z◢S→ K:Prog“SJ-GC” :“H”: H◢Prog“SJ-CQW” ◢Goto4SJ-PM(子程序名-平面线形数据库)If S ≥59227.681(线元起点里程):Then 2599818.013→U(线元起点 X 坐标):496887.918→V(线元起点 Y 坐标):59227.681→O(线元起点里程):208028’39”→G(线元起点方位角):100 →H(线元长度):1×1045→P(线元起点曲率半径):1×1045→R(线元终点曲率半径):0 →Q(线元左右偏标志:左-1右 1):IfEndIf S ≥59327.681(线元起点里程):Then 2599730.112→U(线元起点 X 坐标):496840.237→V(线元起点 Y 坐标):59327.681→O(线元起点里程):208028’39”→G(线元起点方位角):90 →H(线元长度):1×1045→P(线元起点曲率半径):750→R(线元终点曲率半径):-1 →Q(线元左右偏标志:左-1 右 1):IfEnd…………SJ-GC(子程序名-竖数据库)If S<变坡终点里程 And S≥变坡起点里程:Then 大里程坡度→A:小里程坡度→B:变坡点里程→O:变坡点高度→G:半径→R:Prog“SUB3-GC”:IfEnd注:1.有多个竖曲线,依照上面的依次变更,每多一个,就增加一个。
每次只需要修改以上的数据或增加一个判断,子程序不用变动。
2.如整条线只有一个纵坡比喻为 2%,那么程序应为 If S<终点里程 And S≥起点里程:Then 0.02→A:0.02→B:起点里程→O:起点高程→G:1×1045→R:Prog“SUB3-GC”:IfEndSJ-CQW 子程序名-隧道数据库“H1”F:”P”ZIf F-H>5.845:Then √Abs Z2F-H-0.452 -7.45→W: IfEnd:If F-H≤5.845 And F-H>-1.169: Then √Abs Z-12 Abs F-H-1.5 2-6→W :IfEnd:If F-H≤-1.169: Then √Abs Z 2H-F14.05 2-16.5→W: IfEnd:……“CQ-CQ”: WSUB1-ZS正算子程序1÷P→ C: P-R÷2HPR → D: 180÷π→ E: 0.1739274226→ A: 0.3260725774→ B: 0.0694318442→ K: 0.3300094782→ L: 1-L→ F:1-K→ M:UWAcosGQEKWCKWDBcosGQELWCLWDBcosGQEFWCFWDAcosGQEMWCMWD → X:VWAsinGQEKWCKWDBsinGQELWCLWDBsinGQEFWCFWDAsinGQEMWCMWD → Y: GQEWCWD90→ F: XZcosF→ X: YZsinF→ YSUB2-FS反算子程序G-90→T: AbsY-VcosT-X-Usin(T) → W: 0→ Z:Lbl 0:Prog quotSUB1-ZSquot: TQEWCWD →L: J-YcosL-I-XsinL → Z:If AbsZlt1E-6注:此处 1E-6 可输入 0.000001:then Goto1:Else WZ → W:Goto 0:IfEndLbl 1: 0→ Z:Prog quotSUB1-ZSquot: J-Y÷sinF→ ZSUB3-GC(高程子程序)O-S→L:A-B→W:AbsRW÷2 →T:O-T→M:OT→PIf S≤M:ThenG-LB→H:Goto5:Else If S≤O:Then Goto3:Else If S≤P:Then Goto4:IfEnd: IfEnd: IfEndLbi3If W>O:Then GM-S2÷2÷R-LB→H:Goto5: Else If W<O: Then G-M-S2÷2÷R-LB→H:Goto5: IfEnd: IfEndLbi4If W>O:Then G S-P2÷2÷R-LA→H:Goto5: Else If W<O: Then G- S-P2÷2÷R-LA→H:Goto5: IfEnd: IfEndLbi5H→H: Return说明:正算 1 秒,反算和超欠挖 5 秒完成所有程序名。
不同线路,只需改动 SJ-PM,SJ-GC,SJ-CQW 三个子程序里的内容,其它不变。
1 为正算,2 为反算,3 为超欠挖.K 正算时,输入所求点里程。
反算时得出里程结果 X,Y 正算时得出结果。
反算时输入实测坐标 P 正算时输入偏距。
反算时得出偏距 H 正算时得出高程。
反算时得出高程 H1 超欠挖时输入实测高程 CQ-CQ 得出超欠挖值注,超欠挖输入时显示里程,编距,设计高程,不需输入。
只输入实测量高程 H1谢谢发贴:410 分 【测量空间】celiang.net0 查看楼主其它文章 ltlt返回 → 回复内容 只查看楼主与本人回复 评:-10沙发:金昱 楼主 10-10-17 20:10 分 关于隧道超欠挖,有简图无法上传。
程式中的“)2”都为平方需要的朋在可给邮箱传之。
本人反复符合,误差 2MM 评:82 楼:金成飞飞 10-10-17 23:50 分 程序很好,简单直观,完全可以计算,缺点就是反算有点慢。
评:103 楼:天涯任我行 10-10-18 12:9 分 很好很全的隧道测量程式,给初学者有很大的帮助,传一份我学习 1490997361qq.com4 楼:金昱 楼主 10-10-18 14: