Excel豎曲線計(jì)算

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

2、的設(shè)計(jì)高程K：計(jì)算點(diǎn)里程D：豎曲線交點(diǎn)里程G：豎曲線交點(diǎn)的高程R：豎曲線半徑T：切線長M：前坡度IIP：后坡度12A： A=Abs(K-D)X： AT = X=0； A X=T-AJ： M-P J=0；M-P=0 = J=1B： KB=-M ； KD = B=P程序特色：1、可以無限添加豎曲線，豎曲線數(shù)據(jù)庫不限制豎曲線條數(shù)；2、直接輸入里程就可以計(jì)算設(shè)計(jì)高程，不需考慮該里程所處的豎曲線分段；3、對(duì)計(jì)算公式進(jìn)行保護(hù)，表格中不顯示公式，不會(huì)導(dǎo)致公式被錯(cuò)誤修改或惡意編輯。程序的具體編制步驟：1、新建Excel工作薄，對(duì)第一第二工作表重新命名為“參數(shù)庫和計(jì)算程序”，根據(jù)設(shè)計(jì) 圖建立本標(biāo)段線路豎曲線的參

3、數(shù)庫，需要以下條目：(1) 、豎曲線編號(hào)；(2) 、豎曲線的前后坡度(II、12)不需要把坡度轉(zhuǎn)換為小數(shù)；(3) 、豎曲線半徑、切線長(不需要考慮是凸型或凹型)；(4) 、豎曲線交點(diǎn)里程、交點(diǎn)高程；(5) 、豎曲線起點(diǎn)里程、終點(diǎn)里程(終點(diǎn)里程不是必要參數(shù)，只作為復(fù)核檢測(cè)用)；如圖1所示：Si2,進(jìn)行計(jì)算準(zhǔn)備：(1) 、根據(jù)輸入里程判斷該里程所處的曲線編號(hào)：需要使用lookup函數(shù),函數(shù)公式為uLOOKUP(A2,參數(shù)庫!H3：H25,參數(shù)庫!A3：A25)”。 如圖2所示：里程為K154-631的樁號(hào)位于第11個(gè)編號(hào)的豎曲線處，可以參照?qǐng)D1進(jìn)行對(duì)照A的函數(shù)公式為ABS(A2-H2)X 的函數(shù)公

4、式位 IF(ABS(A2-H2)G2.0, (G2-ABS(A2-H2)圖2圖3J 的函數(shù)公式為 IF(D2/100-E2/1000,0,l)H=G+B*A+(-l)*J*X24- (2R)=12+ IF(A2=H2,-1*D2/100,E2/100)* ABS(A2-H2)+POWER(-1),IF(D2/100-E2/100G2,0, (G2-ABS (A2-H2) ),2) /2/F2現(xiàn)在把H的計(jì)算函數(shù)輸入B2單元格，看看結(jié)果是不是出來了，這時(shí)候可以把這個(gè)結(jié)果和 計(jì)算器計(jì)算出來的結(jié)果進(jìn)行對(duì)照。如圖4所示：圖4萬事俱備.現(xiàn)在開始計(jì)算，下拉B2單元格，竟然出錯(cuò)，如圖5圖5解決辦法就是同時(shí)選擇

5、B2直到后面的K2,然后再下拉，下拉前一定要把引用的“參數(shù)庫” 中的單元格進(jìn)行鎖定，如圖6、7。這樣就顯得復(fù)雜了點(diǎn)，現(xiàn)在開始簡化計(jì)算程序，C2到K2單元格都是其中間作用的，可以直 接套用到高程的計(jì)算公式中，分別把C2到K2單元格所對(duì)應(yīng)的公式替換到單元格B2,得到 最終公式：=VL00KUP(C2, 參 數(shù) 庫 !$A$1：$I$25,7)+ IF(A2=VL00KUP(C2t 參 數(shù)庫!$A$1：$I$25,6）,-1*VLOOKUP（C2,參數(shù)庫! $A$1：$I$25,2）/100,VLOOKUP（C21 參 數(shù) 庫!$A$1：$I$25,3）/100）* ABS（A2-VL00KUP（C

6、2,參數(shù)庫!$A$1：$I$25,6）+POWER（-1）. IF（VLOOKUP（C2, 參 數(shù) 庫 ！$A$1：$I$25.2）/100-VLOOKUP（C2, 參 數(shù) 庫！$A$1：$ I$25.3）/1000.01）水POWER（IF（ABS（A2-VL00KUP（C2.參 數(shù)庫!$AS1：$I$25,6）VLOOKUP（C2,參數(shù)庫! $A$1：$ I$25,5）,0,（VLOOKUP（C2,參 數(shù) 庫! $A$ 1 ： $ I $25.5）-ABS （A2-VL00KUP （C2,參數(shù)庫! $A$ 1 ： $ I $25,6）. 2） /2/VLOOKUP （C2 參數(shù) 庫!$A$1：$I$25.4）圖6圖7(2)、在工作表“程序計(jì)算”中對(duì)應(yīng)“參數(shù)庫”相應(yīng)的格式建立表格根據(jù)判斷得出的豎曲線編號(hào)，把相應(yīng)編號(hào)的各參數(shù)調(diào)入工作表程序計(jì)算”，需要使用 Vlookup函數(shù)，例如：第四列調(diào)取坡度II函數(shù)公式為“VL00KUP(C2.參數(shù)庫!A1： 125,2) 調(diào) 取交點(diǎn)高程的函數(shù)公式為YLOOKUP(C2,參數(shù)庫!A1：I25,7)結(jié)果出來可以參照?qǐng)DI進(jìn)行對(duì) 照。如圖3所示：(3)、現(xiàn)在計(jì)算該里程設(shè)計(jì)高程所需要的參數(shù)已經(jīng)具備，可以編制公式進(jìn)行計(jì)算了，根據(jù)豎 曲線高程計(jì)