高程计算程序(自改版)
设计高程计算程序
108.511 108.698
108.480 108.668
108.465 108.653
108.450 108.638
108.420 108.608
108.390 108.360 108.330 108.315 108.300
108.578 108.548 108.517 108.502 108.487
110.879 111.067
110.841 111.029
110.804 110.992
110.731 110.919
110.661 110.848
110.593 110.780
110.540 110.728
110.527 110.715
110.495 110.683
110.464 110.651
108.766 108.954
108.751 108.939
108.721 108.909
108.691 108.879
108.661 108.849
108.631 108.818
108.616 108.803
108.601 108.788
108.571 108.758
108.541 108.728
110.090 110.278
110.047 110.234
110.005 110.193
109.986 110.173
109.967 110.154
109.930 110.118
109.897 110.084
109.865 110.053
109.864 110.051
109.835 110.022
109.820 110.007
109.805 109.992
设计高程计算程序
108.20 108.19 108.16 108.13 108.10 108.07 108.05 108.04 108.01 107.98 107.95 107.92 107.90 107.89 107.86 107.83 107.80 107.76 107.75 107.73 107.73 107.70 107.67 107.64 107.61 107.60 107.58 107.55 107.52 107.49 107.46 107.45 107.43 107.40 107.37 107.34
113.149 113.050 112.950 112.900 112.850 112.751 112.651 112.552 112.452 112.402 112.352 112.253 112.153 112.054 111.954 111.904 111.899 111.855 111.757 111.663 111.570 111.480 111.436 111.393 111.308 111.225 111.145 111.067 111.029 110.992 110.919 110.848 110.780 110.728 110.715 110.683 110.651 110.591 110.533 110.477 110.423 110.398 110.372 110.324
109.21 109.18 109.15 109.12 109.10 109.09 109.06 109.03 109.00 108.97 108.95 108.94 108.91 108.88 108.85 108.82 108.80 108.79 108.76 108.73 108.70 108.67 108.65 108.64 108.61 108.58 108.55 108.52 108.50 108.49 108.46 108.43 108.40 108.37 108.35 108.34 108.31 108.28 108.25 108.22 第 3 页，共 84 页
高程程序
高程测量程序使用说明一、编写说明C—前坡（小桩号向）:D—后坡（大桩号向）:R—竖曲线半径：A—变坡点:Z—变坡点设计高。
O—从设计高程点处垂直向下的距离:N—距设计高程处的平距(若你的设计高程线是路中线的话，请把0.75改为0):J—所求桩号处的横坡.M-后视点设计高程，X-后视点塔尺读数。
Y-前视点塔尺读数，E-待测点实际高程和设计高程的高差。
1、主程序: 1-E.BGLbl 1：Fix 3:？K:Prog”Z.EBG”: ↙R Abs(D-C)/2→T: ↙if D-C>θ :Then 1→W:Else -1→W:ifend↙if K<A:Then -C→I:Else D→I:ifend↙Abs (A-K)→L↙if L-T>θ:Then Z+IL→H:"BZ=":H◢Gotoθ:Else Z+IL+W(T-L)2/2/R→H:"BZ=":H◢ifend↙Lbl θ: “H”？O:”ZHONG=>B”？N:”HP”？J:H-O+(N-0.75)J→B:"HB=":B◢"HSG="?M:"HST="?X:"QST="?Y:M+X-Y-B→E:"σGC=":E◢Goto 1↙2、数据库: Z.EBGIf K<48245:Then 0.003→C:0.006→D:120000→R:47600→A:553.36→Z:Goto 1:IfEnd↙If K<48595:Then 0.006→C:0.016→D:35000→R:48420→A:558.28→Z:Goto 1:IfEnd↙If K<49555.1:Then 0.016→C:-0.009→D:30000→R:48970→A:567.08→Z:Goto 1:IfEnd↙If K<50044.9:Then -0.009→C:0.026→D:13994.286→R:49800→A:559.610→Z:Goto 1:IfEnd↙If K<51184:Then 0.026→C:-0.0146→D:17000→R:50390→A:574.95→Z:Goto 1:IfEnd↙If K<51790:Then -0.0146→C:0.006→D:20000→R:51390→A:560.35→Z:Goto 1:IfEnd↙If K<52450:Then 0.006→C:-0.006→D:55000→R:52120→A:564.73→Z:Goto 1:IfEnd↙If K<53135:Then -0.006→C:0.0065→D:25600→R:52610→A:561.79→Z:Goto 1:IfEnd↙If K<53554:Then 0.0065→C:-0.005→D:20000→R:53250→A:565.95→Z:Goto 1:IfEnd↙If K<54520:Then -0.005→C:0.0023→D:40000→R:53700→A:563.7→Z:Goto 1:IfEnd↙If K<56199:Then 0.0023→C:0.0011→D:400000→R:54760→A:566.138→Z:Goto 1:IfEnd↙If K<56581:Then 0.0011→C:0.0119→D:35370.37→R:56390→A:567.931→Z:Goto 1:IfEnd↙If K<57119:Then 0.0119→C:-0.015→D:20000→R:56850→A:573.405→Z:Goto 1:IfEnd↙If K<58430:Then -0.015→C:0.001→D:25125→R:57320→A:566.355→Z:Goto 1:IfEnd↙If K<59688.75:Then 0.001→C:-0.005→D:60000→R:58610→A:567.645→Z:Goto 1:IfEnd↙If K<60111.699:Then -0.005→C:0.0165→D:15000→R:59850→A:561.445→Z:Goto 1:IfEnd↙If K<60912.692:Then 0.0165→C:-0.00656→D:25000→R:60400→A:570.52→Z:Goto 1:IfEnd↙If K<62865:Then -0.00656→C:-0.003→D:150000→R:61180→A:565.4→Z:Goto 1:IfEnd↙If K<63751.88:Then -0.003→C:-0.001→D:200000→R:63065→A:559.745→Z:Goto 1:IfEnd↙If K<64618.291:Then -0.001→C:0.00445→D:80000→R:63970→A:558.84→Z:Goto 1:IfEnd↙If K<66215:Then 0.00445→C:-0.003→D:140000→R:65140→A:564.05→Z:Goto 1:IfEnd↙If K<66850:Then -0.003→C:0.015→D:25000→R:66440→A:560.15→Z:Goto 1:IfEnd↙If K<67750.454:Then 0.015→C:-0.01→D:20000→R:67100→A:570.05→Z:Goto 1:IfEnd↙If K<69374:Then -0.001→C:-0.00341→D:100000→R:68080→A:560.25→Z:Goto 1:IfEnd↙If K<70644.854:Then -0.00341→C:0.015→D:20000→R:70200→A:552.86→Z:Goto 1:IfEnd↙If K<71657.418:Then 0.015→C:-0.01451→D:20000→R:70940→A:563.96→Z:Goto 1:IfEnd↙If K<72802:Then -0.01451→C:-0.0067→D:80000→R:71970→A:549.01→Z:Goto 1:IfEnd↙If K<74147.5:Then -0.0067→C:0.005→D:80000→R:73270→A:540.3→Z:Goto 1:IfEnd↙If K<75404.211:Then 0.005→C:-0.01→D:35000→R:74410→A:546→Z:Goto 1:IfEnd↙If K<76087.473:Then -0.01→C:0.01558→D:20000→R:75660→A:533.5→Z:Goto 1:IfEnd↙If K<76904:Then 0.01558→C:-0.01→D:26000→R:76420→A:545.34→Z:Goto 1:IfEnd↙If K<77516.5:Then -0.01→C:0.02→D:12000→R:77120→A:538.34→Z:Goto 1:IfEnd↙If K<78460:Then 0.02→C:-0.011→D:17000→R:77780→A:551.54→Z:Goto 1:IfEnd↙If K<79110:Then -0.011→C:0.003→D:30000→R:78670→A:541.75→Z:Goto 1:IfEnd↙If K<79900:Then 0.003→C:-0.017→D:20000→R:79310→A:543.67→Z:Goto 1:IfEnd↙If K<80638:Then -0.017→C:0.003→D:20000→R:80100→A:530.24→Z:Goto 1:IfEnd↙If K<81320:Then 0.003→C:0.03→D:12000→R:80800→A:532.34→Z:Goto 1:IfEnd↙If K<81972.5:Then 0.03→C:0.02→D:30000→R:81470→A:552.44→Z:Goto 1:IfEnd↙If K<82722.245:Then 0.02→C:0.039→D:25000→R:82210→A:567.24→Z:Goto 1:IfEnd↙If K<83119:Then 0.039→C:0.01573→D:17000→R:82920→A:594.93→Z:Goto 1:IfEnd↙If K<84315:Then 0.01573→C:-0.025→D:12000→R:83770→A:608.33→Z:Goto 1:IfEnd↙If K<85306.5:Then -0.025→C:-0.032→D:70000→R:84560→A:588.58→Z:Goto 1:IfEnd↙If K<85933.5:Then -0.032→C:0.0105→D:14752.94→R:85620→A:554.66→Z:Goto 1:IfEnd↙If K<87300:Then 0.0105→C:-0.01→D:26000→R:86200→A:560.75→Z:Goto 1:IfEnd↙Lbl 1↙。
高等级公路横断面高程计算程序
高速公路路面、路基横断面高程交验计算表 ( 路线右
BM及高程 后视读数 BM5 321 500 m mm D点(3.5m) 桩号(m) 桩号(m) 位置 横坡度 设计高程 (m) -0.02 -0.02 -0.02 -0.02 -0.02 -0.02 -0.02 -0.02 8.403 8.403 8.403 8.403 8.403 8.403 8.403 8.403 挖(+) 实测高程 读数 、填(- (mm) (m) )cm 8.403 8.403 8.403 8.403 8.403 8.403 8.403 8.403 0.0 ###### 0.0 ###### 0.0 ###### 0.0 ###### 0.0 ###### 0.0 ###### 0.0 ###### 0.0 ###### 设计高程 (m) 8.473 8.473 8.473 8.473 8.473 8.473 8.473 8.473 天气； 日期；年 C点(3.75m) 挖(+) 实测高程 读数 、填 (mm) (m) (-)cm 8.473 8.473 8.473 8.473 8.473 8.473 8.473 8.473 0.0 ##### 0.0 ##### 0.0 ##### 0.0 ##### 0.0 ##### 0.0 ##### 0.0 ##### 0.0 ##### 设计高程 (m) 8.548 8.548 8.548 8.548 8.548 8.548 8.548 8.548 月 日 B点(3.75m) 实测高程 (m) 8.548 8.548 8.548 8.548 8.548 8.548 8.548 8.548 #VALUE! #VALUE! #VALUE! #VALUE!
左半幅 9205 K9+205.047 右半幅 左半幅 9205 K9+205 右半幅 左半幅 9210 K9+210 右半幅 左半幅 9205 K9+205.013000000001 右半幅 左半幅 9205 K9+205.013000000001 右半幅 左半幅 9205 K9+205.013000000001 右半幅 审 核：
设计高程计算程序
里程 号
桩 变坡点高程
K370+500 +510 +520 +525 +530 +540 +550 +560 +570 +575 +580 +590 +600 +610 +620 +625 +625.53 +630 +640 +650 +660 +670 +675 +680 +690 +700 +710 +720 +725 +730 +740 +750 +760 +768 +770 +775 +780 +790 +800 +810 +820 +825 +830 +840
109.022 109.210
108.992 109.180
108.962 109.150
108.932 109.119
108.917 109.104
108.902 109.089
108.872 109.059
108.842 109.029
108.812 108.999
108.781 108.969
计算 部 分
坡线高
距变坡点 距 ( T )离
108.20 108.19 108.16 108.13 108.10 108.07 108.05 108.04 108.01 107.98 107.95 107.92 107.90 107.89 107.86 107.83 107.80 107.76 107.75 107.73 107.73 107.70 107.67 107.64 107.61 107.60 107.58 107.55 107.52 107.49 107.46 107.45 107.43 107.40 107.37 107.34
怎样计算水准高程
怎样计算水准高程？
（一）有附合水准路线高差闭合量计算公式fn=∑h-(H终-H始）fn—高差闭合差∑h—各测站测得的高差总和H终—终点水准点高程H始—始点水准点高程闭合水准路线高差闭合差的计算公式fn=∑h支线水准路线高差闭合差计算公式fn=|∑h终|-|∑h始|∑h终|和∑h
始分别为往返测高差的绝对值。
（二）容许闭合差计算，并比较fn容=±8 mm n—测得数进行比较，若fn＜fn容，说明观测成果符合要求，可以进行高差闭合差调整。
（三）高程计算每一个测得的闭合差调整值=-fn/n=-16/16=-1（ mm）在计算每一测站的闭合量调整值时，必须改变原高差闭合差的符号。
高程计算公式
2.77 2.5 2.5 2.5 2.5 2.5 2.5 2.5 2.5 2.77
1.7 1.9 1.9 1.9 1.9 1.9 1.9 1.9 1.9 1.7
331.088 330.806 330.536 330.267 330.002 329.744 329.561 329.481 329.503 329.603
331.286 330.995 330.733 330.496 330.119 329.856 329.625 329.331 329.069 328.806 328.572
331.244 330.953 330.691 330.451 330.036 329.772 329.541 329.247 328.985 328.722 328.488
长度356.92M
右 幅（加上横坡度）
靠近设计线 垫石顶 立柱顶 计算值 差值 设计标高
墩号
桩号 桥面标高
桥面结构层 35M梁板厚度
10CM沥青砼 +10CMC50砼
2.3
2.3 2.3 2.3 2.3 2.3 2.3 2.3 2.3 2.3 2.3 2.3
扣除后
331.446 331.183 330.921 330.658 330.396 330.133 329.871 329.608 329.346 329.083 328.821
ห้องสมุดไป่ตู้
329.189 328.893 328.788 328.474 328.216 327.953 327.975 328.302
0.004 0.005 0.000 0.000 0.001 0.001 0.000 0.001 0.001 0.004
329.185 328.888 328.788 328.473 328.215 327.952 327.974 328.298
公路竖曲线高程计算程序
fx-4800P计算器公路竖曲线高程计算程序（程序名：GAO CHENG-HP）Lb1 0︰｛CDAB｝︰C“K1=”︰D“H1=”︰A“PV-K0=”︰B “PV-H0=”↙Lb1 1 ︰｛REF ｝︰R“R=”︰E“K2=”︰F“H2=”↙Lb1 2︰U =（B－D）÷（A－C）︰V =（F－B）÷（E－A）︰U ＞V =＞N = 0︰T = R ( U－V ) ÷2︰≠＞N = 1︰T = R ( V－U ) ÷2 ︰⊿G = A －T ︰Q = A ＋T ︰W = T 2÷（2 R）↙Lb1 3︰｛K｝︰K “I.T.E.ZY-K.YZ-K=0,1”︰K =0 =＞Goto 4 ︰⊿U “I 1”= U ▲V “I 2”= V ▲T = T ▲W “E”= W ▲G “ZY-K”= G ▲Q “YZ-K”= Q▲↙Lb1 4︰｛M｝︰M“PK=”︰M ≤A =＞Goto 5︰⊿Goto 6 ↙Lb1 5︰M ≤G =＞H = B－U ( A－M ) ︰Goto 7 ︰≠＞Prog “H1 ”︰N = 1 =＞H = B＋X－Y ︰Goto 7︰≠＞N = 0 =＞H = B－X －Y ︰Goto 7↙Lb1 6︰M ≥Q =＞H = B＋V ( M－A ) ︰Goto 7 ︰≠＞Prog “H2 ”︰N = 1 =＞H = B＋X＋Y ︰Goto 7︰≠＞N = 0 =＞H = B－X ＋Y ↙Lb1 7︰H “HP”= H ▲｛L｝︰L“BZ-T=0,L”︰L = 0 =＞Goto 8 ︰⊿｛S｝︰S “IL=”︰H “HL”= H ＋S L ▲↙Lb1 8︰｛Z ｝︰Z “NEXT-PV=0,1”︰Z = 0 =＞Goto 4 ︰⊿C= A ︰D= B ︰A =E ︰B= F ︰Goto 1↙子程序:H1:X = ( M－G ) 2÷( 2 R ) ︰Y = U ( A－M ) ↙H2:X = ( Q－M ) 2÷( 2 R ) ︰Y = V ( M－A ) ↙二00二年元月二十三日公路竖曲线高程计算程序（程序名：GAO CHENG-HP）使用说明1、按“ON”-“FILE”-“GAO CHEHG-HP”-“EXE”2、输入竖曲线后方直线段任一点桩号、高程（K1=？，H1=？），变坡点桩号、高程（PV-K0=？，PV-H0=？）-“EXE”3、输入竖曲线半径（R=？）, 竖曲线前方直线段任一点桩号、高程（K2=？，H2=？） -“EXE”4、是否显示重要参数（后坡度%I1、前坡度%I2、以及竖曲线切线长T、外距E、曲线起点桩号ZY-K、曲线终点桩号YZ-K？，显示：输入1；不显示：输入0。