道路坐标计算程序
坐标计算程序及坐标计算公式
坐标计算程序及坐标计算公式一、坐标计算公式直线段：中桩公式：x=x1+(z-c)*cosay=y1+(z-c)*sina边桩公式：x=x1+(z-c)*cosa±d*cos(a-90)y=y1+(z-c)*sina±d*sin(a-90)说明： x1——起点x坐标，y1——起点y坐标，z——计算点桩号， c——起点桩号，a——方位角，d——距中桩距离。
“±”左边桩为“+”，右边桩为“-”。
二、方位角计算公式1、直线段方位角图纸提供。
2、若为单一圆曲线时，起点用直线段方位角图纸提供。
3、若为缓和曲线时：第一段缓和曲线方位角为直线段方位角图纸提供；第二段圆曲线起点方位角a1=a0±Ls*180/2∏r。
第三段缓和曲线方位角a2=a1±L*360/2∏r。
（a0为直线段方位角，Ls为缓和曲线长度，L为圆曲线长度，r为圆曲线半径，“±”右偏角为“+”、左偏角为“-”。
）三、5800计算器坐标程序坐标程序由1个主程序、5个子程序和1个数据库组成进入计算器编程模式（5：PROG—1：NEW新建程序名—3：EDIT），输写程序。
1、主程序adminFix 3（回车换行）Lb1 0:150→DimZ:“ZX→0,A→1,B1→2,B2→3,C→4,D→5,CR→6”?N:N→Z[149]:Prog “DAT2”：“ZS=>1，FS=>2”?N:If N=1:Then Goto 1:Else N=2=>Goto 2:IfEnd:Goto 0:Lb1 1:?S:“ANG=”?M:?Z:S=0=>Goto 0:0→N（回车换行）Lb1 5:Isz N:If S≤Z[8N+2]+Z[8N+4]:Then N→J:Prog“DAT1”:Else Goto5:IfEnd（回车换行）Abs(S-0)→W:Prog“SUB1”：“XS=”：X◢“YS=” ：Y◢“FWI=”：F-M→F：If F≤360:Then F→F:Else F-360→F:IfEnd:F►DMS◢Goto4（回车换行）Lb1 2:?X:?Y:“ANG=”？M：M→Z[148]：If M＜90:Then 180-M→M:IfEnd（回车换行）X-Z[4]:Y-Z[5]:X=0=>Goto 0:0→N（回车换行）Lb1 A:Isz N:N→Z[150]:Z[8N+3]-M→A:Z[8(N+1)+3]-M→B:Prog “ZX1”:If Z[6]×Z[7]≤0:Then N→J:Prog “DAT1”:Goto B:IfEnd（回车换行）Z[8N+3]+M→A:Z[8(N+1)+3]+M→B:Prog “ZX1”:If Z[6]×Z[7] ≤0:Then N→J:Prog “DAT1”:Goto B:Else Goto A: IfEnd（回车换行）Lb1 B:Prog “SUB2” （回车换行）Z[150]→N:0+W→S:If S>Z[8N+2]+Z[8N+4]+.001:Then Goto A: IfEnd（回车换行）If N>13:Then 0→N: Goto A: IfEnd（回车换行）If Z[148]>90: Then S+2Zsin(M-90) →S: IfEnd:“S=”:S◢“Z=”: Z◢“OK→2,NO→1”?N:If N=1: Then Z[150]→N: Goto A:Else Goto 2: IfEnd（回车换行）Lb1 4 :0→J:“DIST=”：Pol （X－Z[1]，Y－Z[2]）→I◢ J-F：If F<0：Then F+360→F：IfEnd：“FW=”： F►DMS◢ Goto 12、子程序DAT1Z[8J]→U：Z[8J+1]→V：Z[8J+2]→O：Z[8J+3]→G：Z[8J+4]→G：Z[8J+4]→H：Z[8J+5]→P：Z[8J+6]→R：Z[8J+7]→Q：1÷P→C：（P－R）÷（2HPR）→D：（180÷∏）→E：Return3、子程序ss“A”？→A：If A<0:Then 10A◢Else 9A◢IfEnd:Ans×1.05（回车）4、子程序SUB1.1184634425→A：.2393143352→B：.28444444444→N：.046910077→K：.2307653449→L：.5→Z[3]:U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Ncos(G+QEZ[3]W(C +Z[3]WD))+Bcos(G+QE(1-L)W(C+(1-L)WD))+Acos(G+QE(1-K)W(C+(1-K)WD)))→X:V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Nsin(G+QEZ[3]W(C+Z[3 ]WD))+Bsin(G+QE(1-L)W(C+(1-L)WD))+Asin(G+QE(1-K)W(C+(1-K)WD))) →Y：G+QEW(C+WD)+M→F：X+Zcos（F）→X：Y+Zsin（F）→Y: Return5、子程序SUB2G-M→T：Abs（（Y-V）cos（T）-（X-U）sin（T））→W：0→Z：Lb1 0：Pros “SUB1” （回车换行）T+QEW（C+WD）→L：（Z[5]-Y）cos（L）-（Z[4]-X）sin（L）→Z：If Abs（Z）<1×10∧(-4):Then Goto 1:Else W+Z→W: Goto 0: IfEnd（回车换行）Lb1 1:0→Z:Prog“SUB1”：（Z[5]-Y）÷sin（F-2M+180）→Z：Return6、子程序ZX1（Z[5]-Z[8N+1]）cos（A）-（Z[4]-z[8N]）sin（A）→Z[6]：（Z[5]-Z[8（N+1）+1]）C5]-Z[8（N+1）+1]）cos（B）-（Z[4]-Z[8（N+1）]sin（B）→Z[7]：Return7、数据库DAT2If N=0:Then起点X坐标→Z[8]：起点Y坐标→Z[9]：起点桩号→Z[10]：起点坐标方位角→Z[11]：曲线长度→Z[12]：起点半径→Z[13]：终点半径→Z[14]：曲线转向（左转为“-1”右转为“+1”直线为“0”）→Z[15]：Return IfEnd（依次把所有平曲线要素输完）If N=1:Then起点X坐标→Z[8]：起点Y坐标→Z[9]：起点桩号→Z[10]：起点坐标方位角→Z[11]：曲线长度→Z[12]：起点半径→Z[13]：终点半径→Z[14]：曲线转向（左转为“-1”右转为“+1”直线为“0”）→Z[15]：Return IfEnd（依次把所有平曲线要素输完）说明：1、所有路线都是从Z[8]开始。
公路任意点坐标计算公式,基本上包含公路中所有的线形,满足你的好奇心!
公路道路上有关P 点的坐标计算：在公路施工过程中，需要进行放样的点位，不外乎两种情况：一种是该点位于公路中心线上，即公路中桩，另一类则是点位在中线以外，位于某个中桩的横断方向上。
这样无论哪种情况，需要放样的点的桩号首先是已知的。
以下就这两种情况，对公路点位放样计算进行一下阐述，讲述一下坐标计算方法。
一：P 点位于直线段上，各桩坐标计算： 1、 P 点在直线上各中桩坐标计算当需要放样的P 点位于直线上时，有两种情况：位于YZ 到ZY 或者HZ 到ZH 之间， 或者位于公路QZ 和ZH （ZY ）之间，其计算方法相同，公式如下：[公式（1）]X p =X 0+l cosA i-1,i Y p =Y 0+l sin A i-1,I式中， （X 0 ,Y 0） 为该段直线的起点（可以是YZ ，HZ 或QZ ）坐标 l 为要求计算的P 点与该直线段起点的桩号差（距离）。
2、 P 点位于横断面上，其所对应的中桩位于直线上时：X p =X z +Dcos （A i-1,i ±90） Y p =Y z +Dsin （A i-1,i ±90）式中， （X z ，Y z ）为P 点对应的中桩的坐标 P 点位于左幅时，取“—”反之取“+” D 为P 点到直线上的法线距离二、P 点位于单圆曲线上，各桩坐标计算：1、当需要放样的P 点位于单圆曲线上，其中桩坐标计算如下：[公式（2）]式中， （X 0，Y 0）为ZY 点坐标，R 为圆曲线半径 l 为P 点与ZY 点的桩号差（弧长） 当路线左转时，取“—”，反之取“+”2、P 点位于横断面上，其所对应的中桩位于单圆曲线上时：式中，第一个“”号，路线左转取“—”，右转取“+”第二个“”号，P 点位于左幅时，取“—”，反之取“+”三、P 点位于带缓和曲线的圆曲线上，各桩坐标计算：当P 点位于带缓和曲线的圆曲线时，分为以下三种情况： 第一种情况，ZH 到HY 段，中桩和边桩计算： 1、ZH 到HY 段，中桩坐标计算：[公式（3）]式中，c = l -(X 0，Y O )为ZH 点坐标l 为P 点与ZH 点桩号差，L s 为缓和曲线长 当路线左转时，取“—”，反之取“+”2、ZH 到HY 段，P 点对应的中桩位于带缓和曲线的圆曲线上：式中，（Xz ，Yz ）为P 点对应的中桩坐标l 为P 点对应的中桩与ZH 点桩号差，Ls 为缓和曲线长 第一个“”号，路线左转取“—”，右转取“+” 第二个“”号，P 点位于左幅时，取“—”，反之取“+” 第二种情况，HY 到YH 段，中桩和边桩计算：1、HY 到YH 段，中桩坐标计算：[公式（4）]式中，(X 0，Y O )为HY 点坐标l 为P 点与HY 点桩号差，Ls 为缓和曲线长 当路线左转时，取“—”，反之取“+”2、HY 到YH 段，P 点对应的中桩位于带缓和曲线的圆曲线上：式中，（Xz ，Yz ）为HY 点坐标l 为P 点对应的中桩与HY 点桩号差，Ls 为缓和曲线长 前两个“”号，路线左转取“”，右转取“” 第三个“”号，P 点位于左幅时，取“—”，反之取“+”第三种情况，YH 到HZ 段，中桩和边桩计算： 1、YH 到HZ 段，中桩坐标计算：[公式（5）]c = l -(X 0，Y O )为HZ 点坐标l 为HZ 点与P 点桩号差，L s 为缓和曲线长 当路线左转时，取“+”，反之取“—”2、YH 到HZ 段，P 点对应的中桩位于带缓和曲线的圆曲线上：式中，（Xz ，Yz ）为P 点对应中桩坐标l 为HZ 点桩号与P 点对应的中桩桩号差，Ls 为缓和曲线长 第一个“”号，路线左转取“+”，右转取“—” 第二个“”号，P 点位于左幅时，取“—”，反之取“+”四、复曲线上各点的坐标计算：1、 当复曲线中间不设缓和曲线时，采用以下方法进行计算：对于第一缓和曲线、第一段圆曲线以及第二缓和曲线，分别用公式（3）、公式（4）和公式（5）计算；对于第二段圆曲线，用公式（2）计算，计算时将公式（2）中的换成，l 1，L s1分别为第一圆曲线和第一缓和曲线长度，左转取“—”，右转取“+”。
公路逐桩坐标计算程序
2 )sinαAB +(
P 点为顺时针方向时，其方位角为 αAB+900 P 点为逆时针方向时，其方位角为 αAB−900
第一段缓和曲线时：以直缓点（ZH）为起点计算，αAB 为 ZH 点的坐标方位角，L 为 P 点距 ZH 点的距离。 第二段缓和曲线时：以缓直点（HZ）为起点计算，αAB 为 HZ 点坐标方位角的反 方向即 HZ 点方位角加 180 度，L 为 P 点距 HZ 点的距离，加减 90 度刚好与第一 段缓和曲线相反。图如下：
缓和曲线转角公式：β
=
L2
2RLs
（2） 边桩坐标计算公式
左侧
XA=XP+T1cos(αAB± β-900) YA=YP+T1sin(αAB± β-900)
右侧
XB=XP+T2cos(αAB± β+900) YB=YP+T2sin(αAB± β+900)
*第二段缓和曲线计算边桩坐标时， 注意加减 90 度时， 与第一段缓和曲线相反。
2、 缓和曲线段 （1） 中桩坐标计算公式
Xp=X1+(L − Yp=Y1+(L −
L5 40R 2 Ls L5 40R 2 Ls
2 )cosαAB+(
L3 6RLs L3 6RLs
− −
L7 336R 3 ������s 3 L7 336R 3 ������s 3
)sin(αAB±900) )sin(αAB±900)
右侧
XB=XP+T2cos(αAB± β+900) YB=YP+T2sin(αAB± β+900)
第二章
公路导线测量计算
1
公路导线测量为附合导线测量，按路线前进方向测量右角。β
公路坐标正反算程序
RAπ÷180-(B+C) ÷2→Q↙
(R+(Z[6]+Z[7])÷2)÷cos(A÷2)-R→E↙
K-S→Z[1] ↙↙
Z[1]+B→Z[2] ↙↙
Z[2]+Q÷2→Z[3]↙
Z[1]+L-C→Z[4]↙
Z[4]+C→Z[5]↙
子程序2名： JDB
X-Scos(M)→Z[19]:
(Abs(K-O)) →J：Prog"SUB1"：
(F-M) →F
Return
2. 反算主程序 GSFS
Lbi 0：?X：?Y：X→Z[2]：Y→Z[3]：
“QDXO”？I："QDY0"?S:"QDLC"?O:"QDFWJ "?G："ZDLC"?H："QDR"?P："ZDR"?R：”Q(Z=-1 ZX=0 Y=1)” ?Q:
M+90WL2 ÷(BRπ)→Z↙
Goto 5↙
LbI 2 : If P＞Z[4]:Then Goto 3 :IfEnd↙
P-Z[1]→L:90(2L-B)÷R÷π→Z[11]↙
Rsin(Z[11])+Z[8]→Z[14]:R(1-cos(Z[11]))+Z[6]→Z[15]↙
M→Z : Goto 5↙
LbI 1 : If P＞Z[2]:Then Goto 2 :IfEnd↙
P-Z[1]→L:L→Z[12]:B→Z[13]:Prog＂JDC＂↙
Z[19]+Z[14]cos(M)-WZ[15]sin(M)+Dcos(Z+H)→F↙
道路曲线坐标计算步骤
道路曲线坐标计算步骤已知量：转角α=23°3’38”缓和曲线长L 0=100m圆曲线半径R=1000m圆曲线长L=00180)2(πβα⨯-⨯R 曲线长 L h ==000180)2(2πβα⨯-⨯+R L起始边方位角A zh-jd =tan -1(Y jd -Y zh /X jd -X zh )= tan -1((750-500)/ (750-500))=45°切线加长 q=23002402R L L -圆曲线相对切线内移量 p=L 02/(24R)切线长T h = q ＋(R ＋p)•tan(α/2)第一步计算ZH 坐标：方位角A jd-zh =A zh-jd +180°=225°T= q ＋(R ＋p)•tan(α/2) ___这里α为转角Xzh=Xjd+TcosA jd-zhYzh=Yjd+TsinA jd-zh第二步计算HY 坐标：缓和曲线切线角 βi =π001802⨯R L缓和曲线偏角(i)： δi=βi /3=L i 2/6RL s *180°/π缓和曲线方位角：аi 缓=A jd-zh+δi====== A jd-zh 已知（45°）用方位角(线路向左转A jd-zh -δi ) 缓和曲线坐标(i)： X i =230040R L L -Y I = L 02/6R缓和曲线ZH 的弦长坐标(i)：C i =22Y X +所以缓和曲线最后要求坐标为： X HY =X zh + C i cos аi 缓Y HY =Y zh + C i sin аi 缓 第三步计算QZ 的坐标：外矢距 E h = (R ＋p)/cos(α/2)－R 这里α为转角αjd-qz = A jd-zh +90°+α/2 这里α为转角线路向左转（A jd-zh -90°-α/2） QZ 的坐标X qz =X jd +Ecos αjd-qz Y qz =Y jd +Esin αjd-qz第四步DK1+100坐标计算：ZH 点里程=JD 里程-T=1300-254.08=1045.92=DK1+45.92L i = DK1+100-ZH 点里程=1100-1045.92=54.08缓和曲线切线角 βi =π0021802⨯RL L i缓和曲线偏角(i)： δi=βi /3缓和曲线方位角：аi =A jd-zh+δi====== A jd-zh 已知（45°）用方位角(线路向左转A jd-zh -δi ) 缓和曲线坐标(i)： X i =02540L R L L i i -Y i =L i 3/6RL 0缓和曲线ZH 的弦长坐标(i)：C i =22i i Y X +所以缓和曲线最后要求坐标为： X HY =X zh + C i cos аiY HY =Y zh + C i sin аi 第五步DK1+280坐标计算：HY 点到DK1+280的弧长L i =DK1+280- DK1+45.92-L 0=134.08 HY 点到DK1+280的弧长对应的圆心角Ψi =π0180⨯R L i 圆曲线HY 点到任意一点DK1+280的偏角△i =Ψi /2 圆曲线HY 点到任意一点DK1+280的弦长C i =2Rsin(△i ) 圆曲线HY 点到任意一点DK1+280的方位角аi =аi 缓+△i 圆曲线上任意一点DK1+280的坐标：X i =X hy + C i cos аi Y i =Y hy + C i sin аi。
道路桩号算中边桩坐标高程计算程序
道路桩号算中边桩坐标高程计算程序道路桩号是指道路上的标志桩，用于表示道路上的位置和距离。
在道路规划、设计和施工中，需要根据桩号来确定道路的线形和纵断面，并计算出桩号对应的坐标和高程。
道路桩号的计算程序可以分为以下几个步骤：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”表示。
casiofx5800p道路程序
CASIO Fx-5800p计算器道路坐标计算程序直线程序（ZX）“FWJ=”？Q 」（“」”回车按EXE即可）“QIDZH=”？Z 」“QIDX=”？A 」“QIDY=”？B 」Lb1 0“KP=”？H 」A+(H-Z)Cos(Q)→X 」B+( H-Z)Sin(Q)→Y 」Lb1 1」“XP=”:X▲“YP=”:Y▲Lb1 2」“BIAN JU(m)=”?D」D=0＝＞Goto 0」Lb1 3」“JIA JIAO L(-),R(+)=”?E」X+D*Cos(Q+E) →M」Y+D*Sin(Q+E) →N」Lb1 4」“M［I］=”：M▲“N［I］=”：N▲Goto 2卵形曲线（LXQX）Lb1 0」“XA=”？A：“YB=”？B：“CA=”？C：“1/RA=”？D：“1/RB=”？E：“DKA=”？F：“DKB=”？G 」Lb1 1 」“DKI=”？H：“DL=”？O：“DR=”？R：H＞G ＝＞Goto 3 」（E-D）/Abs（G-F）→P：Abs（H-F）→Q：P×Q→ I：D+I →T 」C+（I+2D）×Q×90/∏→J 」“J=”：J▲C+（I/4+2D）×Q×45/（2∏）→M 」C+（3I/4+2D）×Q×135/（2∏）→N 」C+(I/2+2D) ×Q×45/∏→K 」A+Q/12×(Cos（C）+4(Cos（M）+Cos（N）)+2Cos（K）+Cos（J）) →X」B+Q/12×(Sin（C）+4(Sin（M）+Sin（N）)+2Sin（K）+Sin(J)) →Y」“X=”：X▲“Y=”：Y▲X+OCos(J-90) →U 」Y+OSin(J-90) →V 」X+R Cos(J+90) →W 」Y+RSin(J+90) →Z 」“U=”：U▲“V=”：V▲“W=”：W▲“Z=”：Z▲Goto 1说明：XA-起点X坐标；XB-起点Y坐标；CA-起点方位角；1/RA-1除以起点半径（左转为负，右转为正）；1/RB-1除以终点半径（左转为负，右转为正）；DKA-起点桩号；DKB-终点桩号；DKI-待求点的桩号；DL-左边距；DR-右边距；J-显示待求点切线方位角；X-显示待求点的中桩X坐标；Y-显示待求点的中桩Y 坐标；U-显示待求点的左边桩X坐标；V-显示待求点的左边桩Y坐标；W-显示待求点的右边桩X坐标；Z-显示待求点的右边桩Y坐标。
fx-5800道路三维坐标计算器程序
Fx-5800道路三维坐标计算器程序QXJS-000 主程序（文件名）“1.SZ=>NE”:“2.NE=>SZ”:?Q↙Lbl 4:?S:“PJ=”?K:Prog“QXJS-SUB0”↙Lbl 0:Q=1 => Goto1:Q=2 => Goto2:↙Lbl 1:?Z:Prog“QXJS-SUB1”: “F=”:F◢DMS◢“N=”:N◢“E=”:E◢Prog“GCJS”: Goto4↙Lbl 2: “N=”:?B: “E=”:?C:B→N: C→E:Prog“QXJS-SUB2”: “S=”:S◢“Z=”:Z◢ Goto4↙QXJS-SUB0 数据库子程序（文件名）Goto1↙同时保存多个曲线时的指针Lbl 1IF S<***（线元终点里程）:Then***→A（线元起点方位角）:***→O（线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R （线元终点曲率半径）: ***→L（线元起点至终点长度）: Return:IfEnd↙IF S<***:Then***→A:***→O:***→U:***→V:***→P:***→R: ***→L: Return:IfEnd↙………………………..为了便于解读，每增加一个线元增加一行语句，每增加一条曲线增加一个Lbl，每增加一个工程增加一个文件。
QXJS-SUB1 正算子程序（文件名）0.5（1÷R-1÷P）÷L→D:S-O→X↙U+∫(cos(A+(X÷P+DX2)×180÷π,0,X)→N↙V+∫(sin(A+(X÷P+DX2)×180÷π,0,X)→E↙A+(X÷P+DX2)×180÷π→F↙N+Zcos(F+K) →N:E+Zsin(F+K) →EQXJS-SUB2 反算子程序（文件名）Lbl 1:0→Z：1→Q：Prog“QXJS-SUB0”: Prog“QXJS-SUB1”↙Pol(N-B+10^(-46), E-C+10^(-46)):Isin(F-K-J) →W:S+W→S↙Abs(W)>0.0001 => Goto1↙Lbl 2: 0→Z：Prog“QXJS-SUB1”:(C-E) ÷sin(F+K) →ZGCJS(高程计算—文件名)Lbl 0：Prog“SJK”：0.005R Abs(I -L) →T：T2÷2÷R→E:Z[1]-T→A：Z[1]+T→B：S-A→C：B-S→D：S-Z[1]→E←┘If L >I：Then 1→J：Else -1→J：IfEnd←┘If S<A：Then 0→C：Else S>B =>0→D：IfEnd←┘If S≦Z[1]：Then I→Y：C→G：Else S >Z[1]=>L→Y：D→G：IfEnd←┘Lbl 1：Fix 3：“ZP=”：H+EY÷100+JG2÷2÷R◢Goto 0←┘SJK(高程计算子程序—数据库)If S≦下一竖曲线起点And S >上一竖曲线终点：Then ……→Z[1](变坡桩号): ……→H （变坡高程）: ……→R（竖曲线半径）:……→I（第一纵坡坡度，带正负号）: ……→L(第二纵坡坡度，带正负号): IfEnd←┘坐标正反算输入与使用使用说明1、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当曲线半径在左时，P、R 取负值，当曲线半径在右时，P、R取正值，当曲线半径为无穷大（即直线）时，P、R以10的45次代替。
WPS自动计算道路坐标程序--自动判断左右偏距
-130.422391 -10.0670968 -79.8822427 9.411365054 10.06709675 172.2300232 -9.41136505 194379.975 221781.621
43 44 45 46 47 48 49 50 51
X Y J G I H if O<0，Then H H M
主桩 里程 ZH K006+780.422 HY K006+830.422
40RR)+X→Z[4]
Y X ZH HY QZ YZ YH HZ
T1 163.6456094 前段切线的长度T1 紫色为已知数据，需输入，黑色为计算结果。 T2 163.6456094 后段切线的长度T2 322.4347261 曲线长度 序号 桩号 中桩坐标X 1.343767388 ZH K006+780.422 194351.1912 E 15.97999701 外距E HY K006+830.422 194349.8812 6780.422391 QZ K006+941.640 194360.3336 6830.422391 YH K007+052.857 194390.9844 ZY 直圆桩号 HZ K007+102.857 194410.4573 ZH 6780.422391 缓和曲线交点+圆曲线偏角
公式3 前缓和
第三种情况IF P<=A-Z[3]+L-K,圆曲线段，P-A+Z[3]-E→I,按4式计算其余按2式计算 4式:(E+2I)*90/(PiR)→H:Rsin(H)+Z[2]→M：R（1-cos(H））+Z[1]→N:if O<0:then H=H: J+H+W→H:goto 5
CASIO 5800道路坐标计算器程序
CASIO 5800计算器程序一、程序功能：本程序由一个主程序（AK）及两个子程序：坐标正算程序（SUB1）、坐标反算程序（SUB2）平曲线数据库（PQX）构成，可以根据曲线段的组成部分：直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、止点坐标、起点切线方位角、线元长度、起点曲率半径、止点曲率半径、里程、边距或坐标），对该曲线段范围内任意里程中边桩坐标进行正反算。
二、源程序：1、主程序（AK）A排在前面，方便运行程序，不用往下翻页了。
Deg：“0→ZX,1→A,2→B”?Z ：“1→JDF,2→XYF”?E：“X(CZ)”?A：“Y”?B 说明：设置角度模式，选择线路0为主线，1为A匝道。
可以自己再增加。
选择计算方法，交点法还是线元法计算坐标，1为交点法，2为线元法。
输入测站坐标，如不需要计算极坐标，即放样的时候需要输入坐标到仪器里面去，则X(CZ)输0，Y不用管可以为任何值，建议把测站坐标输进去，省了放一个点输一次坐标数据到仪器里面去。
只有一条线路可以不需要黄色部分。
“1.Ki→XY,2.XY→Ki”?N：Lbl 0：“Ki”?K：Prog“PQX”IfE=1：Then Prog“JD”：IfEndN=1＝＞Goto 1：N=2＝＞Goto 2Lbl 1?LK-O→W：Prog“SUB1”说明：1为正算，即知道桩号和偏距（注意只能计算边桩，不能计算斜交的点，构造物可以通过后面的ZHIXIAN程序计算），2为反算，即知道坐标，求桩号和偏距。
Ki为桩号，正算直接输，反算需要输入附近桩号，第一次计算最好输好桩号之后，把反算出来的桩号再输进去，重新反算下，如果和第一次反算的桩号一样，那就说明反算的桩号正确。
调用平曲线数据库，输入偏距L（偏距左输负数，右输正数），如果选择的是交点法计算，那需要输入是数据库是交点数据，调用正算子程序SUB1。
If A≠0：Then Pol（X-A,Y-B）：“JULI=”：I◢J<0=>J+360→J：“FWJ=”：J ▶DMS◢Else “Xi=”：X◢“Yi=”：Y◢“FWJ=”：F ▶DMS◢If End ：Goto0说明：正算，如果前面X(CZ)输0，则直接显示X、Y坐标和方位角，否则显示仪器到放样点的距离和方位角。
道路桩算中边桩坐标高程计算程序
道路桩算中边桩坐标高程计算程序道路桩是公路工程中的一种常用设施，用于标示道路的里程或其他信息。
在道路桩的设计施工过程中，需要计算各个中边桩的坐标和高程。
下面是一个用于计算道路桩坐标和高程的程序，进行了详细的说明。
```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.绘制边桩平面图：在计算和修正边桩位置之后，可以根据计算结果绘制边桩平面图。
边桩平面图是道路施工中重要的参考资料，可以清晰地标示出边坡上的边桩位置、编号和高程等信息，方便施工人员进行操作。
总之，道路边桩坐标计算是道路工程中的一项重要任务，需要通过测量和计算确定边桩的位置坐标。
准确的边桩坐标计算能够确保道路质量和施工进度，是道路设计和施工的基础工作。
道路放样坐标计算
全站仪道路放样、方位角及左右偏移坐标计算（直线、缓和曲线<南方NTS-362R6L>）一、根据直线、曲线要素表列1：JD5—x= JD6—x=y= y=方位角计算=POl（4339782..518，r=Θ= 转160°12″′∴JD5—JD6直线段长,方位角=160°12″′，已知JD5半径=1500，曲线长度;(JD5桩号K3+，JD6桩号K4+）利用全站仪进行道路放样：选择程序——道路——水平定线——（新建水平定线文件）——起始点（输入桩号，坐标JD5）——水平定线（1、直线-方位角160°12′19″ 2、圆弧—半径1500，弧长 3、缓和曲线-半径1500，弧长）——道路放样——选择文件（水平定线）——设置放样点（依次输入起始桩号-桩间距-左偏差-右偏差）——放样《DHR角度值，HD水平距离》（编辑可以桩号可放样任意一点坐标，编辑偏差左右偏移“左负右正”）见附图二、道路坐标计算(列1）JD5——JD6坐标计算{x+Cos(方位角)*距离} {y+Sin(方位角)*距离JD6X=+Cos（）*=JD6Y=+Sin*=三、坐标距离计算2（列1）JD5—JD6其之间的距离计算【根号下{（JD6Y-JD5Y）2+（JD6X-JD5X）2}】如下：（）+（）= ==（2+2）=四、坐标左右偏移计算（列1）公式=x+Cos（角度+-90°）*距离 y+Sin（角度+-90°）*距离JD5-JD6之间K3+700—x=Y=右偏坐标X=+cos（160°12″′+90°）*=Y=+sin（160°12″′+90°）*=左偏坐标X=+cos（160°12″′-90°）*=Y=+sin（160°12″′-90°）*=（左负右正）五、假设坐标假设A1x=1000 y=1000 z=1000 自由定点假如A1-A2实际尺量为，则A2坐标为X=1000， Y=六、钢管重量计算列：无缝钢管DN100，壁厚4mm，外径￠108（计算公式=外径—壁厚）*壁厚*系数∴dn100无缝钢管每米重量=（108-4）*4*=七、钢板重量计算（计算公式=厚度*宽度*长度*系数）列：钢板厚20mm，宽2000mm，长10000mm则重量等于：*2*10*=本文档仅限于各位同行交流与学习，如有不足之处还望与各位互相探讨、交流、、、微信、qq号：6 雷2017年8月28日附图。