Excel豎曲線計算

1、利用 Excel 表格進行全線線路豎曲線的統(tǒng)一計算 高速公路縱斷面線型比較復雜， 豎曲線數(shù)量比較多。 由于相當多的豎曲線分段造成了設(shè)計高 程計算的相對困難，為了方便直接根據(jù)里程樁號計算設(shè)計高程，遂編制此計算程序。 程序原理：1、根據(jù)設(shè)計圖建立豎曲線參數(shù)庫；2、根據(jù)輸入里程智能判斷該里程位于何段豎曲線上；3、根據(jù)得到的豎曲線分段標志調(diào)取該分段的曲線參數(shù)到計算表格中；4、把各曲線參數(shù)帶入公式進行豎曲線高程的計算；5、對程序進行優(yōu)化和簡化，去掉中間環(huán)節(jié)，進行直接計算；6、防止計算過程中的誤操作，對計算表進行相應(yīng)的保護。豎曲線的高程計算原理公式：2H=G+B*A+（-1）7*X 十（2R）H: 計算里

2、程的設(shè)計高程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、可以無限添加豎曲線，豎曲線數(shù)據(jù)庫不限制豎曲線條數(shù)；2、直接輸入里程就可以計算設(shè)計高程，不需考慮該里程所處的豎曲線分段；3、對計算公式進行保護，表格中不顯示公式，不會導致公式被錯誤修改或惡

3、意編輯。程序的具體編制步驟：1 、新建 Excel 工作薄，對第一第二工作表重新命名為“參數(shù)庫”和“計算程序”，根據(jù)設(shè)計圖建立本標段線路豎曲線的參數(shù)庫，需要以下條目：（ 1 ）、豎曲線編號；（2）、豎曲線的前后坡度（ I1 、 I2 ）不需要把坡度轉(zhuǎn)換為小數(shù)；（3）、豎曲線半徑、切線長（不需要考慮是凸型或凹型）；（4）、豎曲線交點里程、交點高程；（5）、豎曲線起點里程、終點里程（終點里程不是必要參數(shù)，只作為復核檢測用）；如圖 1 所示：圖12、進行計算準備：(1 )、根據(jù)輸入里程判斷該里程所處的曲線編號：需要使用lookup函數(shù)，函數(shù)公式為“ LOOKUP(A2,參數(shù)庫！H3:H25,參數(shù)庫!

4、A3:A25) ”。 如圖2所示：里程為K15+631的樁號位于第11個編號的豎曲線處，可以參照圖1進行對照(2 )、在工作表“程序計算”中對應(yīng)“參數(shù)庫”相應(yīng)的格式建立表格根據(jù)判斷得出的豎曲線編號，把相應(yīng)編號的各參數(shù)調(diào)入工作表“程序計算”，需要使用vlookup 函數(shù)，例如：第四列調(diào)取坡度I1函數(shù)公式為“ VLOOKUP(C2,參數(shù)庫!A1:I25,2) ”調(diào)取交點高程的函數(shù)公式為“ VLOOKUP(C2,參數(shù)庫!A1:I25,7) ”結(jié)果出來可以參照圖1進行對照。如圖3所示：(3)、現(xiàn)在計算該里程設(shè)計高程所需要的參數(shù)已經(jīng)具備，可以編制公式進行計算了，根據(jù)豎曲線高程計算的原理公式，把單元格數(shù)據(jù)

5、套入公式：2公式為：H=G+B*A+(-1FJ*X - (2R)其中B的函數(shù)公式為：IF(K<=D,-M,P) 轉(zhuǎn)化為表格編號就是 IF(A2<=H2,-1*D2/100,E2/100)A的函數(shù)公式為 ABS(A2-H2)X 的函數(shù)公式位 IF(ABS(A2-H2)>G2,0,(G2-ABS(A2-H2)圖2圖3J 的函數(shù)公式為 IF(D2/100-E2/100<0,0,1)2H=G+B*A+(-1)7*X十(2R)=I2+ IF(A2<=H2,-1*D2/100,E2/100)* ABS(A2-H2)+POWER(-1),IF(D2/100-E2/100<

6、0,0,1)*POWER( IF(ABS(A2-H2)>G2,0,(G2-ABS(A2-H2),2)/2/F2現(xiàn)在把H的計算函數(shù)輸入 B2單元格，看看結(jié)果是不是出來了，這時候可以把這個結(jié)果和計算器計算出來的結(jié)果進行對照。 如圖4所示：圖4萬事俱備，現(xiàn)在開始計算，下拉B2單元格，竟然出錯，如圖 5圖5解決辦法就是同時選擇B2直到后面的K2，然后再下拉，下拉前一定要把引用的“參數(shù)庫”中的單元格進行鎖定，如圖6、7。這樣就顯得復雜了點，現(xiàn)在開始簡化計算程序，C2到K2單元格都是其中間作用的，可以直接套用到高程的計算公式中，分別把C2到K2單元格所對應(yīng)的公式替換到單元格B2，得到最終公式：=VL

7、00KUP（C2,參 數(shù) 庫 ！$A$1:$I$25,7）+IF（A2<=VLOOKUP（C2,參 數(shù)庫！$A$1:$I$25,6）,-1*VLOOKUP（C2, 參數(shù)庫！$A$1:$I$25,2）/100,VL00KUP（C2, 參數(shù)>一 SASS_S2500)MOO)* ABS(A2-VL00KUP(CN>>一 SASs_s25o)+POWER(s一F(VLOOKUP(CN>蒲>一 sass_s252)moo-vlookup(cn>一 SASS_S2500汪 OOAOoe)*POWER( 一 F(ABS(A2-VL00KUP(CN>一SASs_s25b)VVLOOKUP(CN>蒲>一 SASs_s25