《路线平面设计》PPT课件.ppt
第2章 路线平面设计 教学内容：教学内容：（1）程序功能）程序功能 （2）设计资料）设计资料 （3）平面设计）平面设计计算原理与公式计算原理与公式 （4 4）平面设计平面设计程序设计方法及流程框图程序设计方法及流程框图（第（第2 2讲）讲）第2章 路线平面设计 2.1.1 2.1.1 程序功能程序功能（1）平曲线计算：曲线要素及主点里程桩号计算曲线要素及主点里程桩号计算（2）交点坐标计算（3）保存计算结果2.1.2 2.1.2 设计资料设计资料平面设计资料平面设计资料：Pmsjzl.dat (用于计算平曲线、交点坐标）用于计算平曲线、交点坐标）计算平曲线：计算平曲线：交点桩号交点桩号(坐标坐标)，偏角，半径，缓和曲线长度，偏角，半径，缓和曲线长度计算交点坐标：计算交点坐标：起点方位角，起点坐标（起点方位角，起点坐标（x,y）第一节第一节 概概 述述第2章 路线平面设计 2.1.1 2.1.1 程序功能程序功能（1）平曲线计算：曲线要素及主点里程桩号计算曲线要素及主点里程桩号计算（2）交点坐标计算（3）保存计算结果2.1.2 2.1.2 设计资料设计资料平面设计资料平面设计资料：Pmsjzl.dat (用于计算平曲线、交点坐标）用于计算平曲线、交点坐标）计算平曲线：交点桩号计算平曲线：交点桩号(坐标坐标)，偏角，半径，缓和曲线长度，偏角，半径，缓和曲线长度计算交点坐标：起点方位角，起点坐标（计算交点坐标：起点方位角，起点坐标（x,y）第一节第一节 概概 述述数据结构数据结构第第1行：行：起点方位角起点方位角(FWJ)，起点，起点x坐标，起点坐标，起点y坐标坐标第第2行行：交交点点编编号号，曲曲线线类类型型，交交点点桩桩号号（数数值值），偏角，偏角，半径，半径，第一缓和曲线长，第一缓和曲线长，第二缓和曲线长第二缓和曲线长第第3行：行：同第同第2行，下同（行，下同（1个交点占个交点占1行行n数据示例：n85,1000,100085,1000,1000n起点起点,0,4600,0,0,0,0,0,4600,0,0,0,0n1,0,5010.29,53.2706,500,100,1001,0,5010.29,53.2706,500,100,100n2,0,5791.24,-67.5418,260,150,1502,0,5791.24,-67.5418,260,150,150n （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。数据结构说明：数据结构说明：n数据示例：n85,1000,100085,1000,1000n起点起点,0,4600,0,0,0,0,0,4600,0,0,0,0n1,0,5010.29,53.2706,500,100,1001,0,5010.29,53.2706,500,100,100n2,0,5791.24,-67.5418,260,150,1502,0,5791.24,-67.5418,260,150,150n3,1,6214.61,89.1436,100,70,70,6307.53,92.42363,1,6214.61,89.1436,100,70,70,6307.53,92.4236n终点终点,0,7133.67,0,0,0,0,0,7133.67,0,0,0,0第二节 计算原理及公式 1.平曲线计算平曲线计算2.交点坐标计算交点坐标计算2.2.1 平曲线计算旋 转 角 圆曲线内移值切线增值 切线长曲线长外 距校正值（1）有缓和曲线的道路平曲线几何元素计算 （角度以弧度计）0=Ls/2RJ=2T-L（2）有缓和曲线的道路平曲线主点里程桩号计算有缓和曲线的道路平曲线主点里程桩号计算 由交点里程桩号由交点里程桩号JD 起算：起算：ZH=JD-T HY=ZH+Ls QZ=ZH+L/2 YH=HZ-Ls HZ=ZH+L2.2.2 交点坐标计算Xn=Xn-1+LJDcosn-1Yn=Yn-1+LJDsinn-1n式中：式中：XnJDn的的X坐标（北坐标坐标（北坐标）；）；n YnJDn的的Y坐标（东坐标坐标（东坐标）；）；n LJD交点间距（交点间距（JDn-1 到到JDn间距）；间距）；n LJD=JDn-JDn-1+Jn-1n n-1JDn-1的计算方位角的计算方位角；n n=n-1+nn 公路转向系数，右偏公路转向系数，右偏=1，左偏左偏=-1。第三节 程序设计方法及流程框图 1.控制窗体设计2.程序设计 （1）有缓和曲线的道路平曲线计算程序 （2）交点坐标计算程序3.浏览路径窗体设计2.3.1 2.3.1 控制窗体设计控制窗体设计窗体名：pmjs.frmText1Command1Command2Command3第三节 程序设计方法及流程框图 点击运行点击运行2.3.2 程序设计步骤及流程框图(1)(1)有缓和曲线的道路平曲线计算程序有缓和曲线的道路平曲线计算程序(2)(2)交点坐标计算程序交点坐标计算程序打开平面设计输入、输出文件打开平面设计输入、输出文件读入起点方位角、读入起点方位角、x坐标、坐标、y坐标坐标判断是否文件尾判断是否文件尾读入平面设计资料读入平面设计资料识别偏角度分秒识别偏角度分秒(DMS)并转换为弧度并转换为弧度(RAD)计算计算p,q及曲线要素及曲线要素T、L、E、J计算曲线主点里程桩号计算曲线主点里程桩号计算结果输出到文件计算结果输出到文件Zqzbsj.dat 关闭文件，结束计算关闭文件，结束计算NoYes 开始开始平曲线计算程序流程框图 打开平面设计输入、输出文件打开平面设计输入、输出文件读入起点方位角、读入起点方位角、x坐标、坐标、y坐标坐标判断是否文件尾判断是否文件尾读入平面设计资料读入平面设计资料识别偏角度分秒识别偏角度分秒(DMS)并转换为弧度并转换为弧度(RAD)计算计算p,q及曲线要素及曲线要素T、L、E、J计算曲线主点里程桩号计算曲线主点里程桩号计算结果输出到文件计算结果输出到文件Zqzbsj.dat 关闭文件，结束计算关闭文件，结束计算NoYes 开始开始平曲线计算程序流程框图 Private Sub Command1_Click()平曲线计算平曲线计算 End Subn Dim path As Stringn 打开平面设计资料数据文件打开平面设计资料数据文件Pmsjzl.datn Open path+Pmsjzl.dat For Input As#1 n 或或Open Pmsjzl.dat For Input As#1 或或Open c:Pmsjzl.dat For Input As#1Private Sub Command1_Click()平曲线计算平曲线计算 End Subn Dim path As Stringn 打开平面设计资料数据文件打开平面设计资料数据文件Pmsjzl.datn Open path+Pmsjzl.dat For Input As#1 n 打开平面设计结果数据输出文件打开平面设计结果数据输出文件zqzbsj.datn Open path+“zqzbsj.dat”For Output As#2 打开平面设计输入、输出文件打开平面设计输入、输出文件读入起点方位角、读入起点方位角、x坐标、坐标、y坐标坐标判断是否文件尾判断是否文件尾读入平面设计资料读入平面设计资料识别偏角度分秒识别偏角度分秒(DMS)并转换为弧度并转换为弧度(RAD)计算计算p,q及曲线要素及曲线要素T、L、E、J计算曲线主点里程桩号计算曲线主点里程桩号计算结果输出到文件计算结果输出到文件Zqzbsj.dat 关闭文件，结束计算关闭文件，结束计算NoYes 开始开始平曲线计算程序流程框图 n 读入起点方位角、x坐标、y坐标n Input#1,fwj_dms,x,y Private Sub Command1_Click()平曲线计算平曲线计算 End Subn Dim path As Stringn 打开平面设计资料数据文件打开平面设计资料数据文件Pmsjzl.datn Open path+Pmsjzl.dat For Input As#1 n 打开平面设计结果数据输出文件打开平面设计结果数据输出文件zqzbsj.datn Open path+“zqzbsj.dat”For Output As#2 打开平面设计输入、输出文件读入起点方位角、x坐标、y坐标判断是否文件尾判断是否文件尾读入平面设计资料识别偏角度分秒（DMS）并转换为弧度（RAD）计算p,q及曲线要素T、L、E、J计算曲线主点里程桩号计算结果输出到文件Zqzbsj.dat 关闭文件，结束计算NoYes 开始平曲线计算程序流程框图 文件号，应与所打开的文件对应(1255)。EOF=End Or Falsen 判断是否文件尾。若非文件尾，继续循环n Do While Not EOF(1)n n Loop n 读入起点方位角、x坐标、y坐标n Input#1,fwj_dms,x,y n Dim path As Stringn 打开平面设计资料数据文件打开平面设计资料数据文件Pmsjzl.datn Open path+Pmsjzl.dat For Input As#1 n 打开平面设计结果数据输出文件打开平面设计结果数据输出文件zqzbsj.datn 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 关闭文件，结束计算关闭文件，结束计算NoYes 开始开始平曲线计算程序流程框图 Private Sub Command1_Click()平曲线计算平曲线计算 Dim path As String 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 Subn 读入平面设计资料读入平面设计资料n Input#1,num,qxlx,jd,pj_dms,r,ls,ls2n If qxlx=1 Then Input#1,jdb,pjb_dms 回头曲线计算回头曲线计算打开平面设计输入、输出文件打开平面设计输入、输出文件读入起点方位角、读入起点方位角、x坐标、坐标、y坐标坐标判断是否文件尾判断是否文件尾读入平面设计资料读入平面设计资料识别偏角度分秒识别偏角度分秒(DMS)并转换为弧度并转换为弧度(RAD)计算计算p,q及曲线要素及曲线要素T、L、E、J计算曲线主点里程桩号计算曲线主点里程桩号计算结果输出到文件计算结果输出到文件Zqzbsj.dat 关闭文件，结束计算关闭文件，结束计算NoYes 开始开始平曲线计算程序流程框图 Private Sub Command1_Click()平曲线计算平曲线计算 Dim path As String 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 Subn 识别偏角度分秒（DMS）并转换为弧度（RAD）。n 调用自定义函数Function dms_rad()n pj_rad=dms_rad(Abs(pj_dms)n 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/180End Functionn格式格式：Function 函数名称（变量函数名称（变量1，变量，变量2，）n (计算程序模块计算程序模块)n End Function 调用方法：调用方法：a=dms_rad(b)打开平面设计输入、输出文件打开平面设计输入、输出文件读入起点方位角、读入起点方位角、x坐标、坐标、y坐标坐标判断是否文件尾判断是否文件尾读入平面设计资料读入平面设计资料识别偏角度分秒识别偏角度分秒(DMS)并转换为弧度并转换为弧度(RAD)计算计算p,q及曲线要素及曲线要素T、L、E、J计算曲线主点里程桩号计算曲线主点里程桩号计算结果输出到文件计算结果输出到文件Zqzbsj.dat 关闭文件，结束计算关闭文件，结束计算NoYes 开始开始平曲线计算程序流程框图 圆曲线内移值圆曲线内移值圆心圆心x x坐标值坐标值 切线长切线长曲线长曲线长外外 距距校正值校正值 J=2T-Lp=ls*ls/24/rq=ls/2-ls 3/240/r/rt=(r+p)*Tan(pj_rad/2)+ql=pj_rad*r+lse=(r+p)/Cos(pj_rad/2)-rj=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 n 计算计算p,qp,q及曲线要素及曲线要素T T、L L、E E、J Jn If r 0 Thenn p=ls*ls/24/rn q=ls/2-ls 3/240/r/rn t=(r+p)*Tan(pj_rad/2)+qn l=pj_rad*r+lsn e=(r+p)/Cos(pj_rad/2)-rn j=2*t-ln Else 半径为半径为0，不计算曲线要素，不计算曲线要素n t=0:l=0:e=0:j=0n End If打开平面设计输入、输出文件打开平面设计输入、输出文件读入起点方位角、读入起点方位角、x坐标、坐标、y坐标坐标判断是否文件尾判断是否文件尾读入平面设计资料读入平面设计资料识别偏角度分秒识别偏角度分秒(DMS)并转换为弧度并转换为弧度(RAD)计算计算p,q及曲线要素及曲线要素T、L、E、J计算曲线主点里程桩号计算曲线主点里程桩号计算结果输出到文件计算结果输出到文件Zqzbsj.dat 关闭文件，结束计算关闭文件，结束计算NoYes 开始开始平曲线计算程序流程框图 计计算主点里程桩号算主点里程桩号 zh=jd t：hy=zh+ls：qz=zh+l/2 hz=zh+l：yh=hz-ls Do While Not EOF(1)n Input#1,num,qxlx,jd,pj_dms,r,ls,ls2n If qxlx=1 Then Input#1,jdb,pjb_dms n pj_rad=dms_rad(Abs(pj_dms)n fx=Sgn(pj_dms)n 计算计算p,qp,q及曲线要素及曲线要素T T、L L、E E、J Jn If r 0 Thenn p=ls*ls/24/rn q=ls/2-ls 3/240/r/rn t=(r+p)*Tan(pj_rad/2)+qn l=pj_rad*r+lsn e=(r+p)/Cos(pj_rad/2)-rn j=2*t-ln Else 半径为半径为0，不计算曲线要素，不计算曲线要素n t=0:l=0:e=0:j=0n End IfLoop 打开平面设计输入、输出文件打开平面设计输入、输出文件读入起点方位角、读入起点方位角、x坐标、坐标、y坐标坐标判断是否文件尾判断是否文件尾读入平面设计资料读入平面设计资料识别偏角度分秒识别偏角度分秒(DMS)并转换为弧度并转换为弧度(RAD)计算计算p,q及曲线要素及曲线要素T、L、E、J计算曲线主点里程桩号计算曲线主点里程桩号计算结果输出到文件计算结果输出到文件Zqzbsj.dat 关闭文件，结束计算关闭文件，结束计算NoYes 开始开始平曲线计算程序流程框图 u CloseuEnd Sub u Private Sub Command1_Click()平曲线计算平曲线计算 n n 计算计算p,qp,q及曲线要素及曲线要素T T、L L、E E、J Jn If r 0 Thenn p=ls*ls/24/rn q=ls/2-ls 3/240/r/rn t=(r+p)*Tan(pj_rad/2)+qn l=pj_rad*r+lsn e=(r+p)/Cos(pj_rad/2)-rn j=2*t-ln Else 半径为半径为0，不计算曲线要素，不计算曲线要素n t=0:l=0:e=0:j=0n End Ifn 计算主点里程桩号算主点里程桩号 n zh=jd t：hy=zh+ls：qz=zh+l/2n hz=zh+l：yh=hz-ls n Loop(1)(1)控制窗体控制窗体窗体名：pmjs.frmText1Command1Command2Command32.3.3 2.3.3 浏览路径窗体设计浏览路径窗体设计Private Sub Command2_Click()vb_path.Show End Sub(2)(2)显示（调用）浏览路径窗体显示（调用）浏览路径窗体vb_path.frm 显示窗体VB工具箱(3)(3)浏览路径窗体浏览路径窗体vb_pathText1Dir1Drive1窗体名：vb_path.frmCommand1Command2(4)(4)浏览路径窗体程序设计浏览路径窗体程序设计Private Sub Command1_Click()pmjs.Text1.Text=Text1.Text vb_path.HideEnd Subn Private Sub dir1_Change()Dir1与与Text1同步同步n Text1.Text=Dir1.pathn End Subn Private Sub drive1_Change()Drive1与与Dir1同步同步n Dir1.path=Drive1.Driven End Subn Private Sub Command2_Click()n vb_path.Hiden End Sub
