-3-1路线纵断面设计.pptVIP

第3章 路线纵断面设计 教学内容 （1）路线纵断面设计计算原理与公式 （2）纵断面设计所需设计资料 （3）纵断面设计程序设计方法及流程框图 第3章 路线纵断面设计 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,0 394200,123.502,6000 394550,124.202,9000 394850,131.642,12000 394400,136.042,5000 ………… 第2节 纵断面设计方法及计算公式 变坡角：ω= i1- i2 曲线长：L=Rω 切线长：T=L/2= Rω/2 外 距： 2.2 逐桩设计高程计算 切线高程： 2.2 逐桩设计高程计算 切线高程： 第 3 节 程序设计步骤及流程框图 1. 控制窗体设计 2. 竖曲线要素的计算程序 3. 逐桩设计高程计算程序 3.1 控制窗体设计 主窗体 3.1 控制窗体设计 3.2 纵断面设计程序流程框图 1. 竖曲线要素的计算程序 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 ‘全部读入纵断面设计资料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 ‘计算竖曲线要素及起、终点桩号 For k = 0 To bpdgs If r(k) 0 Then w(k) = i(k + 1) - i(k) t(k) = Abs(w(k)) * r(k) / 2 e(k) = t(k) ^ 2 / 2 / r(k) End If qd(k) = bpd(k) - t(k): zd(k) = bpd(k) + t(k) Next k ‘输出纵断面设计结果到文件Zdmsjsj.dat Write #2, bpdgs For k = 0 To bpdgs Write #2, bpd(k), h(k), r(k), i(k), pc(k), w(k), t(k), e(k), qd(k), zd(k) Next k ( Close #2) ‘打开纵断面地面资料文件，读入里程桩号，地面高程 Open path + \zdmdmxzl.dat For Input As #1 Do While Not EOF(1) Input #1, lcz, dmgc ……… Loop Do While lcz bpd(k)