本程序为道路中边桩高程程序

合集下载

CASIO fx—5800计算器工程测量与公路测量程序

CASIO fx—5800计算器工程测量与公路测量程序1、坐标正算〝X0=〞?X:〝Y0=〞?Y:〝I=〞?I:〝J=〞?JX+ICos(J)→U:Y+ISin(J)→V〝X=〞:U （待求点的X坐标）〝Y=〞:V （待求点的Y坐标）说明：X0 Y0：已知点坐标I：两点的距离J：方位角２、坐标反算Lbl 0〝X1=〞?X:〝Y1=〞?Y:〝X2=〞?U:〝Y2=〞?VPol(U-X,V-Y):J<0 J+360→J〝I=〞:I〝J=〞:J DMSGOTO 0说明：X1Y1：第一点的坐标，X2Y2第二点的坐标，I：两点的距离，J：方位角３、圆曲线〝X0=〞?X: 〝Y0=〞?Y:〝FWJ=〞?D:〝QDHAO=〞?G: 〝ZDHAO=〞?C: 〝R=〞?R Lbl 1〝DQHAO=〞?LL<G Or L﹥C GOTO 2〝PY=〞?K180(L-G)÷(πR) →E2RSin(0.5E) →FReC(Abs(F),D+0.5E)：Cls〝X=〞:X+I+KCos(D+E+90) →A〝Y=〞:Y+J+KSin(D+E+90) →BD+E→o:o<0 360+o→0o〝FWJ=〞:o DMSGoto 1Lbl 2〝END〞说明：X0Y0：起始点的坐标，FWJ：起始点的方位角，QDHAO：起点里程，ZDHAO 终点里程，R：半径，DQHAO：待求点里程，PY：偏移量４、竖曲线〝QZHAO =〞?J: 〝H+B〞=?B:〝I1=〞?C:〝I2=〞?D:〝R=〞?R:〝T=〞?T: ((D-C)÷100) ÷Abs((D-C) ÷100)→A:Abs(0.5R(D-C) ÷100)→S〝T〞:SJ-T→XJ＋T→YLbl 0〝DQ=〞?LIf L<X:Then Goto 1:Else If L﹥Y:Then Goto 1:If End:If End〝GC=〞:B+C(L-J) ÷100+A(L-J+T) ÷(2R) →HGoto 0Lbl 1〝END〞说明：QZHAO：曲中点里程，H+B：曲中点高程，I1：第一坡度，I2：第二坡度，R：半径，T：切线长，DQ：待求点里程。

中边桩高程及加宽计算程序

