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

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回谢谢，用后评。

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高程计算程序（直线、竖曲线连算、绕中央分隔带边缘旋转超高段的单侧横坡值及设计高程计算）一．程序特点：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道路坐标高程计算程序流程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之间任一点横断面的超高横坡度及边桩高程；不计算设定的最大超高段的设定超高横坡度及边桩高程，此段需另行计算。

徕卡TS系列全站仪，内含丰富多样的机载程序，为用户完成各类测量任务提供最切实可靠的帮手！选择徕卡TS系列全站仪，不仅可以得到优质的硬件品质保证，更将得到最强大全面测量技术支持！徕卡上海技术中心专为徕卡TS 系列全站仪配置了完全按照中国测量规范和中国用户使用习惯编写的道路放样，多测回测角，导线平差，隧道测量，油罐测量等本地化机载程序！徕卡TS系列全站仪机载应用程序丰富的机载应用程序，完善的行业解决方案，全面的专业技术支持。

徕卡上海技术中心：提供专业，高效，全面的行业解决方案！复杂任务，轻松完成！机载应用程序配置表标配选配不适用当需要设站的地方没有控制点，而在可观测区域又存在已知控制点 (2个) 时，可通过自由设站快速确定测站坐标和定向，提高测量工作效率。

4自由设站快速确定两个点之间的相对位置关系，如两点间的高差，距离，方向等，适合在各种线路测量中绘制断面图等。

5 对边测量完成最基本的测量工作，通过该程序，用户能直接在屏幕上得到三维坐标信息，测量信息按作业保存，适用于测图，工程测量，以及其他需要直接得到三维坐标信息的测量工作。

1测量将已有的三维坐标信息通过仪器标定到实地去，适用于工程放样测量以及其他有设计数据的测量工作。

2放样快速测定点与线/弧之间的相对位置关系，或根据已知的相对位置关系，将点快速的放样出来，在地形图测量，工程测量中可以大大降低测量工作强度，提高工作效率。

3参考元素徕卡TS 系列全站仪除了配备丰富多样的机载程序外，为了最大限度的方便用户使用，还将在测量过程中常常用到的一些功能如隐蔽点测量，偏心测量（包括角度偏心，单距偏心，双距偏心，圆柱偏心），高程传递，自由编码，整平对中，激光指示，照明，调整测距模式等设置为快速启动选项，用户在测量过程中，可随时通过FNC 功能键调用这些功能，帮助您方便快捷的完成复杂的测量任务！常用功能快捷键：通过FNC 常用功能快捷键启动的部分功能方便快速测量目标物体的面积/体积信息，在田亩丈量，地籍测量，挖填方量测量时非常有效，实用。

FX5800计算器公路测量常用程序集2.3 版一、程序功能主要功能：采用交点法方式计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。

新版本优化：1、优化程序语句、2、取消原线元法计算，化线元法为交点法。

3、高程计算修改,4、附计算坐标及高程参数设计要素输入实例二、源程序（绿色为程序名；蓝色为输入计算器内容）红色为网友调试后修改笔误。

0.总主程序（1、坐标计算放样程序2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序）运行后按1~9数子约半秒，则选择1至9的程序，返回时，在桩号输入-1,返回选择计算类型。

输入-2,返回选择线路。

