竖曲线高程计算程序VBA 1.0

竖曲线、纵断面高程计算程序竖曲线、纵断面高程计算程序 5800P主程序文件名：SQX“R”?A:”I1”?C:”I2”?D:”K(BIAN-PO)”?E:”H(BIAN-PO)”?F “T=”:A×Abs(D-C)/2→B“K(QI-DIAN)” :E-B→H“K(ZHONG-DIAN)” :E+B→L“LY=”:L-H→MIf C>D:Then -1→T:IfEnd：If CLbl 0：?K：Abs（E-K）→S:If S>B:Then Goto 4：IfEnd：If E≥K:Then Goto 1：IfEnd：If ELbl 2：F+SD+T(B-S)^2÷2÷A→G:Goto 3Lbl 3：”H(SHE JI)=”: G“H(SHI CE)”?NN-G→ZIf Z>0:Then “GAO=“：ZIfEndIf Z0:Then –Z→Z:“DI=“：Z IfEndGoto 0Lbl 4：If K H：Then E-K→O: F-OC→G：IfEnd ：If K≥L：Then K-E→O: F+OD→G：IfEnd：Goto 31、功能：计算任何形式、任意变坡点前后中桩纵断面设计高程。

2、程序说明：R:竖曲线半径I1、I2-变坡点前后坡度（上坡为正，下坡为负）K（BIAN PO）-变坡点里程桩号H(BIAN PO)-变坡点高程T-竖曲线切线长K(QI DIAN)为竖曲线起点里程K(ZHONG DIAN)为竖曲线终点里程LY;竖曲线长度K:待求点里程H(SHE JI):设计高程H(SHI CE):实测高程GAO：(实际比设计高)DI：(实测比设计低)纵坡、竖曲线表竖曲线纵坡（％）序号变坡点里程标高（m）曲线半径R （m）切线长T （m）外距E （m）起点桩号终点桩号i1 i2 8 K29+025 1887.315 15000 75.000 0.187 K28+950 K29+100 -0.7 0.3 10 K29+575 1901.890 5000 62.500 0.391 K29+512.500 K29+637.500 5.0 2.5 13 K30+585 1910.284 4500 71.992 0.576 K30+513.008 K30+656.992 1.8 5.0 14 K31+380 1950.034 1800 83.700 1.946 K31+296.300 K31+463.700 5.0 -4.3 15 K31+825 1931.318 12000 72.000 0.216 K31+753 K31+897 -4.3 -3.1 33K37+7801893.2482000070.0000.123K37+710K37+850-0.3-1.0验算数据里程 K28+940.00 K28+960.00 K29+080.00 K29+120.00 设计标高1887.91 1887.773 1887.493 1887.6 里程K29+500.00 K29+520.00 K29+620.00 K29+660.00 设计标高 1898.14 1899.134 1902.984 1904.015 里程K30+511.04 K30+531.04 K30+631.04 K30+671.04 设计标高 1908.952 1909.348 1912.661 1914.586 里程K31+280.00 K31+300.00 K31+440.00 K31+480.00 设计标高1945.034 1946.03 1947.43 1945.734 里程K31+740.54 K31+760.54 K31+880.54 K31+920.54 设计标高 1934.95 1934.092 1929.607 1928.373 里程K37+700.00 K37+720.00 K37+840.00 K37+860.00 设计标高1893.488 1893.425 1892.645 1892.448。

竖曲线标高计算程序此程序为竖曲线标高计算程序，程序用变坡点高程和桩号来计算坡度，使高程计算比较精确，程序运行时，先按顺序输入三点的桩号、高程和中间曲线的半径，然后可输入桩号求相应点的高程，当桩号到达曲线尾和下一曲线间的直线段时，会出现“AFTER QX”的提示，这时可继续输入桩号求标高，也可输入一负值进行输入下一变坡点数据，输入负值后会出现提示要求输入R，此R为第三个变坡点的半径，继续要求输入的EF则为第四个变坡点的桩号和高程。

程序自动将前次的后两个变坡点的数据交换到计算时所用的第一第二个变坡点，而不用每次都输入。

但要注意的是，不能输入超过下一个曲线的桩号，否则会出现标高错误，最好在出现“AFTER QX”提示后便进行下一变坡点数据的输入。

本程序在输出标高后可设计简单的横坡度、超高坡度计算程序，可一次输出断面中的标高。