中边桩高程及加宽计算程序（绕中轴旋转高次抛物线超高加宽）2008年4月23日徐锋GCJKJS（主程序）A“P1”B“P2”RD“JD ZHANG”I“JD-H”S“LH”G“LJK”M“SJJK”P“LGHP”Q“CGHP”U“ZH”X“HZ”Z“(Z－，Y+)”：Z[1]=Z：LBI0：{Z}：Z：W=B-A：T=AbsWR÷2：E=TW÷4：C=D-T：F=D+T：W≥0=>K=（Z-C）2÷（2R）：≠> K= -（Z-C）2÷2R：Goto1 Lbi1：Z≤D-T=>Goto5：≠>Z＞D-T=>Z≤D+T=>Goto3：≠>Z＞D+T=>Goto4：Lbi5：H=I-A （D-Z）GotoD：Lbi3：H=I-A（D-Z）+KGotoD：Lbi4：H=I-B（D-Z）GotoDLbiDZ≤U=>L＝0：Goto2⊿Z≤U+S=>L＝Z－U：Goto2⊿Z≤X－S=>L＝S：Goto2⊿Z≤X=>L ＝X－Z：Goto2⊿Z>X=>L＝0：Goto2⊿Lbi2：J“JK”=（4×（L÷S）3-3×（L÷S）4）×MY“WC”=（L÷S×（P+Q））×G÷2-P×G÷2O=2P÷（P+Q）×S：L≤O=>V“LC”=-P×（G÷2+J）GotoC：≠=>V“LC”=-（（L÷S）×（P+Q）-P）×（G÷2+J）GotoCLbiCZ[1]>0=> Prog“A”：Goto 0⊿Prog “B”：Goto0⊿A（子程序）“G=”：H=H◢L<0.001=>Y=-Y: “ZG=”：H=H+Y◢“YG=”：H=H◢Goto 1 ≠=>Y=Y:“ZG=”：H=H+Y◢“YG=”：H=H-Y+V◢Goto 1Lbi1“ZK=”：Z[2]=G/2◢“YK=”：Z[3]=G/2+J◢B（子程序）“G=”：H=H◢L<0.001=>V=V: “ZG=”：H=H+V◢“YG=”：H=H◢Goto 1≠=>Y=Y:“ZG=”：H=H+V◢“YG=”：H=H+Y－V◢Goto 1Lbi1“ZK=”：Z[3]=G/2+J◢“YK=”：Z[4]=G/2◢说明：一、程序中字母及符号意义：P1（A）：第一条纵坡坡度（i %，如0.02、-0.02）P2（B）：第二条纵坡坡度（i %，如0.02、-0.02）R：竖曲线半径JD ZHANG（D）？变坡点桩号I（JD-H）？变坡点高程S“LH”？缓和曲线长（当没有缓和曲线时，请输为0.0001）G“LJK”？标准路基全幅宽度M“SJJK”？弯道设计最大加宽值P“LGHP”？标准路拱横坡坡值Q“CGHP”？弯道设计最大超高值U“ZH”？直缓桩桩号X“HZ”？缓直桩桩号Z“(Z－，Y+)”？左偏输入负值，右偏输为正值Z？待求点桩号“G=”中桩高程“ZG=”左边桩高程“YG=”右边桩高程“ZK=”左幅路基宽度“YK=”右幅路基宽度二、输入、计算要点1．一次只能输入一条平竖曲线参数2．纵坡坡度须代入正负号进行运算特别说明：1、本程序单下划线部份是中桩高程计算部份2、本程序双下划线部份是超高加宽计算部份3、高程计算部份引用了杨小杰的程序，在此特别感谢优点：将高程、超高、加宽一次性计算出来，减少计算的工作量中边桩高程及加宽计算程序（绕中轴旋转高次抛物线超高加宽）2008年4月23日徐锋GCJKJS（主程序）LbiP：A“P1”B“P2”RD“JD ZHANG”I“JD-H” S“LH” G“LJK” M“SJJK” P“LGHP”Q“CGHP” U“ZH” X“HZ” Z“(Z－，Y+)”：Z[1]=Z：Goto0回车LBI0：{Z}：Z：W=B-A：T=AbsWR÷2：E=TW÷4：C=D-T：F=D+T：W≥0=>K=（Z-C）2÷（2R）：≠> K= -（Z-C）2÷2R：Goto1回车Lbi1：Z≤D-T=>Goto5：≠>Z＞D-T=>Z≤D+T=>Goto3：≠>Z＞D+T=>Goto4：Lbi5：H=I-A（D-Z）回车GotoD：Lbi3：H=I-A（D-Z）+K回车GotoD：Lbi4：H=I-B（D-Z）回车GotoD回车LbiD回车Z≤U=>L＝0：Goto2⊿Z≤U+S=>L＝Z－U：Goto2⊿Z≤X－S=>L＝S：Goto2⊿Z≤X=>L＝X－Z：Goto2⊿Z>X=>L＝0：Goto2⊿回车Lbi2：J“JK”=（4×（L÷S）3-3×（L÷S）4）×M回车Y“WC”=（L÷S×（P+Q））×G÷2-P×G÷2回车O=2P÷（P+Q）×S：L≤O=>V“LC”=-P×（G÷2+J）回车GotoC：≠=>V“LC”=-（（L÷S）×（P+Q）-P）×（G÷2+J）回车GotoC回车LbiC回车Z[1]>0=> Prog“A”：Goto 0⊿Prog “B”：Goto0⊿A（子程序）“G=” ：H=H◢L<0.001=>Y=Y: “ZG=” ：H=H+Y◢“YG=” ：H=H◢Goto 1 ≠=>Y=Y:“ZG=” ：H=H+Y◢“YG=” ：H=H-Y+V◢Goto 1Lbi1“ZK=” ：Z[2]=G/2◢“YK=” ：Z[3]=G/2+J◢B（子程序）“G=” ：H=H◢L<0.001=>V=V: “ZG=” ：H=H+V◢“YG=” ：H=H◢Goto 1≠=>Y=Y:“ZG=” ：H=H+V◢“YG=” ：H=H+Y－V◢Goto 1Lbi1“ZK=” ：Z[3]=G/2+J◢“YK=” ：Z[4]=G/2◢说明：一、程序中字母及符号意义：P1（A）：第一条纵坡坡度（i %，如0.02、-0.02）P2（B）：第二条纵坡坡度（i %，如0.02、-0.02）R：竖曲线半径JD ZHANG（D）？变坡点桩号I（JD-H）？变坡点高程S“LH”？缓和曲线长（当没有缓和曲线时，请输为0.0001）G“LJK”？标准路基全幅宽度M“SJJK”？弯道设计最大加宽值P“LGHP”？标准路拱横坡坡值Q“CGHP” ？弯道设计最大超高值U“ZH”？直缓桩桩号X“HZ”？缓直桩桩号Z“(Z－，Y+)”？左偏输入负值，右偏输为正值Z？待求点桩号“G=”中桩高程“ZG=”左边桩高程“YG=”右边桩高程“ZK=”左幅路基宽度“YK=”右幅路基宽度二、输入、计算要点1．一次只能输入一条平竖曲线参数2．纵坡坡度须代入正负号进行运算特别说明：1、本程序单下划线部份是中桩高程计算部份2、本程序双下划线部份是超高加宽计算部份3、高程计算部份引用了杨小杰的程序，在此特别感谢优点：将高程、超高、加宽一次性计算出来，减少计算的工作量本文可共享补充点击修改共享补充New!查看楼主其它文章<<返回→回复内容只查看楼主与本人回复沙发：xufeng 楼主08-4-23 16:37回欢迎大家使用，并提出宝贵的意见，以便进一步提高，相信对你的测量计算工作有所帮助2楼：李洪08-4-24 18:19回能算匝道不?3楼：'geergirl 08-4-25 19:45回评：-4分代码错误很多，根本无法正常运行！4楼：XUFENG 楼主08-4-26 11:53回3楼:geergirl3楼的朋友切莫乱加评论，你用了吗，没用过就别乱糟蹋别人的心血，我的程序给你这样的人看实在很不幸5楼：XUFENG 楼主08-4-26 11:55回2楼:李洪只算主线，匝道一般用内插计算6楼：XUFENG 楼主08-4-26 12:8回程序的好坏，要用了才知道，如果真有问题请指出不对之处，大家共同进步，不然就不要妖言祸众，让别人不敢用7楼：'123 08-4-26 12:25回谢谢，用后评。

