5-3-1 路线纵断面设计.pptxVIP

第3章 路线纵断面设计 第1节 概 述1.1 程序功能（1）路线纵断面设计：坡度及坡长计算、竖曲线要素计算（2）逐桩设计高程计算1.2 设计资料 (1) 纵断面设计资料：Zdmsjzl.dat 数据结构： 变坡点桩号，变坡点设计高程，竖曲线半径 bpd(k) h(k) r(k) 数据示例：393700,102.152,0 394200,123.502,6000 394550,124.202,9000 394850,131.642,12000 394400,136.042,5000 ………… 1.2 设计资料 （1）. 纵断面设计资料：Zdmsjzl.dat 数据结构： 变坡点桩号，变坡点设计高程，竖曲线半径 bpd(k) h(k) r(k) 数据示例：393700,102.152,0394200,123.502,6000 394550,124.202,9000 394850,131.642,12000 394400,136.042,5000 ………… 2. 纵断面地面线资料：Zdmdmxzl.dat 数据结构：里程桩号lcz ，地面高程dmgc 数据示例：393700.00,10800,10900,10800,10900,109.86 ………… 图3.1 竖曲线计算第2节 纵断面设计方法及计算公式 2.1 竖曲线要素的计算公式： 变坡角：ω= i1- i2 曲线长：L=Rω 切线长：T=L/2= Rω/2 外 距：竖曲线起点桩号: QD=BPD-T竖曲线终点桩号: ZD=BPD+Txx图3.1 竖曲线计算2.2 逐桩设计高程计算 切线高程：设计高程：HS = HT ± y其中： y——竖曲线上任一 点竖距； x——竖曲线上任一点离开起（终）点距离；2.2 逐桩设计高程计算 切线高程：设计高程：HS = HT ± y其中： y——竖曲线上任一点竖距； x——竖曲线上任一点离开起（终）点距离；以变坡点为分界计算： 上半支曲线 x=LCZ-QD 下半支曲线 x=ZD-LCZ以竖曲线终点为分界计算： x = LCZ-QD第 3 节 程序设计步骤及流程框图 1. 控制窗体设计2. 竖曲线要素的计算程序3. 逐桩设计高程计算程序窗体名：zdmjs.frmCommand2Text1Command3Command13.1 控制窗体设计主窗体../VB/lilan.exe点击运行../VB/zdmsj.exe计 算3.1 控制窗体设计3.2 纵断面设计程序流程框图1. 竖曲线要素的计算程序2. 逐桩设计高程计算程序 开始打开纵断面设计资料文件Zdmsjzl.dat 程序设计步骤及流程框图 竖曲线要素计算 全部读入纵断面设计资料BPD、H、R 计算坡度及坡长 计算竖曲线要素及起、终点桩号输出纵断面设计结果到文件Zdmsjsj.dat 打开纵断面地面资料文件Zdmdmxzl.datYes判断是否文件尾No逐桩设计高程计算 读入里程桩号，地面高程 计算设计高程 关闭文件 结束计算计算结果输出到文件Zdmsjsj.dat 开始打开纵断面设计资料文件Zdmsjzl.dat 程序设计步骤及流程框图 竖曲线要素计算 全部读入纵断面设计资料BPD、H、R 计算坡度及坡长 计算竖曲线要素及起、终点桩号输出纵断面设计结果到文件Zdmsjsj.dat 打开纵断面地面资料文件Zdmdmxzl.datYes判断是否文件尾No逐桩设计高程计算 读入里程桩号，地面高程 计算设计高程 关闭文件 结束计算计算结果输出到文件Zdmsjsj.datPrivate Sub Command1_Click() Dim bpd(200), h(200), r(200), i(200), pc(200), w(200), t(200), e(200), qd(200), zd(200) As Single path = zdmjs.Text1.Text Open path + \zdmsjzl.dat For Input As #1 Open path + \zdmsjsj.dat For Output As #2 ‘全部读入纵断面设计资料BPD、H、R k = 0 Do While Not EOF(1) Input #1, bpd(k), h(k), r(k) k = k + 1 Loop Close #1: bpdgs = k - 1 开始打开纵断面设计资料文件Zdmsjzl.dat 程序设计步骤及流程框图