excel竖曲线高程计算表
excel竖曲线高程计算表 - 副本
第一竖曲线 K2+006.000 30.000 2.1724 -1.2838 600 K1+995.632 K2+016.368 0.0896 10.368
第二竖曲线 变坡点桩号 变坡点高程 坡度(i1) 坡度(i2) 曲线半径(R) 竖曲线起点桩号 竖曲线终点桩号 外距 (E) 切线长(T) K3+332.500 12.971 -1.2838 30.3399 333 K3+279.847 K3+385.153 4.1627 52.653
第三竖曲线 变坡点桩号 变坡点高程 坡度(i1) 坡度(i2) 曲线半径(R) 竖曲线起点桩号 竖曲线终点桩号 外距 (E) 切线长(T) K4+562.000 386.000 30.3399 -40.0216 10000 K1+043.925 K8+080.075 618.8426 3518.075
第四竖曲线 变坡点桩号 变坡点高程 坡度(i1) 坡度(i2) 曲线半径(R) 竖曲线起点桩号 竖曲线终点桩号 外距 (E) 切线长(T) K10+000.000 8.116 -40.0216 0.0000 0 K4+629.996 K5+506.200 #DIV/0! 0.000
竖曲线参数表
编号 1 2 3 4 5 交点桩号
K1+002 K2+006 K3+333 K4+562.000 K5+506.200
交点高程 8.189 30 12.971 386 8.116
曲线曲线 变坡点桩号 变坡点高程 坡度(i1) 坡度(i2) 曲线半径(R) 竖曲线起点桩号 竖曲线终点桩号 外距 (E) 切线长(T)
竖曲线高程计算
竖曲线高程计算（fx-4800）（1）Lbl 0：H：B：R：I：J：{L}：T=R Abs(J-I) ÷2←C=B-L←I＜J=>F=1：≠=>I＞J=>F=－1△△←L≦0=>{HRBIJ}：Goto 0≠=>L＜B－T=>Z＝0：P=I≠=>L＜B=>Z=1：P=I：≠=>L＜B＋T=>Z=1：P=J：≠=>Z=0：P=J△△△G=H-CP+ZF(T-Abs C) ²÷2÷R▲Goto 0说明：H：变坡点高程B：变坡点里程L：线路上所求点里程I：前纵坡J：后纵坡T：竖曲线切线长竖曲线半径本程序可及计算范围（前竖曲线的终点至后竖曲线的起点），当L=0时可重新输入起算要素（H，B，R，I，J）进行下一段竖曲线和直线的高程计算。
边桩及路面以下任意厚度高程计算：变量变为：{LNM }主公式变为：G=H-N-CP+ZF（T-Abs C）²÷2÷R▲V=G+ME▲Goto 0N：路面至各施工层的厚度（m）M：中桩至边桩的距离E：路拱（路面横坡）V：左右边桩高程竖曲线高程计算（2）Lbl 1：{N }：N=1＝＞Goto 3：≠＝＞N=2＝＞Goto 4△←Lbl 2：{L}：T=R Abs(J-I) ÷2←C=B-L←I＜J=>F=1：≠=>I＞J=>F=－1△△←L＜3090=>Goto 1：≠=>L＜B－T=>Z＝0：P=I：≠=>L＜B=>Z=1：P=I：≠=>L＜B＋T=>Z=1：P=J：≠=>Z=0：P=J△△△G=H-CP+ZF(T-Abs C) ²÷2÷R▲Goto 1←Lbl 3：L≧3090＝＞H=563.532：B=3860：R=55000：I=0.025：K=4526：L=0.0175←L≧K＝＞H=580.157：B=4810：R=16000：I=0.0175：K=5503.582：L=-0.018←L≧K＝＞H=564.137：B=5700：R=10100：I=-0.018：K=6204：L=0.02089←L≧K＝＞H=579.599：B=6440：R=121193.615：I=0.02089：K=6676：L=0.017←L≧K＝＞H=589.119：B=7000：R=16000：I=0.017：K=7324：L=-0.0235←Goto 2←Lbl 4：L≧3090＝＞H=563.532：B=3860：R=56000：I=0.025：K=4649：L=0.0175←L≧K＝＞H=581.382：B=4880：R=12000：I=0.0175：K=5464.117：L=-0.021←L≧K＝＞H=564.162：B=5700：R=11100：I=-0.021：K=6204：L=0.0215←L≧K＝＞H=580.073：B=6440：R=104856.927：I=0.0215：K=6676：L=0.017←L≧K＝＞H=589.593：B=7000：R=16000：I=0.017：K=7324：L=-0.0235←Goto 2←。
Excel表格制作标高计算程序
Excel表格制作标高计算程序新建一个Excel文件，把Sheet1表重命名为“竖曲线”，把Sheet2表重命名为“设计标高”。
（1）在竖曲线表中的A1-E1（合并）单元格输入线路名称，在A2-E2单元格中分别输入“变坡点编号”、“变坡点里程”、“变坡点标高”、“曲线半径”和“切线长”,从第三行开始输入对应数据，（2）打开VB编辑器（Alt+F11），双击工程资源管理器中“设计标高”表图标，复制以下程序到界面上，保存后返回Excel窗口，在“设计标高”表中的第一列，从第二行开始输入要计算的里程桩号，完成后，在任一单元格中双击单元格，即可看见输入结果（在第二列），本程序默认遇到桩号列空单元格时不再向下计算。
Dim K As DoubleDim H As DoubleDim P1 As Double, P2 As Double, P3 As DoubleDim H1 As Double, H2 As DoubleDim R1 As Double, R2 As DoubleDim T1 As Double, T2 As DoubleDim D1 As Double, D2 As DoubleDim G1 As Long, G2 As LongPrivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) On Error Resume NextDim i As LongDim hang As LongDim celln = 0For Each cell In Sheets("竖曲线").Range("a3:a65536")If cell.Value <> "" Thenn = n + 1ElseExit ForEnd IfNexti = 2flag:P2 = 0P3 = 0hang = 3If Sheets("设计标高").Cells(i, 1) <> "" ThenK = Val(Cells(i, 1))canshu:P1 = P2D1 = Val(Sheets("竖曲线").Cells(hang + 1, 2))D2 = Val(Sheets("竖曲线").Cells(hang + 2, 2))H1 = Val(Sheets("竖曲线").Cells(hang + 1, 3))H2 = Val(Sheets("竖曲线").Cells(hang + 2, 3))P3 = (H2 - H1) / (D2 - D1)D1 = Val(Sheets("竖曲线").Cells(hang, 2))D2 = Val(Sheets("竖曲线").Cells(hang + 1, 2))H1 = Val(Sheets("竖曲线").Cells(hang, 3))H2 = Val(Sheets("竖曲线").Cells(hang + 1, 3))R1 = Val(Sheets("竖曲线").Cells(hang, 4))R2 = Val(Sheets("竖曲线").Cells(hang + 1, 4))T1 = Val(Sheets("竖曲线").Cells(hang, 5))T2 = Val(Sheets("竖曲线").Cells(hang + 1, 5))P2 = (H2 - H1) / (D2 - D1)If K < D1 Then Sheets("设计标高").Cells(i, 3) = "超出": i = i + 1: GoTo flag If K > D2 And hang < n + 3 Thenhang = hang + 1GoTo canshuElseCall biaogaoSheets("设计标高").Cells(i, 2) = Round(H, 3)End IfElseEndEnd Ifi = i + 1GoTo flagEnd SubFunction biaogao() As DoubleOn Error Resume NextG1 = -1If P2 - P1 > 0 Then G1 = 1G2 = -1If P3 - P2 > 0 Then G2 = 1H = 0If K < D1 + T1 ThenH = H1 + (K - D1) * P2 + G1 * (D1 + T1 - K) ^ 2 / (2 * R1)ElseIf K <= D2 - T2 ThenH = H1 + (K - D1) * P2ElseIf R2 <> 0 ThenH = H2 - (D2 - K) * P2 + G2 * (K - (D2 - T2)) ^ 2 / (2 * R2)ElseH = H2 - (D2 - K) * P2End IfEnd IfEnd Function本程序只计算单一线路的中桩标高，若想把多个线路的参数放在同一个表中时，只需对以上程序稍加改动即可。
凸形、凹形竖曲线高程计算表
i1-i2
-0.050
凹曲线
点号 计算桩号
1 4956.469 2 4958.469 3 4960.469 4 4962.469 5 4964.469 6 4966.469 7 4967.000 8 4968.469 9 4970.469 10 4972.469
K4+956.469～K4+977.531m竖曲线范围内各点高程 凸形竖曲线
曲线中点 桩号
桩号差L
变坡点 高程Hz
半 径R
i1
1
10150.000 10200.000
-50
7.200
4000.000
0.01
2
10175.000 10200.000
-25
7.200
4000.000
0.01
3
10200.000 10200.000
0
7.200
4000.000
0.01
4
10225.000 10200.000
第一坡度i1 -0.032
第一坡度i2 切线长T 外矢距E 外矢距E 0.017967 12.49175 0.15604 0.156044
x
y=x2/2R
10.000
0.1
验算的过程
切线高程
待计算点高程 验算
1610.740744 1610.840744
备注
12.492 0.1560501 1610.661
4967.000 3.469 1611.200 600.000 0.017967 -0.017137 1611.099
4967.000 5.469 1611.200 600.000 0.017967 -0.017137 1611.085
竖曲线各点标高计算
பைடு நூலகம் 计算：
复核：
红区为数据校核区判定竖曲线类型黄区为竖曲线各点标高计算所求桩号在转坡点之前平距lm竖距hm切线标高所求桩号1376013650136601367013680136901370013710137201373013740137501376011006057840设计标高84451004098459660948593209165902088858760864585408445所求桩号在转坡点之后平距lm竖距hm切线标高所求桩号13760137701378013790138001381013820138301384013850138601387011006057840设计标高844583208205810080057920784577807725768076457620备注黄区只输入转坡点桩号
竖曲线各点标高计算
所求桩号在转坡点之前 平距 l (m) 竖距 h (m) 切线标高 所求桩号 13760 13650 13660 13670 13680 13690 13700 13710 13720 13730 13740 13750 13760 110 0.605 7.840 设计标高 8.445 10.040 9.845 9.660 9.485 9.320 9.165 9.020 8.885 8.760 8.645 8.540 8.445 所求桩号在转坡点之后 平距 l (m) 竖距 h (m) 切线标高 所求桩号 13760 13770 13780 13790 13800 13810 13820 13830 13840 13850 13860 13870 110 0.605 7.840 设计标高 8.445 8.320 8.205 8.100 8.005 7.920 7.845 7.780 7.725 7.680 7.645 7.620 备 注 ① 黄区只 输入转坡点 桩号。 ② 红区只 输入前坡所 有的桩号。 ③ 绿区只 输入后坡所 有的桩号。
Excel竖曲线计算
利用Excel表格进行全线线路竖曲线的统一计算高速公路纵断面线型比较复杂，竖曲线数量比较多。
由于相当多的竖曲线分段造成了设计高程计算的相对困难，为了方便直接根据里程桩号计算设计高程，遂编制此计算程序。
程序原理：1、根据设计图建立竖曲线参数库；2、根据输入里程智能判断该里程位于何段竖曲线上；3、根据得到的竖曲线分段标志调取该分段的曲线参数到计算表格中；4、把各曲线参数带入公式进行竖曲线高程的计算；5、对程序进行优化和简化，去掉中间环节，进行直接计算；6、防止计算过程中的误操作，对计算表进行相应的保护。
竖曲线的高程计算原理公式：H=G+B*A+(-1)^J*X2÷(2R)H: 计算里程的设计高程K: 计算点里程D: 竖曲线交点里程G: 竖曲线交点的高程R: 竖曲线半径T: 切线长M: 前坡度I1P: 后坡度I2A: A=Abs(K-D)X: A>T => X=0; A<T => X=T-AJ: M-P<0 => J=0; M-P>=0 => J=1B: K<=D =>B=-M ; K>D => B=P程序特色：1、可以无限添加竖曲线，竖曲线数据库不限制竖曲线条数；2、直接输入里程就可以计算设计高程，不需考虑该里程所处的竖曲线分段；3、对计算公式进行保护，表格中不显示公式，不会导致公式被错误修改或恶意编辑。
程序的具体编制步骤：1、新建Excel工作薄，对第一第二工作表重新命名为“参数库”和“计算程序”，根据设计图建立本标段线路竖曲线的参数库，需要以下条目：（1）、竖曲线编号；（2）、竖曲线的前后坡度（I1、I2）不需要把坡度转换为小数；（3）、竖曲线半径、切线长（不需要考虑是凸型或凹型）；（4）、竖曲线交点里程、交点高程；（5）、竖曲线起点里程、终点里程（终点里程不是必要参数，只作为复核检测用）；如图1所示：图12、进行计算准备：（1）、根据输入里程判断该里程所处的曲线编号：需要使用lookup函数，函数公式为“LOOKUP(A2,参数库!H3:H25,参数库!A3:A25)”。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
5.786
K0+160
6.489
K0+430
5.040
K0+570
6.163
K0+170
6.486
K0+440
5.080
K0+580
6.508
K0+180
6.465
K0+450
5.120
K0+590
6.823
K0+190 K0+200 K0+210 K0+220 K0+230 K0+240 K0+250 K0+260 K0+270 K0+280 K0+290 K0+300 K0+310 K0+320 K0+330
6.314
K0+380
4.753
K0+520
5.438
K0+120
6.358
K0+390
4.837
K0+530
5.542
K0+130
6.402
K0+400
4.906
K0+540
5.677
K0+140
6.445
K0+410
4.959
K0+550
5.378
K0+150
6.476
K0+420
5.000
K0+560
坡度(i1) 坡度(i2)
0.3999 3.0303
曲线半径(R) 竖曲线起点桩 号竖曲线终点桩 号 外距 (E)
5800 曲线半径(R)
K0+137.411 K0+217.417
竖曲线起点桩 号竖曲线终点桩 号
0.1380 外距 (E)
6500 曲线半径(R)
K0+326.458 K0+413.542
5.000
K0+020
5.918
K0+290
5.552
K0+430
5.040
K0+030
5.962
K0+300
5.458
K0+440
5.080
K0+040
6.006
K0+310
5.364
K0+450
5.120
K0+050
6.050
K0+320
5.270
K0+460
5.160
K0+060
6.094
K0+330
竖曲线高程计算
第一竖曲线
第二竖曲线
第三竖曲线
变坡点桩号
K0+177.414 变坡点桩号
K0+370.000 变坡点桩号
K0+546.538
变坡点高程
6.610 变坡点高程
4.800 变坡点高程
5.506
坡度(i1) 坡度(i2)
0.4396 -0.9398
坡度(i1) 坡度(i2)
-0.9398 0.3999
竖曲线起点桩 号竖曲线终点桩 号
0.1458 外距 (E)
3200 K0+504.452 K0+588.624
0.2768
切线长(T)
40.003 切线长(T)
43.542 切线长(T)
42.086
桩号
高 程(m)
桩号
高 程(m)
桩号
高 程(m)
K0+010
5.874
K0+280
5.646
K0+420
6.427 6.372 6.299 6.210 6.116 6.022 5.928 5.834 5.740 5.646 5.552 5.458 5.364 5.270 5.176
K0+600 K0+610 K0+620 K0+630 K0+640 K0+650 K0+660 K0+670 K0+680 K0+690 K0+700 K0+710 K0+720 K0+730 K0+740 K0+750 K0+751
7.126 7.429 7.732 8.035 8.338 8.641 8.944 9.247 9.550 9.853 10.156 10.459 10.762 11.065 11.368 11.672 11.710
竖曲线计算原则是:先按道路坡度计算某桩号 的高程,再根据曲线参数计算该桩号的改正 值,一个竖曲线要分四段计算:前坡段的直线 段和曲线段,后坡段的曲线段和直线段。直线 计算=变坡点高程加某桩号到变坡点的距离* 坡度,曲线部分=变坡点高程加某桩号到变坡 点的距离*坡度，再加曲线改正值(Y),其中 Y=X2/(2R),X是曲线起点到某桩号的距离,R是 曲线半径。
5.177
K0+470
5.200
K0+070
6.138
ห้องสมุดไป่ตู้
K0+340
5.096
K0+480
5.240
K0+080
6.182
K0+350
5.031
K0+490
5.280
K0+090
6.226
K0+360
4.981
K0+500
5.320
K0+100
6.270
K0+370
4.946
K0+510
5.365
K0+110