公路曲线任意点中边桩坐标计算编程及放样

此Ｐ建然贯通相遇点在水平重要方向上的误差预计如下：）１由地面测Ｐ辉，等点，立地面控制网，后进行矿井上下联系测量加
量导线引起的在水平重要方向上的误差。２由陀螺定向测量引测两条陀螺定向边，）以保证井下坐标的精度和准确性。井下７级
２共２站，点布设在底板和顶板上，测根起的在水平重要方向上的误差。３由井下测角引起的在水平重测量导线全长４６０ｍ，设３）要方向上的误差。４由井下测边引起的在水平重要方向上的误据现场条件确定。根据规程和方案选择进行贯通测量实施。煤）差。５贯通相遇点在水平重要方向上的总中误差。）矿贯通测量巷道示意图见图１。１贯通误差预计：）Ｍ＝ ±００３８３ｍ，＝ ±００９２４ｍ，．５３Ｍｙ．３１
第３６卷第３１期２０１０年１１月
文章编号：０９６２（００３ — ３５０１０－８５２１）１０５ —２
山西建筑
ＳＨＡＮＸＩＡＲＣＨＩＴＥＣＴＵＲＥ
Ｖ０．６Ｎｏ．１３３１
Ｎｖ２０ｏ．０１
图１煤矿贯通测量巷道示意图
［］周立吾．２矿山测量学［．Ｍ］北京：中国矿业出版社，００２０．
Ｏｎｃｓｐｉａｉｎｏｐｉｉａｉｎｍｅｈｏｏａｌｒｅｋｈｏｈｍｅｓｅａｅａｐｌｔｏｆｏｔｍｚｔｏｔｄｆｒｇｌｅｙｂｒａｔｒｕｇａｕｒｓｃ

