




已阅读5页,还剩30页未读, 继续免费阅读
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
第2章 路线平面设计,教学内容: (1)程序功能 (2)设计资料 (3)平面设计计算原理与公式 (4)平面设计程序设计方法及流程框图,(第2讲),第2章 路线平面设计,2.1.1 程序功能 (1)平曲线计算:曲线要素及主点里程桩号计算 (2)交点坐标计算 (3)保存计算结果 2.1.2 设计资料 平面设计资料:Pmsjzl.dat (用于计算平曲线、交点坐标) 计算平曲线:交点桩号(坐标),偏角,半径,缓和曲线长度 计算交点坐标:起点方位角,起点坐标(x,y),第一节 概 述,第2章 路线平面设计,2.1.1 程序功能 (1)平曲线计算:曲线要素及主点里程桩号计算 (2)交点坐标计算 (3)保存计算结果 2.1.2 设计资料 平面设计资料:Pmsjzl.dat (用于计算平曲线、交点坐标) 计算平曲线:交点桩号(坐标),偏角,半径,缓和曲线长度 计算交点坐标:起点方位角,起点坐标(x,y),第一节 概 述,数据结构 第1行:起点方位角(FWJ),起点x坐标,起点y坐标 第2行:交点编号,曲线类型,交点桩号(数值),偏角,半径,第一缓和曲线长,第二缓和曲线长 第3行:同第2行,下同(1个交点占1行,数据示例: 85,1000,1000 起点,0,4600,0,0,0,0 1,0,5010.29,53.2706,500,100,100 2,0,5791.24,-67.5418,260,150,150 ,(1)数据文件一律采用纯文本格式。数据间用逗号间隔,也可用换行符间隔。 (2)计算方位角及交点坐标三个数据为本数据文件的首行,其余一个交点占一行,起点及终点亦各占一行。起、终点为直线时,半径设为0,偏角也为0。行尾不能有逗号或句号 。 (3)偏角值以度分秒输入,小数点代表度,后跟四为小数表示分秒。其值是有正负号的,正号代表右偏,负号代表左偏。 (4)曲线类型:单曲线qxlx=0;回头曲线qxlx=1;卵型曲线qxlx=2。 当曲线类型为回头曲线(或虚交点)时,即qxlx=1,则平曲线数据应增加为9个,其数据格式为:num, qxlx, jda, pja_dms, r, Ls, Ls2, jdb, pjb_dms。,数据结构说明:,数据示例: 85,1000,1000 起点,0,4600,0,0,0,0 1,0,5010.29,53.2706,500,100,100 2,0,5791.24,-67.5418,260,150,150 3,1,6214.61,89.1436,100,70,70,6307.53,92.4236 终点,0,7133.67,0,0,0,0,第二节 计算原理及公式,1. 平曲线计算 2. 交点坐标计算,2.2.1 平曲线计算,旋 转 角 圆曲线内移值 切线增值 切线长 曲线长 外 距 校正值,(1)有缓和曲线的道路平曲线几何元素计算 (角度以弧度计),0=Ls/2R,J=2T-L,(2)有缓和曲线的道路平曲线主点里程桩号计算,由交点里程桩号JD 起算: ZH=JD-T HY=ZH+Ls QZ=ZH+L/2 YH=HZ-Ls HZ=ZH+L,2.2.2 交点坐标计算,Xn=Xn-1+LJDcosn-1 Yn=Yn-1+LJDsinn-1,式中:XnJDn的X坐标(北坐标); YnJDn的Y坐标(东坐标); LJD交点间距(JDn-1 到JDn间距); LJD=JDn - JDn-1 + Jn-1 n-1JDn-1的计算方位角 ; n=n-1+n 公路转向系数,右偏=1,左偏=-1。,第三节 程序设计方法及流程框图,1. 控制窗体设计 2. 程序设计 (1)有缓和曲线的道路平曲线计算程序 (2)交点坐标计算程序 3. 浏览路径窗体设计,2.3.1 控制窗体设计,窗体名:pmjs.frm,Text1,Command1,Command2,Command3,第三节 程序设计方法及流程框图,点击运行,2.3.2 程序设计步骤及流程框图,(1) 有缓和曲线的道路平曲线计算程序 (2) 交点坐标计算程序,打开平面设计输入、输出文件,读入起点方位角、x坐标、y坐标,判断是否文件尾,读入平面设计资料,识别偏角度分秒(DMS)并转换为弧度(RAD),计算p,q及曲线要素T、L、E、J,计算曲线主点里程桩号,计算结果输出到文件Zqzbsj.dat,关闭文件,结束计算,No,Yes,开始,平曲线计算程序流程框图,打开平面设计输入、输出文件,读入起点方位角、x坐标、y坐标,判断是否文件尾,读入平面设计资料,识别偏角度分秒(DMS)并转换为弧度(RAD),计算p,q及曲线要素T、L、E、J,计算曲线主点里程桩号,计算结果输出到文件Zqzbsj.dat,关闭文件,结束计算,No,Yes,开始,平曲线计算程序流程框图,Private Sub Command1_Click() 平曲线计算 End Sub,Dim path As String path = pmjs.Text1.Text 打开平面设计资料数据文件Pmsjzl.dat Open path + “Pmsjzl.dat“ For Input As #1 ,或Open “Pmsjzl.dat“ For Input As #1 或Open “c:Pmsjzl.dat“ For Input As #1,Private Sub Command1_Click() 平曲线计算 End Sub,Dim path As String path = pmjs.Text1.Text 打开平面设计资料数据文件Pmsjzl.dat Open path + “Pmsjzl.dat“ For Input As #1,打开平面设计结果数据输出文件zqzbsj.dat Open path + “zqzbsj.dat” For Output As #2,打开平面设计输入、输出文件,读入起点方位角、x坐标、y坐标,判断是否文件尾,读入平面设计资料,识别偏角度分秒(DMS)并转换为弧度(RAD),计算p,q及曲线要素T、L、E、J,计算曲线主点里程桩号,计算结果输出到文件Zqzbsj.dat,关闭文件,结束计算,No,Yes,开始,平曲线计算程序流程框图,读入起点方位角、x坐标、y坐标 Input #1, fwj_dms, x, y,Private Sub Command1_Click() 平曲线计算 End Sub,Dim path As String path = pmjs.Text1.Text 打开平面设计资料数据文件Pmsjzl.dat Open path + “Pmsjzl.dat“ For Input As #1,打开平面设计结果数据输出文件zqzbsj.dat Open path + “zqzbsj.dat” For Output As #2,打开平面设计输入、输出文件,读入起点方位角、x坐标、y坐标,判断是否文件尾,读入平面设计资料,识别偏角度分秒(DMS)并转换为弧度(RAD),计算p,q及曲线要素T、L、E、J,计算曲线主点里程桩号,计算结果输出到文件Zqzbsj.dat,关闭文件,结束计算,No,Yes,开始,平曲线计算程序流程框图,EOF=End Or False,判断是否文件尾。若非文件尾,继续循环 Do While Not EOF(1) Loop,读入起点方位角、x坐标、y坐标 Input #1, fwj_dms, x, y,Dim path As String path = pmjs.Text1.Text 打开平面设计资料数据文件Pmsjzl.dat Open path + “Pmsjzl.dat“ For Input As #1,打开平面设计结果数据输出文件zqzbsj.dat Open path + “zqzbsj.dat” For Output As #2,Private Sub Command1_Click() 平曲线计算 End Sub,打开平面设计输入、输出文件,读入起点方位角、x坐标、y坐标,判断是否文件尾,读入平面设计资料,识别偏角度分秒(DMS)并转换为弧度(RAD),计算p,q及曲线要素T、L、E、J,计算曲线主点里程桩号,计算结果输出到文件Zqzbsj.dat,关闭文件,结束计算,No,Yes,开始,平曲线计算程序流程框图,Private Sub Command1_Click() 平曲线计算 Dim path As String path = pmjs.Text1.Text Open path + “Pmsjzl.dat“ For Input As #1 Open path + “ zqzbsj.dat “ For Output As #2 Input #1, fwj_dms, x, y Do While Not EOF(1) Loop End Sub,读入平面设计资料 Input #1, num, qxlx, jd, pj_dms, r, ls, ls2 If qxlx=1 Then Input #1, jdb, pjb_dms 回头曲线计算,打开平面设计输入、输出文件,读入起点方位角、x坐标、y坐标,判断是否文件尾,读入平面设计资料,识别偏角度分秒(DMS)并转换为弧度(RAD),计算p,q及曲线要素T、L、E、J,计算曲线主点里程桩号,计算结果输出到文件Zqzbsj.dat,关闭文件,结束计算,No,Yes,开始,平曲线计算程序流程框图,Private Sub Command1_Click() 平曲线计算 Dim path As String path = pmjs.Text1.Text Open path + “Pmsjzl.dat“ For Input As #1 Open path + “ zqzbsj.dat “ For Output As #2 Input #1, fwj_dms, x, y :fwj=dms_rad(fwj_dms) Do While Not EOF(1) Input #1, num, qxlx, jd, pj_dms, r, ls, ls2 If qxlx=1 Then Input #1, jdb, pjb_dms Loop End Sub,识别偏角度分秒(DMS)并转换为弧度(RAD)。 调用自定义函数Function dms_rad() pj_rad = dms_rad(Abs(pj_dms) fx=Sgn(pj_dms) 标定左右偏,自定义函数 Function dms_rad() 功能:识别度分秒(DMS)并转换为弧度(RAD),Function dms_rad(dms) (例:16.2542) d = Int(dms) m = Int(dms - d) * 100) s = (dms - d - m / 100) * 10000 deg = d + m / 60 + s / 3600 dms_rad = deg * 3.14159 / 180 End Function,格式: Function 函数名称(变量1,变量2, ) (计算程序模块) End Function,调用方法:a=dms_rad(b),打开平面设计输入、输出文件,读入起点方位角、x坐标、y坐标,判断是否文件尾,读入平面设计资料,识别偏角度分秒(DMS)并转换为弧度(RAD),计算p,q及曲线要素T、L、E、J,计算曲线主点里程桩号,计算结果输出到文件Zqzbsj.dat,关闭文件,结束计算,No,Yes,开始,平曲线计算程序流程框图,圆曲线内移值 圆心x坐标值 切线长 曲线长 外 距 校正值 J=2T-L,p = ls * ls / 24 / r,q = ls / 2 - ls 3 / 240 / r / r,t = (r + p) * Tan(pj_rad / 2) + q,l = pj_rad * r + ls,e = (r + p) / Cos(pj_rad / 2) - r,j = 2 * t - l,Open path + “Pmsjzl.dat“ For Input As #1 Open path + “ zqzbsj.dat “ For Output As #2 Input #1, fwj_dms, x, y :fwj=dms_rad(fwj_dms) Do While Not EOF(1) Input #1, num, qxlx, jd, pj_dms, r, ls, ls2 If qxlx=1 Then Input #1, jdb, pjb_dms pj_rad = dms_rad(Abs(pj_dms) fx=Sgn(pj_dms) Loop,计算p,q及曲线要素T、L、E、J If r 0 Then p = ls * ls / 24 / r q = ls / 2 - ls 3 / 240 / r / r t = (r + p) * Tan(pj_rad / 2) + q l = pj_rad * r + ls e = (r + p) / Cos(pj_rad / 2) - r j = 2 * t - l Else 半径为0,不计算曲线要素 t = 0: l = 0: e = 0: j = 0 End If,打开平面设计输入、输出文件,读入起点方位角、x坐标、y坐标,判断是否文件尾,读入平面设计资料,识别偏角度分秒(DMS)并转换为弧度(RAD),计算p,q及曲线要素T、L、E、J,计算曲线主点里程桩号,计算结果输出到文件Zqzbsj.dat,关闭文件,结束计算,No,Yes,开始,平曲线计算程序流程框图,计算主点里程桩号 zh = jd t :hy = zh + ls :qz = zh + l / 2 hz = zh + l :yh = hz - ls,Do While Not EOF(1) Input #1, num, qxlx, jd, pj_dms, r, ls, ls2 If qxlx=1 Then Input #1, jdb, pjb_dms pj_rad = dms_rad(Abs(pj_dms) fx=Sgn(pj_dms) 计算p,q及曲线要素T、L、E、J If r 0 Then p = ls * ls / 24 / r q = ls / 2 - ls 3 / 240 / r / r t = (r + p) * Tan(pj_rad / 2) + q l = pj_rad * r + ls e = (r + p) / Cos(pj_rad / 2) - r j = 2 * t - l Else 半径为0,不计算曲线要素 t = 0: l = 0: e = 0: j = 0 End If Loop,打开平面设计输入、输出文件,读入起点方位角、x坐标、y坐标,判断是否文件尾,读入平面设计资料,识别偏角度分秒(DMS)并转换为弧度(RAD),计算p,q及曲线要素T、L、E、J,计算曲线主点里程桩号,计算结果输出到文件Zqzbsj.dat,关闭文件,结束计算,No,Yes,开始,平曲线计算程序流程框图,Close End Sub,Private Sub Command1_Click() 平曲线计算 计算p,q及曲线要素T、L、E、J If r 0 Th
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 高一分班考试真题及答案
- 建市函〔2022〕453号房屋建筑和市政工程招投标知识试题附答案
- 2025年病历管理制度与病历书写规范测验题(答案)
- 2025年《汽车维修工技师》考试习题库及参考答案
- 边缘计算优化策略-第31篇-洞察与解读
- 事业单位招聘考试综合类面试真题模拟试卷:国际关系与外交政策
- 2025年江西省事业单位招聘考试旅游历史专业能力测试真题模拟解析试卷
- 2025年事业单位面试真题模拟试卷:社会治理科学研究与应用
- 鸿达驾校考试题库及答案
- 黑龙江新高考试题及答案
- 费曼学习法完整版本
- 辅警专业能力素质测试题及答案
- 安检服务风险管理制度
- DB32∕T 3723-2020 高标准农田建设项目工程概算编制规程
- 2025年入党积极分子培训考试试卷及答案(共五套)
- 煤矿“打非治违”专项行动实施方案
- 2025年湖南高速铁路职业技术学院单招职业技能考试题库必考题
- 2024年济南公共交通集团有限公司招聘考试真题
- 医疗设备采购投标违约责任承诺书范文
- 全国公开课一等奖初中化学九年级上册(人教2024年新编)《跨学科实践活动-制作模型并展示科学家探索物质组成与结构的历程》课件
- 内镜下套扎术护理配合
评论
0/150
提交评论