程序名：0（数子0）ClrMat:ClrVar:12→DimZ：Norm 2:Do:＂(XY=1，ZD=2 ，GC=3，GD=4，BP=5，FM=6，ZP=7，JS=8，SD=9)===>QING AN 1-9＂：Getkey→Z[3]:While Z[3]=35:Prog＂1XY”:WhileEnd:While Z[3]=36:Prog＂2ZD＂：WhileEnd: While Z[3]=37:Prog＂3GC＂：WhileEnd: While Z[3]=21:Prog＂4GD＂：WhileEnd: While Z[3]=22:Prog＂5BP＂：WhileEnd: While Z[3]=23:Prog＂6FM＂：WhileEnd: While Z[3]=31:Prog＂7ZP＂：WhileEnd: While Z[3]=32:Prog＂8JS＂：WhileEnd: WhileZ[3]=33:Prog＂9SD＂：WhileEnd:LpWhile Z[3]≠25:”XIE XIE SHI YONG”:1.主程序：一般坐标计算及放样程序程序名:1XYProg ＂DX＂:Prog＂QX＂:90→A: ＂PJ1＂?A:A→B: ＂PJ2＂?B:A→Z [1]:B→Z[9]: Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: ? D: 0→L: ＂L0＂?L:L→Z[10]: Porg＂A＂:Z[2]+Z[1] →A :A-Z[9]→E:I+Dcos(A)+Z[10]cos(E→X:J+Dsin(A)+Z[10]sin(E→Y:Prog＂XY＂: Prog＂JS＂:LpWhile Z≠-12.主程序：由大概桩号及坐标反算桩号及距离程序名:2ZDProg＂QX＂:Do: ＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: ＂XO＂?X: ＂Y0＂?Y: Porg＂B＂: Prog＂ZD＂:LpWhile Z≠-13.主程序：任意点高程计算及横坡程序名:3GCP rog＂QX＂:0→B: ＂H-B＂?B: B→Z[9]: Do: ＂KM＂?Z:Z=-1=>Stop: Z=-2=>Break:?D:Prog＂H＂:Fix 3: ＂ H=＂: Locate 6,4,H-Z [9]：＂ I=＂:Locate 6,4,I：LpWhile Z≠-14.主程序:任意桩号位置的标准路基宽度计算程序名:4GDProg＂QX＂: Do: ＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break:-1→D:Prog＂C＂:L→P：1→D: Prog＂C＂:Fix 3: ＂ LGD=＂: Locate 6,4,P：＂ RGD=＂:Locate 6,4,L：LpWhile Z≠-15、主程序:路基开挖边线及填方坡脚线放样程序程序名：5BPProg ＂DX＂:Prog＂QX＂:0.5→B: ＂TH-GD＂?B: B→Z[7]: Do:＂K M＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: “X0＂?X:＂Y0＂?Y:Z[8]→M：＂M0＂?M:M→Z[8]: Porg＂B＂:D→P :Prog＂C＂:If D<0:Then 0. 75-L→D:Else L-0.75→D: IfEnd: Prog“H”:H-0.03-Z[8] →G: Prog “W1”:If G>0:Then Goto T: IfEnd:-G→H:If H>E+F:Then L+M+N+S+C(H-E-F)+BF+AE→S:Goto 0:IfEnd:If H>E:Then L+M+N+ B(H-E)+AE→S:Goto 0:IfEnd:If H<E:Then L+M+HA→S:Goto 0:IfEnd:LbI T:If G>W：Then L+Z[7]+V+J(G-W)+IW→S:Else L+Z[7]+GI→S:IfE nd:LbI 0: Fix 2: P→D ：Abs（D）-S→T: ＂ LX=＂:Locate 6,4,T：Prog＂ZD＂:＂ TW=＂: Locate 6,4,G◢ LpWhile Z≠-16、主程序：定值放样路基桩计算填挖值程序名：6FMProg ＂DX＂:Prog＂QX＂: Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: P rog＂K＂: ?D: Porg＂A＂:Z[2]+90→A :I+Dcos(A→X:J+Dsin(A→Y:P rog＂XY＂:Prog＂JS＂:Z[8]→M:”M0”?M:M→Z[8]:Prog “H”:” T W=”:Locate 6,4,H-Z[8]: LpWhile Z≠-17、主程序：桥梁锥坡计算放样程序名：7ZPProg＂DX＂:Prog＂QX＂:＂Z0＂?Z:＂LD:Z-,Y+＂? D:Abs(D) →R: ＂LR＂?R: D→Z[7]:R→Z[10]:Z→Z[9]:Prog”C”:L→Z[10]:Prog”K”: Do:Z[10]→Y:＂L0:SZ+,DZ-＂?Y: Y=-1=>Stop:Y=-2=>Break: √(Z[7]2（1-Y2/Z[10]2）)→X：Z[9]+Y→Z: Prog”C”: If D>0:Then L+X→D:E lse –L-X→D:IfEnd:Prog”A”: Z[2]+90→A :I+Dcos(A→X:J+Dsin(A →Y:Prog＂XY＂:Prog＂JS＂: LpWhile Y≠-18、主程序：由坐标计算方位角及距离程序名：8JSProg ＂DX＂:Do:?X: X=-1=>Stop:X=-2=>Break:?Y:Prog”JS”: LpWhi le X≠-19、主程序：隧道超欠挖放样计算程序名：9SDProg＂DX＂:0.65→A:”CQHD”?A:A→Z[7]:Do:＂KM＂?Z:Z=-1=>Stop:Z =-2=>Break: Prog＂K＂: “X0＂?X:＂Y0＂?Y:Z[8]→M：＂M0＂?M:M→Z[8]: Porg＂B＂:D→Z[9]:0→D:Prog”H”:Prog”SD1”:Z[9] →D:Z[8]→M:Z[7]→X:Rcos(P→C:H+A→A:H+B→B:C+A→E:If M<E:Then R-V→S: S=0=>Goto 1:√(S2-(B-A)2)S÷Abs(S→T:Abs(D-Q)-T→T:√(T2+(M-B)2) -V-X→L:Goto 0:IfEnd:LbI 1:√((D-Q)2+(M-A)2)-R-X→L:LbI 0:Fix 2:” LX=”: Locate 6,4,L:Prog”ZD”:“ H0=”: Locate 6,4,M-H◢LpWhile Z≠-110. 交点法正算子程序(Ａ)程序名：AP÷Abs(P→W:O-T+ΠR×Abs(P)÷180+H÷2-N÷2→Q:H→C:0→M:If Z≤O-T:Then Z-O→S:G→Z[2]:Goto 1: IfEnd:If Z≤O-T+H:Then Z-O+T→S:Prog “HX”:G+WK→Z[2]:A-T→A:G→E: Goto 2:IfEnd:If Z≤Q: Then 180(Z-O+T-0.5H)÷R÷Π→S : Prog”AB”:A+R(1-Cos (S→E：B+Rsin(S→A:E→B:R→M:G+WS→Z[2]:A-T→A:G→E:Goto 2: If End:If Z≤Q+N:Then Q+N-Z→S:N→H:Prog “HX”:G+P→E:E-WK→Z[2]:F-A→A:C→H:Goto 2:IfEnd:Z-Q-N+F→S:G+P→Z[2]: LbI 1:U+Scos(Z[2]→I:V+Ssin(Z[2]→J:Ret urn:LbI 2:U+Acos(E)-WBsin(E→I:V+Asin(E)+WBcos(E→J11. 交点法反算子程序(Ｂ)程序名：B0→D:Do:Z+D→Z:Prog”A”:Pol(X-I,Y-J+×10-9:J-Z[2]→J:Isin(J→S: Icos(J→D:If M≠0:Then Pol(M-WS,D:JMΠ÷180→D:IfEnd: LpWhile Abs(D)>.001:Z+D→Z:S→D12.缓和曲线段直角坐标计算子程序(ＡB)程序名：ABH2÷R÷24-H∧(4)÷2688÷R∧(3)+H∧(6)÷506880÷R∧(5)- H∧(8)÷154 828800÷R∧(7)→A:H÷2-H∧(3)÷240÷R2+ H∧(5)÷34560÷R∧(4)- H∧(7)÷÷R∧(6)+ H∧(9)÷3158507520÷R∧(8)→B13. 计算缓和曲线段坐标增量及偏角子程序(HX)程序名：HXS-S∧(5)÷40÷R2÷H2+S∧(9)÷3456÷R∧(4)÷H∧(4)-S∧(13)÷599040÷R∧(6)÷H∧(6)+S∧(17)÷175472640÷R∧(8)÷H∧(8)→A:S∧(3)÷6÷R÷H-S∧(7)÷336÷R∧(3)÷H∧(3)+S∧(11)÷42240÷R∧(5)÷H∧(5)-S∧(15)÷÷R∧(7)÷H∧(7)+S∧(19)÷3530097000÷R∧(9)÷H∧(9)→B:90S2÷Π÷R÷H→K:If S=0:Then 0→M:Else RH÷S→M:IfEnd14．高程计算子程序（H）程序名：HProg “S1”:N-I→A:A÷Abs(A→W:R×Abs(A÷2→T:If Z<C-T:Then G+ I(Z-C→H:Goto 0:IfEnd:If Z<C+T:Then G-TI+(I+(Z-C+T)W÷2÷R)×(Z-C+T→H:Goto 0: IfEnd:N→I: G+I(Z-C→H:LbI 0:If D=0:Then H→H:Return:Else Prog “I”:H+I(Abs(D)-K→H:IfEnd15.高程超高计算横坡子程序（I）程序名：IProg “I1”：If S=0:Then M→I: Return:Else If W=1:Then ((N-M)×(Z-C)÷S+M→I:Return:Else (((3((Z-C)÷S)2-2((Z-C)÷S)∧(3))×(N-M))+M→I:IfEnd:16．路基宽度子程序程序名：C1→S: Prog “G1”:Z-C→E:(B-A)E÷S+A→L17：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：JSZ[5]→K：Z[6]→L:Pol(X-K, Y-L:IF J<0:Then J+360→J:IFEnd:Int(J) +0.01Int(60Frac(J))+0.006Frac(60Frac(J→J: Fix 4:” FWJ=”: Lo cate 6,4,J：Fix 3:” S=”:Locate 6,4,I◢如果要显示度分秒，可将粉色部分去掉，后面的改成：“FWJ=”：J►D MS◢” S=”:Locate 6,4,I◢18．导线点子程序（DX）程序名：DXZ[5]→K:Z[6]→L:“XZ”?K:”YZ”?L:K→Z[5]:L→Z[6]19．线路选择子程序(线路选择输0时。

5800公路线路计算万能程序本程序以高斯四节点法为计算内核,多条线路正反算,中桩,边桩高程计算,超高计算,超高缓和计算,加宽计算,加宽缓和计算,边坡开口线计算,挡土墙坡脚线计算，考虑了中间绿化带的影响，适用与国家高速公路至乡村四级公路计算和放样，路基路面工程可以直接得出中边桩的设计三维坐标，去掉加宽和超高影响的计算困难，边坡和坡脚线计算可直接在边坡上提取坐标带入程序，经过所有设计因素的综合，得出更改边距并显示修改偏差后的坐标．反算速度明显提高,只需要3秒.程序无错，可放心输入，另本程序可以增加隧道超欠挖计算子程序,非常方便,因为每个隧道的断面数据不一样,所以在此没有明确写出.计算器主程序：ZHU-CHENG-XULbi0:“1，ZS=FS，2ZS，3FS，4XY＝＞SG，5。

”？U:U=1＝＞Prog”ZS-FS”: 进入公路三维程序U=2＝＞Porg”ZS”: 进入坐标正算程序U=3＝＞Porg”FS”: 进入坐标反算程序U=4＝＞Porg”XY ＝＞SG”: 进入大地坐标转施工坐标程序…………Goto0:说明：计算器总的主程序，进入选择各种分支计算程序。

1为公路三维计算，2为普通正算，3为普通反算，4为大地坐标转施工坐标。

选择错误重新选择。

此程序可以不用输入，只为给大家一个思路,可以把计算器所有程序集中到一个主程序内管理.公路三维部分正反算选择程序：ZS-FSDeg: //设置角度模式20→DimZ: //扩展变量“1LZ＝＞XY，2XY＝＞LZ,3BIANPO-FY”？U： //正反算选择，正算选1，反算选2,坡口坡脚选3If U=1: ThenProg”ZS-XH”:IfEnd: //进入正算循环主程序IfU=2:Then Prog”F S-XH”:IfEnd: //进入反算循环主程序IfU=3:ThenProg”BIANPO-XH”:IfEnd: //进入边坡开挖主程序正算循环主体程序ZS-XH“1PT-2SJ”？W： //普通计算和设计边距计算选择“XL-XZ“？U： //选择线路 1～NIf W=1: Then //运行普通计算模式边踞自由输入Lbi0:”L=”?L:”Z=”?Z: //输入桩号和边距Porg”ZS-XH-1“：Goto0:IfEnd:运行正算循环子程序If W=2:Then //运行设计计算模式边距按设计输入Lbi1:”L=”? L： //输入桩号Porg”0。

道路桩算中边桩坐标高程计算程序道路桩是公路工程中的一种常用设施，用于标示道路的里程或其他信息。

在道路桩的设计施工过程中，需要计算各个中边桩的坐标和高程。

下面是一个用于计算道路桩坐标和高程的程序，进行了详细的说明。

```pythonimport mathdef calculate_coordinate(starting_coordinate, length, angle): """计算中边桩的坐标starting_coordinate: 起始坐标点，格式为(x, y)length: 桩与起始点之间的距离angle: 桩的方向角度，0度为正北方向，顺时针递增return: 计算得到的中边桩坐标，格式为(x, y)"""x = starting_coordinate[0] + length *math.sin(math.radians(angle))y = starting_coordinate[1] + length *math.cos(math.radians(angle))return (x, y)def calculate_elevation(starting_elevation, gradient, length):"""计算中边桩的高程starting_elevation: 起始高程gradient: 高程的斜率，单位为% (百分比) ，即千分之一length: 桩与起始点之间的距离return: 计算得到的中边桩高程"""elevation = starting_elevation + gradient * lengthreturn elevationdef main(:starting_coordinate = (100, 200) # 设置起始坐标点starting_elevation = 300 # 设置起始高程gradient = 0.5 # 设置高程的斜率为0.5%interval = 50 # 设置桩之间的距离为50米total_stakes = 10 # 设置需要计算的桩的总数为10个print("中边桩坐标和高程计算结果：")print("起始坐标点：", starting_coordinate)for i in range(1, total_stakes + 1):length = i * interval # 计算桩与起始点之间的距离angle = 45 + i * 10 # 计算桩的方向角度，每个桩相对于起始点逆时针旋转10度coordinate = calculate_coordinate(starting_coordinate, length, angle) # 计算中边桩坐标elevation = calculate_elevation(starting_elevation, gradient, length) # 计算中边桩高程print("桩{}：坐标：{}，高程：{}".format(i, coordinate, elevation))if __name__ == "__main__":main```以上程序使用了Python语言实现了计算道路桩坐标和高程的功能。

道路中边桩坐标计算道路中边桩坐标计算是指在道路工程中，通过测量和计算确定道路边边坡上的边桩位置坐标。

边桩是道路上的重要控制点，用于标记路线的位置、限制土方开挖和边坡的外形。

在道路设计和施工中，准确计算道路边桩坐标非常重要，可以确保道路的质量和施工进度。

道路边桩坐标计算主要分为以下几个步骤：1.建立坐标系：道路边坡边桩一般使用直角坐标系进行计算。

首先在道路起点确定一个任意点为原点，然后建立水平坐标轴和垂直坐标轴。

水平坐标轴沿着道路的纵向延伸，垂直坐标轴与水平坐标轴相互垂直。

确定好坐标系后，可以根据测量数据进行计算。

2.测量边坡信息：在进行边桩坐标计算之前，需要先进行边坡的测量。

常用的测量方法包括经纬仪测量、GPS测量和全站仪测量。

通过这些测量手段，可以获取到边坡的各个控制点坐标、高程和坡度等信息。

3.计算边桩位置：根据测量数据，可以利用三角法或坐标几何方法来计算边桩的位置坐标。

三角法计算适用于相对简单的平面布置，通过边坡控制点与其它已知点之间的角度和距离关系，计算出边坡上的边桩位置坐标。

坐标几何法计算适用于复杂的平面和空间布置，通过建立边坡控制点之间的坐标方程组，利用线性代数方法求解控制点的坐标。

4.检查和修正：在进行边桩位置计算之后，需要对计算结果进行检查和修正。

检查主要是验证计算过程中的数据和计算方法是否正确，确保计算结果的准确性。

修正主要是根据实际情况对计算结果进行微调，使其更符合实际施工需要。

5.绘制边桩平面图：在计算和修正边桩位置之后，可以根据计算结果绘制边桩平面图。

边桩平面图是道路施工中重要的参考资料，可以清晰地标示出边坡上的边桩位置、编号和高程等信息，方便施工人员进行操作。

总之，道路边桩坐标计算是道路工程中的一项重要任务，需要通过测量和计算确定边桩的位置坐标。

准确的边桩坐标计算能够确保道路质量和施工进度，是道路设计和施工的基础工作。

公路纵断面高程算法Filename:******（自定主程序名）N-M→P：Abs(P)÷P→S:Abs(P)×R÷2→T:If L<D-T:Then C+(L-D)M→H:Ifend↙判断输入点是否位于曲线的小里程桩号直线段；If L>D-T:Then C-MT+(M+(L-D+T)S÷2÷R)×(L-D+T)→H:Ifend↙判断输入点是否进入曲线段；If L≥D+T:Then C+(L-D)N→H:Ifend↙判断输入点是否位于曲线的前进里程桩号直线段；H-E-KI→H：“H=”：H◢5、公路纵断面数据程序每个纵断面由纵坡和竖曲线组成，程序中每一个变坡点计算范围是从竖曲线前的纵坡任意桩号开始到竖曲线后纵坡上的任一桩号结束。

Filename:******（自定子程序名）Lbl 0: “Dh”? :E”L=”?L:”I=”?I:”K=”?K↙If L>****(曲线段小里程桩号之前的直线段任一桩号):Then****（变坡点高程）→C: ****（变坡点桩号）→D: ****（变坡点小里程段纵坡坡度）→M:I****（变坡点小里程段纵坡坡度）→N: ****（竖曲线半径）→R: ****（变坡点桩号）→C: Ifend↙依次输入各变坡点设计参数；If L>****(曲线段小里程桩号之前的直线段任一桩号):Then****（变坡点高程）→C: ****（变坡点桩号）→D: ****（变坡点小里程段纵坡坡度）→M:I****（变坡点小里程段纵坡坡度）→N: ****（竖曲线半径）→R: ****（变坡点桩号）→C: Ifend：Prog“****（主程序名）”: Goto06、使用说明“Dh”提示使用者输入所求点距离路面的厚度，“L=”，输入所求点桩号,”I”=表示输入路面横坡值，“K=”表示输入路面某点至中桩距离，均为正值。

CASIO-fx4800P型计算器连续计算线路高程、坐标及放样程序【简述】为了适应现场快速、准确、灵活的放样要求，作者根据线路施工测量特点，运用计算器的编程功能，使整条线路的施工测量计算数据能连续快速的计算，只要把整条线路各个交点处的计算要素输入子程序中，你便拥有整条线路的“数据库”。

在忙碌的施工现场，你不必携带大量的施工图和资料来查找平面、纵断面的设计要素，更不必担心设计要素的输入错误，从而使得计算和放样轻松、方便、快捷。

【计算范围】坐标部分包括：各等级公路和高速路的直线段、圆曲线段、加对称缓和曲线的圆曲线段中、边桩坐标及放样计算。

高程部分包括：各等级公路和高速路的直线段、竖曲线段、缓和超高段中、边桩高程及放样计算。

一、坐标及放样程序【起算数据】：交点里程桩号、交点坐标、前直线方位角、交点转角、圆曲线半径、缓和曲线长（一）主程序：XYFY2Fix4M"Xc=":P"Yc=" ＇如须放样输入测站坐标值,否则输入0Lbl0{HS}:H"K0+0":S"B=(-B,0,B)":Prog"A" ＇变量输入和声明S=0=>E=0:≠>E=90 ＇求边桩坐标时的偏角值判定L=πRN÷180+V ＇含有缓曲线的曲线总长T=(V÷2-V^3÷(240R^2))+(R+(V^2÷(24R)-V^4÷(2688R^3)))tan(N÷2)  ＇切线长A=Q-T:B=A+V:D=A+L:C=D-V ＇A-ZH(ZY)点桩号,B-HY点桩号,C-YH点桩号,D-HZ(YZ)点桩号Rec(T,F+180) ＇求ZH(ZY)点的坐标增量Z[1]=W+I:Z[2]=K+J ＇ZH(ZY)点坐标值Rec(T,F+GN) ＇求HZ(YZ)点的坐标增量Z[3]=W+I:Z[4]=K+J ＇HZ(YZ)点的坐标值Lbl1U=S÷(Abs(S+10E-19)):S=AbsS ＇左右偏角每件判定H<A=>Goto2: ≠> ＇第一直线上坐标计算判定H<B=>Goto3: ≠> ＇第一缓和曲线上坐标计算判定H<C=>Goto4: ≠> ＇净圆曲线上坐标计算判定H<D=>Goto5: ≠> Goto6⊿⊿⊿⊿ ＇第二缓和曲线和第二直线上坐标计算判定Lbl2Rec(Q-H,F+180) ＇第一直线上中桩坐标增量计算X=W+I:Y=K+J ＇中桩坐标值计算Rec(S,F+180-(180-E)U) ＇第一直线上与中桩同一断面的边桩增量计算X=X+I:Y=Y+J ＇边桩坐标值计算S=SU ＇边长条件判定Goto8Lbl3 ＇进入第一缓曲线段计算Z=H-A ＇待求点至ZH点的距离O=90Z^2÷(πRV) ＇所求点缓曲线对应的圆心角X=Z-Z^5÷(40R^2V^2)+Z^9÷(3456R^4V^4) ＇缓曲线上ZH点至待求的支距X坐标Z=Z^3÷(6RV)-Z^7÷(336R^3V^3)+Z^11÷(42240R^5V^5) ＇缓曲线上ZH点至待求点的支距Y坐标Lbl7Rec(X,F)X=Z[1]+I:Y=Z[2]+JRec(Z,F+90G) ＇把中桩支距坐标转换成测量统一坐标X=X+I:Y=Y+JRec(S,F+O G+EU) ＇曲线边桩坐标增量计算X=X+I:Y=Y+J ＇坐标计算结果S=SU ＇边长条件Goto8Lbl4 ＇进入主圆计算部分Z=H-A-V÷2 ＇曲线上待求点到HY点的里程O=180Z÷(Rπ) ＇待求点方位角所对应的圆心角X=Rsin O+(V÷2-V^3÷(240R^2))Z=R(1-cos O)+(V^2÷(24R)-V^4÷(2688R^3)) ＇主圆部分待求点支距坐标XY Goto7Lbl5 ＇进入第二缓和曲线计算Z=D-H ＇曲线上待求点到HZ点的里程O=90Z^2÷(πRV) ＇待求点方位角所对应的圆心角X=Z-Z^5÷(40Z R^2V^2)+^9÷(3456R^4V^4)Z=Z^3÷(6RV)-Z^7÷(336R^3V^3)+Z^11÷(42240R^5V^5) ＇待求点支距坐标XY Rec(X,F+GN+180)X=Z[3]+I:Y=Z[4]+J ＇把中桩支距坐标转换成测量统一坐标Rec(Z,F+GN+180-90G)X=X+I:Y=Y+JRec(S,F+GN+180-O G-(180-E)U) ＇曲线边桩坐标增量计算X=X+I:Y=Y+J ＇坐标计算结果S=SUGoto8Lbl6 ＇进入第二直线段计算部分Rec(H-D+T,F+GN) ＇中桩坐标增量计算X=W+I:Y=K+J ＇中桩坐标计算结果Rec(S,F+GN+EU) ＇边桩坐标增量计算X=X+I:Y=Y+J ＇边桩坐标计算结果S=SUGoto8Lbl8X=X◢ ＇显示坐标计算结果Y=Y◢M≠0=>Goto9: ≠>Goto0 ⊿Lbl9 ＇进入放样部分计算Pol(X-M,Y-P) ＇增量计算J<0=>J=J+360: ≠>J=J ⊿J"A"=Int J+0.01Int(60Frac J)+0.006Frac(60Frac J) ◢ ＇方位角计算结果（此显示值为度分秒格式）I"L"=I◢ ＇极距计算结果Goto0∙(二)子程序:AH≤ZY2(ZH2)=>Q=JD1:W=X1:K=Y1:R=R1:F=F0:N=N1:V=Ls1:G=1(-1):=>H≤ZY3(ZH3)=>Q=JD2:W=X2:K=Y2:R=R2:F=F1:N=N2:V=Ls2:G=1(-1):=>H≤ZY4(ZH4)=>Q=JD3:W=X3:K=Y3:R=R3:F=F2:N=N3:V=Ls3:G=1(-1):=>H≤ZY5(ZH5)=>Q=JD4:W=X4:K=Y4:R=R4:F=F3:N=N4:V=Ls4:G=1(-1):=>……………………………H≤ZY n+1(ZH n+1)=>Q=JD n:W=X n:K=Y n:R=R n:F=F n-1:N=N n:V=Ls n:G=1(-1)注:H—待求点桩号ZY n+1(ZH n+1)—后曲线起点桩号 Q—本曲线交点桩号 W—本曲线交点X坐标K—本曲线交点Y坐标 R—本曲线内圆曲线半径 F—前直线方位角 N—本交点转角V—本曲线内缓和曲线长 G—线路转向符,左转角-1,右转角为+1二、高程及放样程序【起算数据】：变坡点桩号A、变坡点高程B、前后纵坡C D、竖曲半径R、横坡度F、最大超高横坡度G、ZH点桩号、YH点桩号、HZ点桩号、施工层厚度N、视线高W （一）主程序：GCFYW"SXG="：N ＇常量输入（视线高程、施工层厚度）Lbl 1｛LО｝:L"K0+0"：О"B=" :Prog"B" ＇变量输入及声明K=C-D ＇坡度差及竖曲线偏角K>0=>J=-1:≠>J=1⊿ ＇凹凸竖曲线判断条件T=Abs(RK)÷2 ＇竖曲线切线长,如需显示则在后面加上◢H=A-T ＇竖曲线起点ZY桩号,如需显示则在后面加上◢X=A+T ＇竖曲线终点YZ桩号,如需显示则在后面加上◢M=L-A ＇待求点至变坡点的距离L≤H=>P=B+MC-N-W: ≠> ＇前纵坡直线段中桩高程计算L≤A=>P=B+MC+J(T-AbsM)2÷(2R)-N-W: ≠>  ＇前纵坡竖曲线中桩高程计算L≤X=>P=B+MD+J(T-AbsM)2÷(2R)-N-W: ≠> ＇后纵坡竖曲线中桩高程计算L>X=>P=B+MD-N-W⊿⊿⊿⊿⊿ ＇后纵坡直线段中桩高程计算E=0=>Goto 2 ＇直线部分中、边桩计算判断条件≠>L≤E=> Goto 2 ＇直线部分中、边桩计算判断条件≠>L>V=> Goto 2 ＇直线部分中、边桩计算判断条件≠>L>E=> Goto 3 ＇前缓曲超高部分中、边桩计算判断条件≠> L>U=> Goto 4⊿⊿⊿⊿ ＇后缓曲超高部分中、边桩计算判断条件Lbl 2O=0=>Z“H”=AbsP◢＇显示直线部分中、边桩高程计算结果≠>Y“HB”=Abs(P-OF)◢不需放样显示高程,否则显示放样水准尺计数⊿Goto 1Lbl 3S=（L-E）（F+G）÷（V-U）-F  ＇前缓曲线超高横坡度计算S≤F=> Goto 5：≠>S≤G=> Goto 6 ＇超高起点(终点)至零界面、零界面至全超高及全超高≠> Goto 7 ⊿⊿ 部分的计算判断条件Lbl 4S=（V-L）（F+G）÷（V-U）-F  ＇后缓曲线超高横坡度计算S≤F=> Goto 5：≠>S≤G=> Goto 6 ＇超高起点(终点)至超高变坡零界面、零界面至全≠> Goto 7 ⊿⊿ 超高、全超高部分计算判断条件Lbl 5O=0=>Z“H1”=AbsP◢＇超高起点(终点)至超高变坡零界面中、边桩高程≠>Y“H-D1”=Abs(P-OF)◢计算结果显示Q“H-G1”=Abs(P+OS)◢⊿Goto 1Lbl 6O=0=>Z“H2”=AbsP◢＇超高变坡零界面至全超高中、边桩高程≠>Y“H-D2”=Abs(P-OS)◢计算结果显示Q“H-G2”=Abs(P+OS)◢⊿Goto 1Lbl 7O=0=>Z“H3”=AbsP◢＇全超高中、边桩高程计算结果显示≠>Y“H-D3”=Abs(P-OG)◢Q“H-G3”=Abs(P+OG)◢⊿Goto 1∙∙注：W“SXG”-视线高N-施工层厚度L"K0+0"-待求点桩号О"B="-中桩至边桩距离（二）子程序：BL≤ZY2=>A=JD1:B=H1:C=I0:D=I1: R=R1:F=I h:E=ZH1:U=YH1:V=HZ1:G=I max1 :≠>L≤ZY3=>A=JD2:B=H2:C=I1:D=I2: R=R2:F=I h:E=ZH2:U=YH2:V=HZ2:G=I max2 :≠>L≤ZY4=>A=JD3:B=H3:C=I2:D=I3: R=R3:F=I h:E=ZH3:U=YH3:V=HZ3:G=I max3 :≠>L≤ZY4=>A=JD3:B=H3:C=I2:D=I3: R=R3:F=I h:E=ZH3:U=YH3:V=HZ3:G=I max3 :≠> ……………………L≤ZY n+1=>A=JD n:B=H n:C=I n-1:D=I n: R=R n:F=I h:E=ZH n:U=YH n:V=HZ n:G=I maxn注:ZY N+1:-下一个竖曲线起点桩号（如：变坡点2的计算范围为前竖曲线终点YZ1至后竖曲线起点ZY3，则在程序中“L≤ZY3”就应输入ZY3的里程桩。

GC1(程序名)(只算高程不算超高)1 Lbl 02 ?V:?Q:?W:?D：V=1 => Q+20→Q:Q◢3 Goto 1(要得到10M一个桩的高程,把20改成10就可.或则在运行时取v=0即可，就是每次要输入桩号)4 Lbl 15 Prog “G”（和算超高的程序公用一个子程序）6 Prog “SQX1”7 Goto 0主程序2SQX1(程序名)1 Abs(R*(P-J)/2) →T2 ((P-J)/Abs(P-J))*R→R3 (Q-A) →U4 Q≤(A-T)=> H+JU →Z:Goto 15 Q≤(A+T) => H+JU+( A-T-Q)2(平方)/(2R) →Z:Goto 16 Q>(A+T)=> H+PU→Z7 Lbl 18 “H=”: Z◢:D=0=> Goto 7:9 Z-(D-1)*0.0 2→O: “HB=”: O◢((D-1)中，把１改成0．５则中央分隔带为１米.默认中央分隔带为2米)10 Lbl 7:Return子程序1（竖曲线引导程序）G(程序名)1 W=1=> Prog “G1”W=2=> Prog “G2”子程序（竖曲线要素）G1(程序名左线)1 Goto 02 Lbl 0：if Q ≤49800（49800为第一竖曲线终点桩号）=>then 11500 →R (竖曲线半径,输入正值): 49350→A（竖曲线中心桩号）: 452.85→H(变坡点高程): -0.00731→ J（变坡点前纵坡）: -0.02734 →P（变坡点后纵坡）:Return: Goto 1:ifEnd3 if Q ≤50363.71=> 15357.67 →R: 50100 →A: 432.345 →H: -0.02734 →J: 0.007 →P: Return: Goto 1:ifEnd4 if Q ≤51070=> 11459.846→R: 50612.96→A: 435.936→H: 0.007→J: -0.0 365→P: Return: Goto 1:ifEnd5 if Q ≤53467.5=>16000→R: 51320→A: 410.129→H: -0.0365→J: -0.0055→P: Return: Goto 1:ifEnd6 Lbl 17 Return子程序（竖曲线要素）G2(程序名右线)1 Goto 02 if Q ≤49836.28（49836.28为第一竖曲线终点桩号）=> 12000 →R (竖曲线半径,输入正值): 49373→A（竖曲线中心桩号）: 452.62 → H(变坡点高程): -0.00709→J（变坡点前纵坡）: -0.02789 → P（变坡点后纵坡）: Goto 1:ifEnd3 if Q ≤50363.7=> 15116.168→R: 50100→A: 432.344→ H: -0.02789 →J: 0. 007 → P: Return: Goto 1:ifEnd4 if Q ≤51072=> 11459.846→R: 50612.96→A : 435.935→ H: 0.007 →J: -0.0365 → P: Return: Goto 1:ifEnd5 if Q ≤53429=> 16000→R: 51320→A: 410.128→ H: -0.0365 →J: -0.0055 → P: Return: Goto 1:ifEnd6 if Q ≤54180=> 18000→R: 53760→A: 396.708→ H: -0.0055 →J: -0.038→ P: Return: Goto 1:ifEnd7 Lbl 18 Return中央分隔带为2米。