5800P计算器程序及使用说明 (1)

1．公路铁路任意线型单元路线中桩边桩坐标及放样极坐标的通用计算程序(ZHYDLDY ZBJS)作者：琚新涛QQ：25425579一、线路中线的线型分析公路铁路线路按照线型分类，可分为直线、圆曲线线路和曲线线路。

一般情况下，缓和曲线是连接直线与圆曲线的过渡性曲线，该缓和曲线称为完全的缓和曲线。

在特殊的情况下（公路立交匝道），截取完全缓和曲线上的一段，其两端外连接两个不等半径的圆曲线，即将一个半径逐渐过渡到另一半径，这种缓和曲线称为不完全缓和曲线。

所以，缓和曲线分为完全的缓和曲线和不完全的缓和曲线两种。

那么，一条很长的公路铁路线路可划分为一个一个单一线型的线路单元。

即直线单元，圆曲线单元，完全缓和曲线单元和不完全缓和曲线单元。

各类线型线路单元具有各自不同的几何性质，直线单元式半径无穷大而曲率为零且始终保持不变的线型。

圆曲线单元是始终保持某一半径和相应曲率不变的线型。

缓和曲线单元是半径和曲率都处处不等且均匀渐变的线型，即半径和曲率随线路中线点位呈线性变化。

完全缓和曲线单元是将直线的零曲率均匀渐变到另一半径圆曲线曲率的线型，不完全缓和曲线单元是将某一半径圆曲线曲率均匀渐变到另一半径圆曲线曲率的线型。

于此可见，不完全缓和曲线路线是所有线型线路单元中最一般的线型单元。

