切线长：T=L/2= Rω/2
外 距：
E T2 2R
竖曲线起点桩号: QD=BPD-T 竖曲线终点桩号:
ZD=BPD+T
Y L
QD i1
o
y x
E
BPD ω
T
T
i2
ZD X
2.2 逐桩设计高程计算
切线高程：
HT

H n1
Hn BPDn
H n1 BPDn1
1. 控制窗体设计 2. 竖曲线要素的计算程序 3. 逐桩设计高程计算程序
3.1 控制窗体设计 主窗体
窗体名：zdmjs.frm
Text1 Command1
计算
Command2 点击 运行
Command3
3.1 控制窗体设计 3.2 纵断面设计程序流程框图
1. 竖曲线要素的计算程序 2. 逐桩设计高程计算程序
No 读入里程桩号，地面高程
计算设计高程
计算结果输出到文件Zdmsjsj.dat
关闭文件 结束计算
开始
打开纵断面设计资料文件Zdmsjzl.dat
程
竖 全部读入纵断面设计资料BPD、H、R
序
曲 线
设
要
计算坡度及坡长
计
素 计算竖曲线要素及起、终点桩号
步
计 算 输出纵断面设计结果到文件Zdmsjsj.dat

Input #1, bpd(k), h(k), r(k)

k=k+1

Loop
Close #1: bpdgs = k - 1
开始
打开纵断面设计资料文件Zdmsjzl.dat
程
竖 全部读入纵断面设计资料BPD、H、R
序
曲 线
设
要
计算坡度及坡长
计
素 计算竖曲线要素及起、终点桩号
步
计 算 输出纵断面设计结果到文件Zdmsjsj.dat
数据示例：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 数据结构： 变坡点桩号，变坡点设计高程，竖曲线半径
…………
数据示例：
393700.00,108.99
393750.00,109.00
393800.00,108.94
393850.00,109.49
393900.00,109.86
…………
第2节 纵断面设计方法及计算公式
2.1 竖曲线要素的计算公式：
变坡角：ω= i1- i2 曲线长：L=Rω
骤
及
打开纵断面地面资料文件Zdmdmxzl.dat
流
判断是否文件尾
Yes
程 逐桩
框 图
设计 高程 计算
No 读入里程桩号，地面高程
计算设计高程
计算结果输出到文件Zdmsjsj.dat
关闭文件 结束计算
Private 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
BPDn1)
设计高程：HS = HT ± y
其中： y——竖曲线上任一点竖距； y x2 2R
x——竖曲线上任一点离开起（终）点距离；
以变坡点为分界计算： 上半支曲线 x=LCZ-QD 下半支曲线 x=ZD-LCZ
以竖曲线终点为分界计算： x = LCZ-QD
第 3 节 程序设计步骤及流程框 图
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)
骤
及
打开纵断面地面资料文件Zdmdmxzl.dat
流
判断是否文件尾
Yes
程 逐桩
框 图
设计 高程 计算
No 读入里程桩号，地面高程
计算设计高程
计算结果输出到文件Zdmsjsj.dat
关闭文件 结束计算
Private 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

bpd(k)
h(k)
r(k)

数据示例：
393700,102.152,0
394200,123.502,6000
394550,124.202,9000 2. 纵断面地面线资料：Zdmdmxzl.dat 394850,131.642,12000 数据结构：里程桩号lcz ，地面高程dmgc 394400,136.042,5000
(LCZ
BPDn1)
设计高程：HS = HT ± y
Y
其中： y——竖曲线上任一 点竖距； y x2 2R
x——竖曲线上任一点 离开起（终）点距离；
L
i2
QD
i1
x
x
o
y x
E
BPD ω
T
T
ZD X
2.2 逐桩设计高程计算
切线高程：
HT
H n1
Hn BPDn
Hn1 (LCZ BPDn1
பைடு நூலகம்
开始
打开纵断面设计资料文件Zdmsjzl.dat
程
竖 全部读入纵断面设计资料BPD、H、R
序
曲 线
设
要
计算坡度及坡长
计
素 计算竖曲线要素及起、终点桩号
步
计 算 输出纵断面设计结果到文件Zdmsjsj.dat
骤
及
打开纵断面地面资料文件Zdmdmxzl.dat
流
判断是否文件尾
Yes
程 逐桩
框 图
设计 高程 计算
第3章 路线纵断面设计
第1节 概 述
1.1 程序功能 （1）路线纵断面设计：坡度及坡长计算、竖曲线要素计算
（2）逐桩设计高程计算
1.2 设计资料 (1) 纵断面设计资料：Zdmsjzl.dat
数据结构：
变坡点桩号，变坡点设计高程，竖曲线半径

bpd(k)
h(k)
r(k)