《路线平面设计》PPT课件.pptVIP

第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,01,0,5010.29,53.2706,500,100,1002,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,01,0,5010.29,53.2706,500,100,1002,0,5791.24,-67.5418,260,150,1503,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-THY=ZH+LsQZ=ZH+L/2YH=HZ-LsHZ=ZH+L,2.2.2交点坐标计算,Xn=Xn-1+LJDcosn-1Yn=Yn-1+LJDsinn-1,式中：XnJDn的X坐标（北坐标）；YnJDn的Y坐标（东坐标）；LJD交点间距（JDn-1到JDn间距）；LJD=JDn-JDn-1+Jn-1n-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,开始,平曲线计算程序流程框图,PrivateSubCommand1_Click()平曲线计算EndSub,DimpathAsStringpath=pmjs.Text1.Text打开平面设计资料数据文件Pmsjzl.datOpenpath+Pmsjzl.datForInputAs#1,或OpenPmsjzl.datForInputAs#1或Openc:Pmsjzl.datForInputAs#1,PrivateSubCommand1_Click()平曲线计算EndSub,DimpathAsStringpath=pmjs.Text1.Text打开平面设计资料数据文件Pmsjzl.datOpenpath+Pmsjzl.datForInputAs#1,打开平面设计结果数据输出文件zqzbsj.datOpenpath+“zqzbsj.dat”ForOutputAs#2,打开平面设计输入、输出文件,读入起点方位角、x坐标、y坐标,判断是否文件尾,读入平面设计资料,识别偏角度分秒(DMS)并转换为弧度(RAD),计算p,q及曲线要素T、L、E、J,计算曲线主点里程桩号,计算结果输出到文件Zqzbsj.dat,关闭文件，结束计算,No,Yes,开始,平曲线计算程序流程框图,读入起点方位角、x坐标、y坐标Input#1,fwj_dms,x,y,PrivateSubCommand1_Click()平曲线计算EndSub,DimpathAsStringpath=pmjs.Text1.Text打开平面设计资料数据文件Pmsjzl.datOpenpath+Pmsjzl.datForInputAs#1,打开平面设计结果数据输出文件zqzbsj.datOpenpath+“zqzbsj.dat”ForOutputAs#2,打开平面设计输入、输出文件,读入起点方位角、x坐标、y坐标,判断是否文件尾,读入平面设计资料,识别偏角度分秒（DMS）并转换为弧度（RAD）,计算p,q及曲线要素T、L、E、J,计算曲线主点里程桩号,计算结果输出到文件Zqzbsj.dat,关闭文件，结束计算,No,Yes,开始,平曲线计算程序流程框图,EOF=EndOrFalse,判断是否文件尾。若非文件尾，继续循环DoWhileNotEOF(1)Loop,读入起点方位角、x坐标、y坐标Input#1,fwj_dms,x,y,DimpathAsStringpath=pmjs.Text1.Text打开平面设计资料数据文件Pmsjzl.datOpenpath+Pmsjzl.datForInputAs#1,打开平面设计结果数据输出文件zqzbsj.datOpenpath+“zqzbsj.dat”ForOutputAs#2,PrivateSubCommand1_Click()平曲线计算EndSub,打开平面设计输入、输出文件,读入起点方位角、x坐标、y坐标,判断是否文件尾,读入平面设计资料,识别偏角度分秒(DMS)并转换为弧度(RAD),计算p,q及曲线要素T、L、E、J,计算曲线主点里程桩号,计算结果输出到文件Zqzbsj.dat,关闭文件，结束计算,No,Yes,开始,平曲线计算程序流程框图,PrivateSubCommand1_Click()平曲线计算DimpathAsStringpath=pmjs.Text1.TextOpenpath+Pmsjzl.datForInputAs#1Openpath+zqzbsj.datForOutputAs#2Input#1,fwj_dms,x,yDoWhileNotEOF(1)LoopEndSub,读入平面设计资料Input#1,num,qxlx,jd,pj_dms,r,ls,ls2Ifqxlx=1ThenInput#1,jdb,pjb_dms回头曲线计算,打开平面设计输入、输出文件,读入起点方位角、x坐标、y坐标,判断是否文件尾,读入平面设计资料,识别偏角度分秒(DMS)并转换为弧度(RAD),计算p,q及曲线要素T、L、E、J,计算曲线主点里程桩号,计算结果输出到文件Zqzbsj.dat,关闭文件，结束计算,No,Yes,开始,平曲线计算程序流程框图,PrivateSubCommand1_Click()平曲线计算DimpathAsStringpath=pmjs.Text1.TextOpenpath+Pmsjzl.datForInputAs#1Openpath+zqzbsj.datForOutputAs#2Input#1,fwj_dms,x,y：fwj=dms_rad(fwj_dms)DoWhileNotEOF(1)Input#1,num,qxlx,jd,pj_dms,r,ls,ls2Ifqxlx=1ThenInput#1,jdb,pjb_dmsLoopEndSub,识别偏角度分秒（DMS）并转换为弧度（RAD）。调用自定义函数Functiondms_rad()pj_rad=dms_rad(Abs(pj_dms)fx=Sgn(pj_dms)标定左右偏,自定义函数Functiondms_rad()功能：识别度分秒（DMS）并转换为弧度（RAD）,Functiondms_rad(dms)（例：16.2542）d=Int(dms)m=Int(dms-d)*100)s=(dms-d-m/100)*10000deg=d+m/60+s/3600dms_rad=deg*3.14159/180EndFunction,格式：Function函数名称（变量1，变量2，）(计算程序模块)EndFunction,调用方法：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-ls3/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,Openpath+Pmsjzl.datForInputAs#1Openpath+zqzbsj.datForOutputAs#2Input#1,fwj_dms,x,y：fwj=dms_rad(fwj_dms)DoWhileNotEOF(1)Input#1,num,qxlx,jd,pj_dms,r,ls,ls2Ifqxlx=1ThenInput#1,jdb,pjb_dmspj_rad=dms_rad(Abs(pj_dms)fx=Sgn(pj_dms)Loop,计算p,q及曲线要素T、L、E、JIfr0Thenp=ls*ls/24/rq=ls/2-ls3/240/r/rt=(r+p)*Tan(pj_rad/2)+ql=pj_rad*r+lse=(r+p)/Cos(pj_rad/2)-rj=2*t-lElse半径为0，不计算曲线要素t=0:l=0:e=0:j=0EndIf,打开平面设计输入、输出文件,读入起点方位角、x坐标、y坐标,判断是否文件尾,读入平面设计资料,识别偏角度分秒(DMS)并转换为弧度(RAD),计算p,q及曲线要素T、L、E、J,计算曲线主点里程桩号,计算结果输出到文件Zqzbsj.dat,关闭文件，结束计算,No,Yes,开始,平曲线计算程序流程框图,计算主点里程桩号zh=jdt：hy=zh+ls：qz=zh+l/2hz=zh+l：yh=hz-ls,DoWhileNotEOF(1)Input#1,num,qxlx,jd,pj_dms,r,ls,ls2Ifqxlx=1ThenInput#1,jdb,pjb_dmspj_rad=dms_rad(Abs(pj_dms)fx=Sgn(pj_dms)计算p,q及曲线要素T、L、E、JIfr0Thenp=ls*ls/24/rq=ls/2-ls3/240/r/rt=(r+p)*Tan(pj_rad/2)+ql=pj_rad*r+lse=(r+p)/Cos(pj_rad/2)-rj=2*t-lElse半径为0，不计算曲线要素t=0:l=0:e=0:j=0EndIfLoop,打开平面设计输入、输出文件,读入起点方位角、x坐标、y坐标,判断是否文件尾,读入平面设计资料,识别偏角度分秒(DMS)并转换为弧度(RAD),计算p,q及曲线要素T、L、E、J,计算曲线主点里程桩号,计算结果输出到文件Zqzbsj.dat,关闭文件，结束计算,No,Yes,开始,平曲线计算程序流程框图,CloseEndSub,Pri