变量说明：<程序运算符定义>文件1 程序名：SQXABCD:Lbl 0:{ERF}:REF:G=(D-B)÷(C-A):H=(F-D)÷(E-C):L=R×Abs(G-H)÷2 ←Lbl 1:{K}:K≤0＝>Goto 2⊿K≤C+L＝>L=-Abs L:Prog "SHU":M=D+(K-C)H+J:≠>M=D+(K-C)H:"AFTER QX"⊿L=Abs L:K≤C＝>Prog "SHU":M=B+(K-A)G+J⊿K≤C-L＝>M=B+(K-A)G⊿M=1000M:Prog "SSWR":I=M÷1000◢K=K+20:Goto 1:Lbl 2:A=C:B=D:C=E:D=F:Goto 0文件2 程序名：SHUJ=(K-C+L)2÷(2R):G-H>0＝>J=-J⊿文件3 程序名：SSWRM-Int M<0.5＝>M=Int M:≠>M=Int M+1⊿。

i 1=i 2=起点R =桩号变坡点桩号=桩号变坡点高程=桩号w =-i 1桩号=--0.0048桩号=凸-桩号L =R ×W 桩号=×桩号=米桩号425桩号2桩号桩号2×50000桩号竖曲线起点桩号-212.5=桩号竖曲线起点高程-212.5×0.00桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号米i 2-0.0133=50000425E =T 2T -0.00850.0085=212.52==2RL 0.45米-0.0048-0.01333017057.2650000=45156.25===3017029957.557.2656.2桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号桩号29958止点30382.5 29959高程56.23519 29960高程56.23036 29961高程56.22551 29962高程56.22064 29963高程56.21575 29964高程56.21084 29965高程56.20591 29966高程56.20096 29967高程56.19599 29968高程56.191 29969高程56.18599 29970高程56.18096 29971高程56.17591 29972高程56.17084 29973高程56.16575 29974高程56.16064 29975高程56.15551 29976高程56.15036 29977高程56.14519 29978高程56.14 29979高程56.13479 29980高程56.12956 29981高程56.12431 29982高程56.11904 29983高程56.11375 29984高程56.10844 29985高程56.10311 29986高程56.09776 29987高程56.09239 29988高程56.087 29989高程56.0815929991高程56.07071 29992高程56.06524 29993高程56.05975 29994高程56.05424 29995高程56.04871 29996高程56.04316 29997高程56.03759 29998高程56.032 29999高程56.02639 30000高程56.02076 30001高程56.01511 30002高程56.00944 30003高程56.00375 30004高程55.99804 30005高程55.99231 30006高程55.98656 30007高程55.98079 30008高程55.975 30009高程55.96919 30010高程55.96336 30011高程55.95751 30012高程55.95164 30013高程55.94575 30014高程55.93984 30015高程55.93391 30016高程55.92796 30017高程55.92199 30018高程55.916 30019高程55.90999 30020高程55.90396 30021高程55.89791 30022高程55.8918430024高程55.87964 30025高程55.87351 30026高程55.86736 30027高程55.86119 30028高程55.855 30029高程55.84879 30030高程55.84256 30031高程55.83631 30032高程55.83004 30033高程55.82375 30034高程55.81744 30035高程55.81111 30036高程55.80476 30037高程55.79839 30038高程55.792 30039高程55.78559 30040高程55.77916 30041高程55.77271 30042高程55.76624 30043高程55.75975 30044高程55.75324 30045高程55.74671 30046高程55.74016 30047高程55.73359 30048高程55.727 30049高程55.72039 30050高程55.71376 30051高程55.70711 30052高程55.70044 30053高程55.69375 30054高程55.68704 30055高程55.68031 30056高程55.67356 30057高程55.66679 30058高程55.66 30059高程55.65319 30060高程55.64636 30061高程55.63951 30062高程55.63264 30063高程55.6257530065高程55.61191 30066高程55.60496 30067高程55.59799 30068高程55.591 30069高程55.58399 30070高程55.57696 30071高程55.56991 30072高程55.56284 30073高程55.55575 30074高程55.54864 30075高程55.54151 30076高程55.53436 30077高程55.52719 30078高程55.52 30079高程55.51279 30080高程55.50556 30081高程55.49831 30082高程55.49104 30083高程55.48375 30084高程55.47644 30085高程55.46911 30086高程55.46176 30087高程55.45439 30088高程55.447 30089高程55.43959 30090高程55.43216 30091高程55.42471 30092高程55.41724 30093高程55.40975 30094高程55.40224 30095高程55.39471 30096高程55.38716 30097高程55.37959 30098高程55.372 30099高程55.36439 30100高程55.35676 30101高程55.34911 30102高程55.34144 30103高程55.33375 30104高程55.32604 30105高程55.31831 30106高程55.31056 30107高程55.30279 30108高程55.295 30109高程55.28719 30110高程55.2793630112高程55.26364 30113高程55.25575 30114高程55.24784 30115高程55.23991 30116高程55.23196 30117高程55.22399 30118高程55.216 30119高程55.20799 30120高程55.19996 30121高程55.19191 30122高程55.18384 30123高程55.17575 30124高程55.16764 30125高程55.15951 30126高程55.15136 30127高程55.14319 30128高程55.135 30129高程55.12679 30130高程55.11856 30131高程55.11031 30132高程55.10204 30133高程55.09375 30134高程55.08544 30135高程55.07711 30136高程55.06876 30137高程55.06039 30138高程55.052 30139高程55.04359 30140高程55.03516 30141高程55.02671 30142高程55.01824 30143高程55.00975 30144高程55.00124 30145高程54.99271 30146高程54.98416 30147高程54.97559 30148高程54.967 30149高程54.95839 30150高程54.94976 30151高程54.94111 30152高程54.93244 30153高程54.92375 30154高程54.91504 30155高程54.90631 30156高程54.89756 30157高程54.8887930159高程54.87119 30160高程54.86236 30161高程54.85351 30162高程54.84464 30163高程54.83575 30164高程54.82684 30165高程54.81791 30166高程54.80896 30167高程54.79999 30168高程54.791 30169高程54.78199 30170高程54.77296 30171高程54.76391 30172高程54.75484 30173高程54.74575 30174高程54.73664 30175高程54.72751 30176高程54.71836 30177高程54.70919 30178高程54.7 30179高程54.69079 30180高程54.68156 30181高程54.67231 30182高程54.66304 30183高程54.65375 30184高程54.64444 30185高程54.63511 30186高程54.62576 30187高程54.61639 30188高程54.607 30189高程54.59759 30190高程54.58816 30191高程54.57871 30192高程54.56924 30193高程54.55975 30194高程54.55024 30195高程54.54071 30196高程54.53116 30197高程54.52159 30198高程54.512 30199高程54.50239 30200高程54.49276 30201高程54.48311 30202高程54.47344 30203高程54.46375 30204高程54.4540430206高程54.43456 30207高程54.42479 30208高程54.415 30209高程54.40519 30210高程54.39536 30211高程54.38551 30212高程54.37564 30213高程54.36575 30214高程54.35584 30215高程54.34591 30216高程54.33596 30217高程54.32599 30218高程54.316 30219高程54.30599 30220高程54.29596 30221高程54.28591 30222高程54.27584 30223高程54.26575 30224高程54.25564 30225高程54.24551 30226高程54.23536 30227高程54.22519 30228高程54.215 30229高程54.20479 30230高程54.19456 30231高程54.18431 30232高程54.17404 30233高程54.16375 30234高程54.15344 30235高程54.14311 30236高程54.13276 30237高程54.12239 30238高程54.112 30239高程54.10159 30240高程54.09116 30241高程54.08071 30242高程54.07024 30243高程54.05975 30244高程54.04924 30245高程54.03871 30246高程54.02816 30247高程54.01759 30248高程54.007 30249高程53.99639 30250高程53.98576 30251高程53.9751130253高程53.95375 30254高程53.94304 30255高程53.93231 30256高程53.92156 30257高程53.91079 30258高程53.9 30259高程53.88919 30260高程53.87836 30261高程53.86751 30262高程53.85664 30263高程53.84575 30264高程53.83484 30265高程53.82391 30266高程53.81296 30267高程53.80199 30268高程53.791 30269高程53.77999 30270高程53.76896 30271高程53.75791 30272高程53.74684 30273高程53.73575 30274高程53.72464 30275高程53.71351 30276高程53.70236 30277高程53.69119 30278高程53.68 30279高程53.66879 30280高程53.65756 30281高程53.64631 30282高程53.63504 30283高程53.62375 30284高程53.61244 30285高程53.60111 30286高程53.58976 30287高程53.57839 30288高程53.567 30289高程53.55559 30290高程53.54416 30291高程53.53271 30292高程53.52124 30293高程53.50975 30294高程53.49824 30295高程53.48671 30296高程53.47516 30297高程53.46359 30298高程53.45230300高程53.42876 30301高程53.41711 30302高程53.40544 30303高程53.39375 30304高程53.38204 30305高程53.37031 30306高程53.35856 30307高程53.34679 30308高程53.335 30309高程53.32319 30310高程53.31136 30311高程53.29951 30312高程53.28764 30313高程53.27575 30314高程53.26384 30315高程53.25191 30316高程53.23996 30317高程53.22799 30318高程53.216 30319高程53.20399 30320高程53.19196 30321高程53.17991 30322高程53.16784 30323高程53.15575 30324高程53.14364 30325高程53.13151 30326高程53.11936 30327高程53.10719 30328高程53.095 30329高程53.08279 30330高程53.07056 30331高程53.05831 30332高程53.04604 30333高程53.03375 30334高程53.02144 30335高程53.00911 30336高程52.99676 30337高程52.98439 30338高程52.972 30339高程52.95959 30340高程52.94716 30341高程52.93471 30342高程52.92224 30343高程52.90975 30344高程52.89724 30345高程52.8847130347高程52.85959 30348高程52.847 30349高程52.83439 30350高程52.82176 30351高程52.80911 30352高程52.79644 30353高程52.78375 30354高程52.77104 30355高程52.75831 30356高程52.74556 30357高程52.73279 30358高程52.72 30359高程52.70719 30360高程52.69436 30361高程52.68151 30362高程52.66864 30363高程52.65575 30364高程52.64284 30365高程52.62991 30366高程52.61696 30367高程52.60399 30368高程52.591 30369高程52.57799 30370高程52.56496 30371高程52.55191 30372高程52.53884 30373高程52.52575 30374高程52.51264 30375高程52.49951 30376高程52.48636 30377高程52.47319 30378高程52.46 30379高程52.44679 30380高程52.43356 30381高程52.42031 30382高程52.40704 30383高程52.39375 30384高程52.38044 30385高程52.36711 30386高程52.35376 30387高程52.34039 30388高程52.327 30389高程52.31359 30390高程52.30016 30391高程52.28671 30392高程52.2732430394高程52.24624 30395高程52.23271 30396高程52.21916 30397高程52.20559 30398高程52.192 30399高程52.17839 30400高程52.16476 30401高程52.15111 30402高程52.13744 30403高程52.12375 30404高程52.11004 30405高程52.09631 30406高程52.08256 30407高程52.06879 30408高程52.055 30409高程52.04119 30410高程52.02736 30411高程52.01351 30412高程51.99964 30413高程51.98575 30414高程51.97184 30415高程51.95791 30416高程51.94396 30417高程51.92999 30418高程51.916 30419高程51.90199 30420高程51.88796 30421高程51.87391 30422高程51.85984 30423高程51.84575 30424高程51.83164 30425高程51.81751 30426高程51.80336 30427高程51.78919 30428高程51.775 30429高程51.76079 30430高程51.74656 30431高程51.73231 30432高程51.71804 30433高程51.70375 30434高程51.68944 30435高程51.67511 30436高程51.66076 30437高程51.64639 30438高程51.632 30439高程51.61759。

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本程序只计算单一线路的中桩标高，若想把多个线路的参数放在同一个表中时，只需对以上程序稍加改动即可。