LbI D:Fix 3:Deg:“GTL ZHY ZBZ FYJS”:”CZD ZBN(X)=”?R:”CZD ZB E(Y)=”?S:”DY QD ZBN(X)=”?A:”DY QD ZB E(Y)=”?B:”DY QDBJ(R1)=”?T:”DY QD LC(L1)=”?D:”DY QD QX FWJ=”?E:”DY ZD BJ(R2)=”?U:”DY ZD LC(L2)=”?G:”DYQD—ZD QXZX(Z=-1,Y=+1)=”?WWT→C:WU→F:0→I:0→J:(C-F)÷(2CF(G-D))→HLbI A:”FYD DY ZZ LC=”?O：IF O=-1:Then Goto C:IfEnd:If O＜D:Then Goto B:IfEndIF O＞G:Then Goto B:IfEnd“ZZ-BZ FXJ(Z-,Y+)=”?P:”ZZ-BZ PJ=”?Q:E+((O-D)÷C+H(O-D)2)r→V:If V＜0:Then V+360→V:IfEndIf V≥360:Then V-360→V:IfEnd“ZZD QX FWJ=”:V▶DMS◢Rad:A+∫(cos(E。

公路测量4850高程计算程序

公路测量4850高程计算程序（直线、竖曲线连算、绕中央分隔带边缘旋转超高段的单侧横坡值及设计高程计算）一．程序特点：1.只需输入高速公路纵断面图上的某一个变坡点的桩号和高程以及前坡度、后坡度、横坡值（超高或正常路拱横坡）、中央分隔带宽度，则可计算出自前竖曲线终点（SYZ点）桩号至后竖曲线起点（SZY点）桩号范围内的任一待求点的中桩设计高程和距离中桩的任一点边桩的高程，循环输入待求点桩号，则循环计算高程，程序会自动判别待求点在直线上还是在竖曲线上。

2. 适用于高速公路绕中央分隔带边缘旋转方式的缓和超高段、全超高段的边桩高程计算：只需输入缓和超高段或全超高段的起、终点横坡值和桩号以及此超高段中待求点桩号、中桩高程和距中桩的距离，则可计算出待求点的单侧的超高横坡值、单侧边桩超高高程。

3子程序可单独运行计算正常直线竖曲线（不含超高段边桩）中的自前竖曲线终点（SYZ点）桩号至后竖曲线起点（SZY点）桩号范围内的任一待求点的中桩设计高程和距离中桩的任一点边桩（不含超高段边桩）的高程，循环输入所求点桩号Z的值，则循环计算高程，程序会自动判别待求点在直线上还是在竖曲线上。

子程序和主程序循环结合，运行主程序后：自正常段直竖连算程序进入超高计算程序只需K？时输入1后EXE显示“NEXT-CG-H(B)”；自超高计算程序返回正常段直竖连算程序只需只需当K？时输入-1后EXE后显示“NEXT-ZX.SQX-H(Z)-H(B)”即可，计算时无需反复调换程序名。

4．纵横坡度值输入和显示时均为%号前的分子项且带正负号。

如坡度为-2.85%，则输入或显示为-2.85。

二．程序内容：主程序：ZX-SQX-CGProg“S”←┘｛AMCDENL｝：C“ZFD”：A：“I0”：M：“IN”：E“K0”：N“KN”←┘Lbi 1：｛KHZ｝：K=-1=> GoTo 2⊿H“H（Z）”：Z：D=K-E：L=N-E ←┘“HP（CG）=”：I=A-（A-M）（D÷L）▲“H（CG-B）=”：X=H+0.01×（Abs（Z）-0.5C）I▲GoTo 1←┘Lbi 2：“NEXT-ZX.SQX-H（Z）-H（B）”←┘子程序：S｛ABGIJR｝：A“ZFD”：B“BPK”：G“BPH”:I=0.01I:J=0.01:W=J－I: T=RAbsW÷2←┘“T=”：T▲“SZY=”：P=B-T▲“SYZ=”：Q=B+T▲W>0=>F=1:≠>F=-1⊿←┘Lbl 1:{KSV}:K=1=> GoTo 2⊿S“Z”：V“HP”：U=B-K:K≤P=>H=G-IU: ≠>K≤B=>H=G-IU+F(K-P)2÷2R:≠>K<Q=>H=G-JU+F(Q-K)2÷2R: ≠>H=G-JU⊿⊿⊿“H（Z）=”：H▲“H（B）=”：Y=H+0.01（AbsS-0.5A）V▲GoTo 1←┘Lbl 2:“NEXT-HP（CG）-H（CG-B）”←┘变量符号说明：ZFD:中央分隔带宽度；K所求点桩号；H(Z)所求点中桩（也即中央分隔带位置）设计高程；BPK:变坡点桩号；BPH:变坡点高程；I变坡点之前纵坡度；J变坡点之后纵坡度；R竖曲线半径；Z所求点距中桩的距离(Z的绝对值为不小于中央分隔带半宽的值)；HP路拱横坡度；H（B）所求点距中桩距离Z处边桩高程；I0横坡值；IN横坡值；K0超高段起点桩号；KN超高段终点桩号；HP(CG)所求点单侧超高横坡值；H（CG-B）所求点距中桩距离Z处边桩超高高程。

道路桩号算中边桩坐标高程计算程序

道路桩号算中边桩坐标高程计算程序道路桩号是指道路上的标志桩，用于表示道路上的位置和距离。

在道路规划、设计和施工中，需要根据桩号来确定道路的线形和纵断面，并计算出桩号对应的坐标和高程。

道路桩号的计算程序可以分为以下几个步骤：1.确定基准点：选择一个具备准确坐标和高程的点作为道路的起点，确定其坐标和高程。

2.确定桩号起点：确定一个参考点作为桩号的起点，通常选择道路的起点或其他规定的地点。

为了方便计算，可以选择一个整数作为起点桩号，如0、100等。

3.桩号计算：根据道路设计和实际情况，确定桩号的计数方式和间隔。

通常情况下，桩号以米为单位，从起点开始递增或递减。

4.桩号与坐标的关系：桩号与坐标之间存在一定的数学关系，可以根据道路的几何特征和设计参数进行计算。

例如，对于一条平直无坡道路，可以使用线性插值法计算桩号对应的坐标。

5.桩号与高程的关系：桩号与高程之间也存在一定的数学关系，可以根据道路的纵断面和地形特征进行计算。

例如，对于一条按规定坡度设计的道路，可以使用坡比法计算桩号对应的高程。

6.精度控制：在桩号计算过程中，需要考虑测量误差和计算方法的精度。

为了提高计算结果的准确性，可以采用较精确的测量方法和计算算法，并进行误差修正。

7.应用场景：道路桩号的计算程序可以应用于道路工程中的位置控制、导线布设、测量定位、横断面绘制等方面，为道路规划、建设和维护提供准确的空间位置和高程信息。

总结起来，道路桩号的计算程序是根据道路的设计和实际情况，通过选择基准点和起点桩号，确定桩号计算方式和间隔，以及桩号与坐标、高程之间的关系，计算出桩号对应的坐标和高程。

这个程序可以应用于道路工程中的各个环节，为道路的设计、施工和维护提供准确的空间位置和高程信息，提高工程质量和效率。

小白自学ExcelVBA道路坐标高程计算程序流程

小白自学ExcelVBA道路坐标高程计算程序流程1声明1.1 本人是个工作时间不长测量施工员。

1.2听说想轻松愉快的干好测量得学门编程，又听说ExcelVBA是个简单的可视化的常用的……1.3 本人很懒，面对厚厚的全是“昏天暗地”代码的ExcelVBA教科书籍，实在是没心没力。

其实俺还是懂点儿VB编程的（学校学过“=”是赋值，if、while、end的意思，嘿嘿，还有画窗体图框，其他的就都还给老师了）。

1.4 谷歌、度娘，是咱的好帮手。

1.5 仰望的存在，神一般的存在，无私的化身！道路中边桩坐标计算程序120424.xls（王中伟”教授”QQ：595077）曲线坐标计算程序VBA 4.6.xls（陈超”中铁”QQ：295188316）陈师傅的VBA代码乍一看感觉比王老师的让人头痛，怎么说咱们也是个有理想有目标的人，要啃就啃硬骨头！就选~~~嘿嘿~~~王老师的程序吧！1.6 道路中边桩坐标计算程序120424.xls代码获取。

王老师、陈师傅担心不懂编程的人，不小心修改代码导致程序错误，设置了vba密码（个人认为），其次我跟他们不熟，没有正大光明的要的密码，于是求助谷歌度娘，这个关于VBA 密码破解，于是很不厚道的得到了密码，为了方便本次学习，又很不厚道的把道路中边桩坐标计算程序120424.xls的密码贴出来（df750726），神人勿怪呀！2 代码理解ing…我们通过密码打开vba代码窗口，大家可以先把每个表格打开浏览一下代码，是不是感觉很短呀，感觉应该是超级链接的意思，嘿嘿，主要的代码在模块“lx”里，打开下，代码多吧，这就是咱们要肯的骨头。

现在咱们冲呀！2.1 第一段代码理解貌似第一段代码是定义的意思“定义π值”、'定义桩号点”、“'定义坡段”、“'定义基本曲线”①Public Const PI As Double = 3.14159265358979谷歌翻译：Public Const PI As Double公共常量PI 作为双精度浮点型百度百科：双精度浮点数双精度浮点数（Double）用来表示带有小数部分的实数，一般用于科学计算，用8个字节（64位）存储空间，其数值范围为1.7E-308～1.7E+308，双精度浮点数最多有15或16位十进制有效数字，双精度浮点数的指数用“D”或“d”表示。

缓和曲线超高段中边桩高程放样计算

缓和曲线超高段中边桩高程放样计算一、计算依据：1）中桩高程，设计单位在＂线路纵断面图＂上提供每隔一定距离的中桩高程.施工过程中根据自己的需要经常要加桩，这时就要计算中桩高程.缓和曲线超高段的中桩设计高程，可在计算竖曲线时用＂直竖结合程序＂一并算出.2）边桩高程：＂线路纵断面图＂上只提供了部分中桩设计高程，没有给出同一断面上的边桩高程，因此就必须依据中桩高程中桩至边桩的距离和超高横坡度才能计算出边桩高程.由于距离和中桩高程已知，所以关键是计算超高横坡度.二、计算范围计算曲线超高段高程放样数据必须在弯道超高范围内，在范围外则是线路直线段.三、计算公式及说明缓和曲线超高段计算超高横坡度公式：{I=AbS（B-A）×2E/Q-EI=[AbS（B-A）-Q]（D-E）/（C-Q）+E式中：I——缓和曲线内任一横断面超高横坡度B——缓和曲线超高段内任一点里程桩号A——缓和曲线起点ZH或终点HZ的里程桩号E——直线段路拱坡度，输入时不考虑符号，取正值D——最大超高段内设定的最大超高横坡度，取正值C——缓和曲线长度（M）ABS 绝对值符号Q——缓和曲线起点（终点）至超高变坡临界面距离。

Q=2E/（E+D）×C四、程序清单Lbl 0：E：D：C：A：L{BH}：B≤0 => Goto 2 ⊿Q=2E/（E+D）×C ：Abs （B-A）>Q => Goto 2 ⊿I= Abs （B-A）×2E/Q-E◢F=H+IL◢T=H-EL◢Goto 0⊿LbI 1：I=（ Abs （B-A）-Q）（D-E）/（C-Q）+E◢F=H+IL◢T=H-IL◢Goto 0LbI 2 ：{EDCAL}：Goto 0使用说明1）此程序计算范围：缓和曲线起点ZH至设定最大超高横横坡段起点HY之间任一点横断面的超高横坡度及边桩高程；缓和曲线终点HZ至设定最大超高横坡段终点YH之间任一点横断面的超高横坡度及边桩高程；不计算设定的最大超高段的设定超高横坡度及边桩高程，此段需另行计算。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

本程序为道路中边桩高程程序（全线通),带数据库
行号GAOCH 注解说明
1 〝DK=〞?P:Prog〝GSO〞: DK为桩号GS0高程数据库。

2 〝ZP〞?W: 变边坡点桩号（可以去掉，在主程序中不显示)
3 〝HP〞?G: 变边坡点高程（可以去掉，在主程序中不显示)
4 R*Abs（J-I)÷100÷2→T：竖曲线切线长
5 W-T→Z: 竖曲线起点桩号
6 W+T→K: 竖曲线终点桩号
7 -Abs（J-I)÷（J-I）→M↓判断是凸曲线=1、凹曲线=-1
8 ?B:〝DL=〞?D:?U↓B设计到各层高度、变量DL-偏距U-横坡度
9 IF P≤Z;
10 Then G+(P-W)I÷100→H:Goto1:IfEnd↓前段直线段高程计算
11 IF P≤W：Then
12 G+(P-W)I÷100-M(P-Z)2÷（2R）→H:Goto1:IfEnd↓凸曲线段高程计算
13 IF P≤K：Then
14 G-(W-P)J÷100-M(P-K)2÷（2R）→H:Goto1;IfEnd↓凹曲线段高程计算
15 G+(W-P)J÷100→H:[b]1: 后段直线段高程计算
16 Int（H*1000+0.5）÷1000+B-D*U/100→H↓边桩高程计算
17 〝H=〞:H◢显示高程
18 〝H1=〞？F:H-F→Q↓H1是实测高程
19 〝Q=〞:Q◢Q值为+是超，-为欠
20 判别凸凹曲线J>I时M为1,J<I时M为-1
21 I-J<0是凸曲线、I-J>0是凹曲线
行号高程GS0数据库
1 Goto1↓
2 [b]1;P>1889200:0→R:-1.304→I:3→J:1889975→W:4235.757→G:Return：IfEnd↓
P→桩号、R→半径、I→大里程坡度：程序中以除100（上坡为正下坡为负）、J→小里程坡度：程序中以除100（上坡为正下坡为负）、W→变坡点桩号、G→变坡点高程。