乐橙国际_乐橙国际娱乐网是_乐橙国际娱乐lc8.com

12月 7 2016

5800道路全线任意桩号设计高程计算程序(带数据裤)


程序介绍:本程序适用于CASIO fx-5800P,用于计算道路测量中全线任意桩号的中桩设计高程,程序简洁,数据库子程序第一个和最后一个变坡点的参数输入时要注意一下格式,其它变坡参数的输入格式都是一样,参照《纵坡、竖曲线表》可以很快的输入;温馨提示:下面程序代码输入时请在每行的末尾加上换行符(回车键-EXE),红色文字的代码可以输入,可以不输入,建议输入,即使不用也不会影响效率;主程序:SQX程序说明Fix 3保留三位小数Lbi 0″K-DQ”:?K                          输入待计算点的桩号Prog “SQX-SUB”               调用运算子程序计算输入桩号的高程If K<道路起点桩号 Or K>道路终点桩号:Then “K-DQ,ERROR”:Ifend     判断输入桩号是否在工程的范围内,如果不在会提示出错,需要重新输入桩号”H-DQ=”:H▲                   显示所输入桩号的中桩设计高程”JU,LI”?S输入下一个要计算的桩号到本桩号的距离,如果要计算相隔同一距离的多个桩就更方便,比如:要隔20米计算一个点,输入20即可,程序就会自动计算,不用再输入;不要此功能就不要输入本行和下一行程序代码K+S→K程序自动计算下一个要计算的桩号,不要此功能就不要输入本行和上一行程序代码Goto 0跳转到Lbi 0运算子程序:SQX-SUBProg “SQX-DATA”调用竖曲线数据库子程序确定竖曲线参数If I>J:Then -1→Q:Ifend判断竖曲线是凹/凸曲线,I>J为凸曲线If I判断竖曲线是凹/凸曲线,IRAbs(I-J)÷100→L计算竖曲线长度,选择输入,本程序计算时没有使用L÷2→T计算切线长度,选择输入,本程序计算时没有使用T2÷(2R)→E计算外距,选择输入,本程序计算时没有使用C-T→M计算竖曲线起点桩号C+T→N计算竖曲线终点桩号If K≤M:Then D-(C-K)I÷100→H:Ifend计算竖曲线起点前直线段的高程If K>M And K≤C:Then (K-M)2÷(2R)→P:D-(C-K)I÷100+PQ→H:Ifend计算竖曲线前半段各点的高程If K>C And K≤N:Then (K-N)2÷(2R)→P:D-(C-K)J÷100+PQ→H:Ifend计算竖曲线后半段各点的高程If K>N:Then D-(C-K)J÷100→H:Ifend计算竖曲线终点后直线段的高程数据库子程序:SQX-DATAIf K≥线路起点 And K<本段竖曲线终点:Then 本变坡点桩号→C:本变坡点高程→D:本变坡点竖曲线半径→R:本变坡点前的直线纵坡度→I:本变坡点后的直线段纵坡度→J:Ifend第一个变坡点参数,输入各变坡点前、后直线纵坡度时不用带%,下同;If K≥上一段竖曲线终点 And K<本段竖曲线终点:Then 本变坡点桩号→C:本变坡点高程→D:本变坡点竖曲线半径→R:本变坡点前的直线纵坡度→I:本变坡点后的直线段纵坡度→J:Ifend中间变坡点参数输入格式…………………中间格式完全相同,有多少个变坡点就输多少个参数If K≥上一段竖曲线终点 And K<本段竖曲线终点:Then 本变坡点桩号→C:本变坡点高程→D:本变坡点竖曲线半径→R:本变坡点前的直线纵坡度→I:本变坡点后的直线段纵坡度→J:Ifend中间变坡点参数输入格式If K≥上一段竖曲线终点 And K<道路终点桩号:Then 本变坡点桩号→C:本变坡点高程→D:本变坡点竖曲线半径→R:本变坡点前的直线纵坡度→I:本变坡点后的直线段纵坡度→J:Ifend最后一个变坡点参数本程序,经工程中实际测试,未发现错误,5800能较好地运行;拿来与同行朋友们分享,交流;也渴望有编程爱好及所有工程测量工作爱好者加入探讨,一起研究更多更实用的更方便的测量程序。看完记得搜索微信公众号:测量程序

看过本文的人还看过

Written by yuefabo


发表评论

电子邮件地址不会被公开。 必填项已用*标注