竖曲线标高计算程序（加了数据库）主程序名：SQXBGLbi1：｛H｝：H：Prog＂SJK＂：F=C-D：T=Abs(RF÷2：R=R AbsF÷FH≤B-T=＞K=0：≠=＞H≥B+T=＞K=0：C=D：≠=＞K=H-B+T⊿⊿G=A-（B-H）C-K2÷2R▲Goto1 ――――――――――――――――――――――――――――――――――子程序：SJK H≤第二竖曲线起点桩号（5569.108）=＞A=第一竖曲线交点高程（820.968）：B=第一竖曲线交点桩号（4980）：C=第一竖曲线前坡度（.03）：D=第一竖曲线后坡度（-.02902）：R=第一竖曲线半径（13000）⊿H≤第三竖曲线起点桩号（7174.4）=＞A=第二竖曲线交点高程（798.331）：B=第二竖曲线交点桩号（5760）：C=第二竖曲线前坡度（-.02902）：D=第二竖曲线后坡度（.0187）：R=第二竖曲线半径（8000）⊿H≤第四竖曲线起点桩号（7898.584）=＞A=第三竖曲线交点高程（828.438）：B=第三竖曲线交点桩号（7370）：C=第三竖曲线前坡度（.0187）：D=第三竖曲线后坡度（.035）：R=第三竖曲线半径（24000）⊿………………………继续添加要素――――――――――――――――――――――――――――――――――说明：1、A：交点高程2、B：交点桩号3、C：前坡度（上坡为正，下坡为负）4、D：坡度（上坡为正，下坡为负）5、R：竖曲线半径6、H：待求点桩号7、数据库中（）内的数字用于网友试算，现根据（）内的数据提供几个设计高程：H=5400 G=808.7796H=5450 G=807.3286H=6000 G=802.819H=6112 G=804.9134H=6980 G=821.145今天终于讲到了Excel函数的最后一部分——文本和数据函数。

再往后我们会陆续给大家介绍一些函数应用实例，每一则都会有详细的分析与指导，让您把理论上升为实际，敬请关注。

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。

竖曲线高程计算(一)竖曲线高程计算是公路设计中非常重要的一项内容，它是为了保证公路线形的曲线顺畅、道路通行安全而进行的。

下面我们从什么是竖曲线、竖曲线的类型以及竖曲线高程计算三个方面来详细分析。

一、什么是竖曲线？竖曲线是指公路等交通线路在垂直平面内的曲线。

它作为一种设计工具，用于限制公路等交通线路在纵向上的变化范围。

其目的是确保驾驶员的视野，依据车速、坡度等要素结合速度限制，使得道路平顺进行。

二、竖曲线的类型竖曲线一般可分为如下几种类型：1. 圆形竖曲线圆形竖曲线是公路中通行量较少的场合，无速限缓降的交叉路口、出入口等场合，选用比较丰富的中央绿化带、广场等项目，可以考虑使用这种类型的竖曲线进行设计。

2. 抛物线竖曲线抛物线岛是在桥梁、隧道等通行能力较强，不允许设置任何形式上的减速装置，同时也考虑到竖曲线要求较为平稳的时候，设计中一般可使用此类型的竖曲线来进行平稳过渡。

3. 非对称竖曲线非对称竖曲线一般用于既有的公路改建、升级等工程中，一些关键节点，如路段附近、涵洞等位置，应用非对称竖曲线进行设计，在改善道路的通行能力和顺畅程度的同时充分保证通行的安全性。

三、竖曲线高程计算竖曲线高程计算是竖曲线设计中非常重要的一个环节，它确定了竖曲线起始点和终止点之间的曲线长、坡度等参数，对竖曲线的设计起到关键的作用。

在竖曲线高程计算过程中，需要考虑的要素包括：速度限制、曲线半径、曲率半径的平均值以及曲线起始点的坐标及竖曲线终止点的坐标。

通过这些要素的计算和分析，得出竖曲线高程的设计参数。

总之，竖曲线的设计是公路建设中非常重要的一环，正确的竖曲线设计能够有效地保证公路的安全性、通行能力以及用户体验。

在进行竖曲线设计时，需要严格遵守相关的规范标准，并运用科学的方法进行计算和设计，以达到最佳的结果。

变坡点桩号变坡点高程R i1i2T L E 416.922240.64810000-3.714%-2.895%40.95081.90.084416.922240.64810000-3.714%-2.895%40.9581.90.084416.922240.64810000-3.714%-2.895%40.9581.90.084416.922240.64810000-3.714%-2.895%40.9581.90.084416.922240.64810000-3.714%-2.895%40.9581.90.084416.922240.64810000-3.714%-2.895%40.9581.90.084416.922240.64810000-3.714%-2.895%40.9581.90.084416.922240.64810000-3.714%-2.895%40.9581.90.084416.922240.64810000-3.714%-2.895%40.9581.90.084416.922240.64810000-3.714%-2.895%40.9581.90.084变坡点桩号变坡点高程R i1i2T L E 124102.532240.7915000-0.75%0.789%115.725231.450.446124102.532240.7915000-0.75%0.789%115.725231.450.446124102.532240.7915000-0.75%0.789%115.725231.450.446124102.532240.7915000-0.75%0.789%115.725231.450.446124102.532240.7915000-0.75%0.789%115.725231.450.446124102.532240.7915000-0.75%0.789%115.725231.450.446124102.532240.7915000-0.75%0.789%115.725231.450.446变坡点桩号变坡点高程R i1i2T L E 55530.442663000 2.439%-2.58%75.23150.450.943变坡点桩号变坡点高程R i1i2T L E 55460107.70512000 2.500%0.00%150.0003000.93855460107.70512000 2.50%0.00%150.0003000.93855460107.70512000 2.50%0.00%150.0003000.93855460107.70512000 2.50%0.00%150.0003000.93855460107.70512000 2.50%0.00%150.0003000.93855460107.70512000 2.50%0.00%150.0003000.93855460107.70512000 2.50%0.00%150.0003000.93855460107.70512000 2.50%0.00%150.0003000.93855460107.70512000 2.50%0.00%150.0003000.93855460107.70512000 2.50%0.00%150.0003000.93855460107.70512000 2.50%0.00%150.0003000.93855460107.70512000 2.50%0.00%150.0003000.938凹型竖------小桩号------55460107.70512000 2.50%0.00%150.0003000.93855460107.70512000 2.50%0.00%150.0003000.93855460107.70512000 2.50%0.00%150.0003000.93855460107.70512000 2.50%0.00%150.0003000.93855460107.70512000 2.50%0.00%150.0003000.93855460107.70512000 2.50%0.00%150.0003000.93855460107.70512000 2.50%0.00%150.0003000.93855460107.70512000 2.50%0.00%150.0003000.93855460107.70512000 2.50%0.00%150.0003000.93855460107.70512000 2.50%0.00%150.0003000.93855460107.70512000 2.50%0.00%150.0003000.938变坡点桩号变坡点高程R i1i2T L E55460107.70512000 2.500%0.00%150.0003000.93855460107.70512000 2.500%0.00%150.0003000.93855460107.70512000 2.500%0.00%150.0003000.93855460107.70512000 2.500%0.00%150.0003000.93855460107.70512000 2.500%0.00%150.0003000.93855460107.70512000 2.500%0.00%150.0003000.93855460107.70512000 2.500%0.00%150.0003000.93855460107.70512000 2.500%0.00%150.0003000.93855460107.70512000 2.500%0.00%150.0003000.93855460107.70512000 2.500%0.00%150.0003000.93855460107.70512000 2.500%0.00%150.0003000.93855460107.70512000 2.500%0.00%150.0003000.93855460107.70512000 2.500%0.00%150.0003000.93855460107.70512000 2.500%0.00%150.0003000.93855460107.70512000 2.500%0.00%150.0003000.93855460107.70512000 2.500%0.00%150.0003000.93855460107.70512000 2.500%0.00%150.0003000.93855460107.70512000 2.500%0.00%150.0003000.93855460107.70512000 2.500%0.00%150.0003000.93855460107.70512000 2.50%0.00%150.0003000.93855460107.70512000 2.50%0.00%150.0003000.93855460107.70512000 2.50%0.00%150.0003000.93855460107.70512000 2.50%0.00%150.0003000.938-----变坡点桩号变坡点高程R i1i2T L E55530.442663000 2.500%-2.576%76.140152.280.966 55530.442663000 2.50%-2.58%76.140152.280.966 55530.442663000 2.50%-2.58%76.140152.280.966 55530.442663000 2.50%-2.58%76.140152.280.966 55530.442663000 2.50%-2.58%76.140152.280.966 55530.442663000 2.50%-2.58%76.140152.280.966 55530.442663000 2.50%-2.58%76.140152.280.966前坡竖曲线起点竖曲线终点米数待求桩号变坡点桩号y 改正前高程375.970457.870-100.970275.000416.9200.0002235.377375.970457.870-99.970276.000416.9200.5002235.414375.970457.870-98.970277.000416.9200.4902235.451375.970457.870-97.970278.000416.9200.4802235.489375.970457.870-96.970279.000416.9200.4702235.526375.970457.870-95.970280.000416.9200.4612235.563375.970457.870-94.970281.000416.9200.4512235.600375.970457.870-93.970282.000416.9200.4422235.637375.970457.870-92.970283.000416.9200.4322235.674375.970457.870-91.970284.000416.9200.4232235.711后坡竖曲线起点竖曲线终点_X待求桩号变坡点桩号y 改正前高程123986.805124218.255104.505124113.750124102.5300.3642240.879123986.805124218.25589.505124128.750124102.5300.2672240.997123986.805124218.25574.505124143.750124102.5300.1852241.115123986.805124218.25559.505124158.750124102.5300.1182241.234123986.805124218.25544.505124173.750124102.5300.0662241.352123986.805124218.25535.505124182.750124102.5300.0422241.423123986.805124218.25525.785124192.470124102.5300.0222241.500前坡竖曲线起点竖曲线终点米数_X待求桩号变坡点桩号y 改正前高程55455.21555605.665 5.47555460.69055530.4400.005264.299前坡竖曲线起点竖曲线终点米数_X待求桩号变坡点桩号y 改正前高程55310.00055610.000146.50055456.555460.0000.894107.61855310.00055610.00050210.000510055460.000#########-1151.29555310.00055610.00050200.000511055460.000#########-1151.04555310.00055610.00050196.4405113.5655460.000#########-1150.95655310.00055610.00050170.000514055460.000#########-1150.29555310.00055610.00050160.000515055460.000#########-1150.04555310.00055610.00050153.000515755460.000#########-1149.87055310.00055610.00050148.000516255460.000#########-1149.74555310.00055610.00050125.000518555460.000#########-1149.17055310.00055610.00050117.000519355460.000#########-1148.97055310.00055610.00050111.000519955460.000#########-1148.82055310.00055610.00050110.000520055460.000#########-1148.795凹型竖曲线------小桩号（前坡）凹型竖曲线------大桩号（后坡）凸型竖曲线-----前坡凸型竖曲线-----前坡55310.00055610.000128.22755438.22755460.0000.685107.16155310.00055610.000137.44155447.44155460.0000.787107.39155310.00055610.000144.70055454.70055460.0000.872107.57355310.00055610.000137.15055447.15055460.0000.784107.38455310.00055610.000129.95055439.95055460.0000.704107.20455310.00055610.000123.00055433.00055460.0000.630107.03055310.00055610.000116.40055426.40055460.0000.565106.86555310.00055610.000109.95055419.95055460.0000.504106.70455310.00055610.000103.75055413.75055460.0000.449106.54955310.00055610.00097.70055407.70055460.0000.398106.39855310.00055610.000146.50055456.50055460.0000.894107.618后坡竖曲线起点竖曲线终点米数_X待求桩号变坡点桩号y 改正前高程55310.00055610.000143.62055466.3855460.0000.859107.70555310.00055610.00051560.000405055460.000#########107.70555310.00055610.00051517.000409355460.000#########107.70555310.00055610.00051510.000410055460.000#########107.70555310.00055610.00051507.2404102.7655460.000#########107.70555310.00055610.00051502.5004107.555460.000#########107.70555310.00055610.00051499.000411155460.000#########107.70555310.00055610.00051480.000413055460.000#########107.70555310.00055610.00051460.000415055460.000#########107.70555310.00055610.00051439.000417155460.000#########107.70555310.00055610.00051506.4404103.5655460.000#########107.70555310.00055610.00051503.5604106.4455460.000#########107.70555310.00055610.00051500.1374109.86355460.000#########107.70555310.00055610.00051504.2264105.77455460.000#########107.70555310.00055610.00051430.000418055460.000#########107.70555310.00055610.00051430.000418055460.000#########107.70555310.00055610.00051460.000415055460.000#########107.70555310.00055610.00051460.000415055460.000#########107.70555310.00055610.00051460.000415055460.000#########107.70555310.00055610.00051460.000415055460.000#########107.70555310.00055610.00051460.000415055460.000#########107.70555310.00055610.00051460.000415055460.000#########107.70555310.00055610.00051460.000415055460.000#########107.705后坡竖曲线起点竖曲线终点米数_X待求桩号变坡点桩号y改正前高程凸型竖曲线-----后坡凸型竖曲线-----后坡-----直坡上55454.30055606.58055611.73055530.4400.000263.906 55454.30055606.58055606.93055530.440264.030 55454.30055606.58055611.7355530.440263.906 55454.30055606.58055626.7355530.440263.520 55454.30055606.58055641.7355530.440263.133 55454.30055606.58055653.7355530.440262.824 55454.30055606.58055665.155530.440262.531改正后高程桩号外边缘标高2235.377275.0002235.1922235.914276.0002235.7292235.941277.0002235.7562235.968278.0002235.7832235.996279.0002235.8112236.023280.0002235.8382236.051281.0002235.8662236.079282.0002235.8942236.106283.0002235.9212236.134284.0002235.949改正后高程桩号2241.243124113.7502241.0582241.264124128.7502241.0792241.300124143.7502241.1152241.352124158.7502241.1672241.418124173.7502241.2332241.465124182.7502241.2802241.522124192.4702241.33755419.95055426.400改正后高程桩号55447.150264.29455460.69055454.700155439.95055433.00055413.750改正后高程桩号106.72355456.500106.908##########5100.000#########(106194.904)50356.500 ##########5110.000#########(106152.817)50346.500 ##########5113.560#########(106137.836)50342.940 ##########5140.000#########(106026.604)50316.500 ##########5150.000#########(105984.550)50306.500 ##########5157.000#########(105955.117)50299.500 ##########5162.000#########(105934.096)50294.500 ##########5185.000#########(105837.426)50271.500 ##########5193.000#########(105803.812)##########5199.000#########(105778.605)##########5200.000#########(105774.404)106.47655438.227106.661106.371106.60455447.441106.789106.499106.70055454.700106.885106.595 1.800 106.60055447.150106.785106.4959.350 106.50055439.950106.685106.39516.550 106.40055433.000106.585106.29523.500 106.30055426.400106.485106.19530.100 106.20055419.950106.385106.09536.550 106.10055413.750106.285105.99542.750 106.00055407.700106.185105.89548.800 106.72355456.500106.908106.6180.000改正后高程桩号路面边沿高程106.84655466.380106.711##########4050.000###################4093.000###################4100.000###################4102.760###################4107.500###################4111.000###################4130.000###################4150.000###################4171.000###################4103.560###################4106.440###################4109.863###################4105.774###################4180.000###################4180.000###################4150.000###################4150.000###################4150.000###################4150.000###################4150.000###################4150.000###################4150.000#########改正后高程桩号263.90655611.730264.091 264.03055606.930264.215 263.90655611.730264.091 263.52055626.730263.705 263.13355641.730263.318 262.82455653.730263.009 262.53155665.100262.716。

竖曲线高程计算公式推导及计算流程1. 竖曲线介绍竖曲线是指在纵断面内，两个坡线之间为了延长行车视距或者减小行车的冲击力，而设计的一段曲线。

一般可以用圆曲线和抛物线来充当竖曲线。

由于圆曲线的计算量较大，所以，通常采用抛物线作为竖曲线，以减少计算量。

2. 竖曲线高程计算流程竖曲线计算的目的是确定设计纵坡上指定桩号的路基设计标高，其计算步骤如下：a. 计算竖曲线的基本要素：竖曲线长L ；切线长T ；外失距Eb. 计算竖曲线起终点的桩号：竖曲线起点的桩号=变坡点的桩号－Tc. 计算竖曲线上任意点切线标高及改正值： 切线标高=变坡点的标高±（x T -）⨯i 改正值：221x Ry =d. 计算竖曲线上任意点设计标高某桩号在凹形竖曲线的设计标高 = 该桩号在切线上的设计标高+ y 某桩号在凸形竖曲线的设计标高 = 该桩号在切线上的设计标高－y3. 竖曲线高程计算公式推导已知条件：第一条直线的坡度为1i ，下坡为负值， 第一条直线的坡度为2i ，上坡为正值， 变坡点的里程为K ，高程为H ， 竖曲线的切线长为B A T T T ==, 待求点的里程为X K 曲线半径R竖曲线特点：抛物线的对称轴始终保持竖直，即：X 轴沿水平方向，Y 轴沿竖直方向，从而保证了X 代表平距，Y 代表高程。

抛物线与相邻两条坡度线相切，抛物线变坡点两侧一般不对称，但两切线长相等。

竖曲线高程改正数计算公式推导 设抛物线方程为：()021≠++=a c bx ax y 设直线方程为：()02≠+=k b kx y由图可知，抛物线与直线都经过坐标系222Y O X 的原点2O ,所以可得：00==b c ；分别对21y y 、求导可得：b ax y +=2'1k y ='2当0=x 时，由图可得：b i y ==1'1k i y ==1'2当L x =时，由图可得：12'12i aL i y +==由上式可得：RL L i i a 212212==-=ω 所以抛物线方程为：x i x Ry 12121+=直线方程为：x i y 12=对于竖曲线上任意一点P ，到其切线上Q 点处的竖直距离,即高程改正数y 为：21122121X RX i X i X R y y y P Q =-+=-= 竖曲线曲线元素推导竖曲线元素有切线长T 、外失距E 和竖曲线长L 三个元素，推导过程如下： 由图可知：2tan ω=R T 由于转角ω很小，所以可近似认为22tanωω=，因此可得：2ωR T =由图易得：ωR L = 将切线长T 带入到221x Ry =中可得 外失距RT E 22=4. 曲线高程计算示例已知：某条道路变坡点桩号为K25+460.00，高程为780.72.m ，i1＝0.8％，i2＝5％，竖曲线半径为5000m 。

竖曲线计算程序JS 竖曲线计算主程序LBI 1:W=1=>｛K｝:K:Prog“A”:Goto 2⊿←┚W=2=>｛K｝:K:Prog“B”:Goto 2⊿←┚W=3=>｛K｝:K:Prog“C”:Goto 2⊿←┚W=4=>｛K｝:K:Prog“D”:Goto 2⊿←┚W=5=>｛K｝:K:Prog“E”:Goto 2⊿←┚………………………….（主线可以取消W值）LBI 2:T=RAbs(U-V)/200:K＜N=>L=U:M=N-T:M＞K=>M=K⊿≠=> L=V:M=N+T: M＜K=>M=K⊿⊿S=(K-M)2/2R:U-V＞0=>S=-S⊿D=H+(K-N)*L/100+S←┚Goto 3←┚LBI 3:｛J｝:J:J≤0=>Z=D+JI≠=>Z=D+JB⊿Z=Z◢（此处关于加减符号根据设计横坡正负号自行确定）Goto 1A 竖曲线要素子程序K≤下段曲线起点＝＞N=1600:H=112.75:U=-1.2:V=-0.4: R=5000:Q=700: Goto 2⊿←┚K≤3702.521＝＞N=3000:H=107.15:U=-0.4:V=-0.8:R=20000:Q=2600: Goto 2⊿←┚……………………………LBI 2:K≤超高缓和段起点＝＞I=未超高横坡:B= -I： Goto 3⊿←┚K≤超高缓和段终点＝＞E=(K-超高缓和段起点)/超高缓和段长度:I=-0.04E-0.02: I≥-0.02＝＞B=-0.02:≠=>B=I⊿Goto 3⊿←┚（如B坡未变可直接输入B=-0.02）注意条件转移结束符号的位置，如果加一个条件必须加⊿，否则横坡计算会出错。

………………………………LBI 3说明:K:待求点桩号 R:竖曲线半径 N:变坡点桩号H:变坡点高程 U:前纵坡 V:后纵坡J:边距,左取-值，右取+值 Q:前段竖曲线起点Z:中桩高程程序中加横线部分根据超高过渡段的起终点桩号和超高横坡输入,线性超高横坡计算公式:I=(I2-I1)*X/L+I1。