楼:d297205018 10-10-21 19:11 看不到 评:1028 楼:mzq 10-10-21 20:56 分 1 楼:金昱子程序名-平面线形数据库有点不太明白, ! 劳驾你帮我传一份曲线要素线路图 谢谢! !896273488qq.com29 楼:金昱 楼主 10-10-21 21:40
VB 源码彩色显示 注:在code.../code内就以下面格式显示文字,双击
源码拷贝 到剪切板任意坐标正反算及隧道超欠挖程序(改变了显示的简单化)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:Locate44 S :“Pquot:Locate44 Z:S→ K:Prog“SJ-GC” :“H”:Locate44 H◢Goto 4Lbl 3: “X”X:“Y”?Y:Prog“SJ-PM”: X→ I: Y→ J:Prog quotSUB2-FSquot:OW→S: “Kquot:Locate44 S :“Pquot:Locate44 Z:S→ K:Prog“SJ-GC” :“H”:Locate44 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
VB 源码彩色显示 注:在code.../code内就以下面格式显示文字,双击
源码拷贝到 剪切板注: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”FIf 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
VB 源码彩色显示 注:在code.../code内就以下面格式显示文字,双击
源码拷贝到 剪切板说明:正算 1 秒,反算和超欠挖 5 秒完成所有程序名。
不同线路,只需改动 SJ-PM,SJ-GC,SJ-CQW 三个子程序里的内容,其它不变。
注意 0 和 O 的区别1 为正算,2 为反算,3 为超欠挖.K 正算时,输入所求点里程。
反算时得出里程结果 X,Y 正算时得出结果。
反算时输入实测坐标 P 正算时输入偏距。
反算时得出偏距 H 正算时得出高程。
反算时得出高程 H1 超欠挖时输入实测高程 CQ-CQ 得出超欠挖值注,超欠挖输入时显示里程,编距,设计高程,不需输入。
只输入实测量高程 H130 楼:zhuyi98 10-10-21 22:29 在这里做下宣传,我的 9860 三维全能程序的隧道超欠功能可以计算任意断面,可以渐变,要的联系我 QQ76805071 评:1031 楼:小鸟飞不高 10-10-22 11:34 分 俺是菜鸟看不懂,能不能教教我32 楼:xiaozhong 10-10-22 16:53 楼主把图形上传一下谢谢 评:833 楼:cqtndan 10-10-22 17:51 分 请问那个隧道数据库怎么输入啊?里面的各个数据是怎么回事啊 ?麻烦发一份到249048956qq.com.谢谢34 楼:lp198619 10-10-22 18:39 我对 SJ-PM(子程序名-平面线形数据库)和 SJ-GC(子程序名-竖数据库)中的参数怎么来的看不懂能有更详细点的说明吗我的邮箱是 lp198619_2007126.com非常感谢你 评:1035 楼:lp198619 10-10-22 18:43 分 还有就是断面的参数是怎么来的最后所以的能发过图来看看先谢谢哈 评:836 楼:loveglc01 10-10-22 18:49 分 我邮箱是 5690287qq.com,麻烦楼主给我传一份37 楼:938592259 10-10-22 22:24 问一下楼主,如果有左右幅隧道怎么加数据库呢? 评:1038 楼:刘从柏 10-10-22 22:38 分 程序很好用,谢谢楼主无私精神!赞一个哈 评:-1039 楼:金昱 楼主 10-10-23 1:8 分 37 楼:938592259多加一个平面隧道数据库,将名称换一下,但是名称要对应。
40 楼:xiaozhong 10-10-23 10:44 麻烦楼主带着图纸发到小弟邮箱 790112993qq.com 谢啦41 楼:938592259 10-10-23 21:54 楼主你好,我输了你的程序,根据曲线元素表输数据,算出来的不对,你能帮我吗?42 楼:wrj444 10-10-23 22:28 楼主的程序很好 ,请我给我一份带简图的,谢谢了!我的邮箱:wrj444163.com43 楼:金昱 楼主 10-10-24 1:22 41 楼:938592259决对是没有问题的。
我输入的计算误差只有 1mm,可能是你输入的有问题。
再细细的检查一次呀 评:1044 楼:fu860829 10-10-24 8:40 分 麻烦给俺一份,最好带简图程序说明的,谢谢,邮箱是 469890179qq.com45 楼:goo 10-10-24 14:16 楼主麻烦给我发份,邮箱是 37514799qq.com 谢谢46 楼:938592259 10-10-24 14:23 楼主,能不能麻烦你帮我输呢?我刚学测量不太懂。
评:647 楼:xzy1985 10-10-24 14:57 分 楼主大侠,给俺也发一份,小弟先谢谢啦啊 !!408299715qq.com48 楼:zhuyi98 10-10-24 16:26 foxy://downloadxturn:sha1:4QOL2ADZDCVJM7T4VL3AUEQIMETDERPBampxturn:ed2k:b56d642991a59c062608e8ea72da9eaaampdnQQ 截图未命名.bmpampfs720566请问楼主的程序能计算这个隧道吗?49 楼:zhuyi98 10-10-24 16:28 需要隧道程序的朋友联系我吧,不管你是做水利的还是做铁路和公路的,我的隧道断面程序通吃,还能渐变哦!!50 楼:金昱 楼主 10-10-24 18:25 48 楼:zhuyi98什么断面的隧道图。
发到我邮箱看看。
51 楼:yang1 10-10-25 16:6 谢谢楼主,麻烦给我传份带图的,邮箱:624787716qq.com 评:852 楼:飘然 110 10-10-26 16:0 分 可以给我传一份吗带图的。
谢谢,邮箱 yuhoutiankongabc163.com53 楼:疯狂摇摆 10-10-26 18:7 谢谢楼主,麻烦给我传份带图的,邮箱:24253821qq.com54 楼:陈杨 10-10-27 7:56 不错,实践一下55 楼:疯狂摇摆 10-10-27 15:2 楼主 请问计算超欠挖时显示的 P?是什么意思?56 楼:magic-2010 10-10-27 15:8 楼主能.
上一篇:
ICTCLAS分词系统研究
下一篇:
经腹腔镜治疗异位妊娠的护理论文