EXCEL中计算公路圆曲线中

合集下载

道路坐标计算excel公式

在Excel中，可以使用以下公式来计算道路坐标：
计算两点间的距离：
使用距离公式：D = sqrt((x2-x1)^2 + (y2-y1)^2)。

其中，x1、y1是第一个点的坐标，x2、y2是第二个点的坐标。

计算直线距离（两点间的最短距离）：
使用直线距离公式：D = abs(y2-y1) + abs(x2-x1)。

计算斜率：
使用斜率公式：m = (y2-y1) / (x2-x1)。

计算角度：
使用角度公式：θ = arctan(m)。

其中，arctan是反正切函数，m是斜率。

计算坐标变换（平移和旋转）：
使用平移公式：x' = x + tx，y' = y + ty。

其中，tx和ty是平移量。

使用旋转公式：x' = x * cos(θ) - y * sin(θ)，y' = x * sin(θ) + y * cos(θ)。

其中，cos和sin是余弦和正弦函数，θ是旋转角度。

这些公式可以根据具体需求进行组合和调整，以计算道路坐标和其他相关参数。

请注意，这些公式假设坐标系为笛卡尔坐标系，并且输入的坐标值是实数。

如果使用其他坐标系或涉及复数计算，可能需要使用不同的公式或函数。

利用EXCEL表格计算线路中边桩坐标

利用EXCEL表格计算线路中边桩坐标高速公路施工中，桥梁、隧道施工以及路沿石施工时对测量要求相当严格，要求总体宽度误差在1cm以内。

这就要求测量工程师必须把线路边桩都计算出来，每隔10米（曲线段）或者20米（直线段）放样线路边桩，以便指导施工。

如果采用常规的计算器计算，不仅繁琐、费力而且容易出现差错。

本人在计算中边桩坐标时，试着利用EXCEL表格功能，编辑函数大批量计算线路中边桩坐标，达到了高效、准确的目的。

由于直线部分相对简单，复曲线又特别繁琐。

现就圆曲线举例计算如下：例：在浙江省龙丽一级公路施工中，左线圆曲线起点里程为K86+966.6，曲线半径为1500m，曲线左偏，起始方位角为147°43 ′58.2″，线路中心和隧道中心偏差15cm。

计算隧道中心线和衬砌边线（半径5.1m）。

1.在B4方格中输入：=$B$3+3000*SIN((A4-$A$3)/3000)*COS(2.5784244-(A4-$A$3)/3000)+ 0.15*COS(4.149220679-2*(A4-$A$3)/3000)按回车键确认即可以计算出该里程隧道中心线X轴坐标。

2.在C4方格中输入：=$C$3+3000*SIN((A4-$A$3)/3000)*SIN(2.5784244-(A4-$A$3)/3000)+0.15*SIN(4.149220679-2*(A4-$A$3)/3000)按回车键确认即可以计算出该里程隧道中心线Y轴坐标。

同理在3.D4方格中输入：=$B$3+3000*SIN((A4-$A$3)/3000)*COS(2.5784244-(A4-$A$3)/3000)+ COS(4.149220679-2*(A4-$A$3)/3000) *（0.15+5.1）4.在E4方格中输入：=$C$3+3000*SIN((A4-$A$3)/3000)*SIN(2.5784244-(A4-$A$3)/3000)+SIN(4.149220679-2*(A4-$A$3)/3000)*（0.15+5.1）其中 2.5784244为方位角147°43 ′58.2″的弧度表达方式，4.149220679为起始方位角147°43 ′58.2″加90°后的弧度值。

极坐标法圆曲线测设中Excel的应用

行，提高工作效率。针对ＺＹ点设站极坐标法圆曲线的测设中，用Ｅｃｌ采ｘｅ软件实现放样数据计算进
行了探讨。
ｌＺ点设站极坐标法圆曲线测设概Ｙ述
应用此方法测设圆曲线时，仪器可以安置在任意控制点上，包括路线上的交点、转点等已知点。其
测设数据主要是计算圆曲线主点和细部点的坐标，然后根据控制点和细部点的坐标，反算出极坐标法的测设数据— — 测站至待测设点的方位角和水平距离。使用全站仪测设时，则可直接将已知点、圆曲线主点及细部点的坐标编辑成文本文件，然后上传到仪器中进行测设。
３４．０１０００
２，９７１８
哇．９７１８
６．９７１８
１５８０３６．５３４９
２７４１９７．０２９８３０３５７．５１５７
２．９７１４
４．８７１０
６．哇７１７
２７４５９６７。３２３
ｌ
ｌ
｛
条件限制，不能连续测设大型曲线或测设时误差积
累较大等不足；第二类则是随着全站仪的普及而发展起来的极坐标放样法，此种方法设站灵活多样，选择余地较大，并且坐标独立计算，误差积累，无测设
精度较高，曲线主点测设与曲线详细测设可同时进
摘
要：公路和铁路圆曲线测设的计算工作量大，测设数据计算采用Ｅｃｌｘｅ编程处理，以简化复杂的计算工作，可提

Excel VBA在公路路线坐标计算中的应用

Excel VBA在公路路线坐标计算中的应用摘要：通过分析公路路线坐标计算原理，创建Excel VBA的对象模型，可通俗易懂，方便准确地完成公路路线坐标计算，值得推广应用，文中以作者编写的“Excel公路坐标计算程序”为算例，说明介绍。

关键词：坐标计算，Excel VBA，坐标转换，数据读取传输引言作为公路测量工作者，公路路线坐标计算是一件最基础和最重要的工作之一。

虽然目前有部分公路坐标计算软件，但往往价格不低，而且通常操作复杂。

Microsoft 的常用办公软件Excel提供的VBA程序，功能强大，且与Excel工作表实现无缝接合，只要灵活应用，即可方便、快捷地解决测量中大量的、机械的数据处理过程。

文中介绍道路曲线坐标计算三种基本形式—直线、圆曲线、缓和曲线的中边桩计算公式，分析利用Excel表格及其VBA程序计算公路坐标的一般方法和关键节点，同时以两个不同类型的路线为实例具体说明计算过程和精度分析。

1 公路路线坐标计算基本原理1.1 中线坐标计算一般公路的路线坐标计算普遍采用三种线型：直线、圆曲线和缓和曲线。

其相应的中线坐标计算公式如下：1）直线（见图1）x=x0+S0×cos(a0)y=y0+S0×sin(a0)2)圆曲线（见图2）x=x0+S0×cos(a0+β)y=y0+S0×sin(a0+β)其中β为偏角，S0为弦长，其值为：β=90×L0/（R×π）S0=2×R×sin(β)切线方位角：a= a0+2×β3) 缓和曲线（见图3）Xi’=L－L5/(40A2)＋L9/(3456A8)－L13/(599040A12)＋……Yi’=L3/(6A2)－L7/(336A6)＋L11/(42240A10)－……L=|Li-L0| A=上述直线段和圆曲线段可直接计算出中桩坐标，但缓和曲线由于采用切线正支距法，是以直缓或缓直为原点的直角坐标系，还必须用坐标平移和旋转计算出该点在大地平面直角坐标系XOY中的坐标（x,y），公式为：x= x0+ Xi’cos(a0)- Yi’sin(a0)y= y0+ Yi’sin(a0)+ Yi’cos(a0)其转换后的切线方位角为：a=a0+180±L2/(3A2)1.2边桩坐标计算边桩坐标计算利用计算出来的中线坐标及其切线方位角，按az=a-90……左边桩方位角ay=a+90……左边桩方位角以及边桩至中桩距离Sb，推算边桩坐标：Xz(y)=x中+Sb×cos(az(y))Yz(y)=y中+Sb×sin(a z(y))2Excel VBA与Excel工作表的关联Office Excel工作簿中包含若干工作表，各工作表之间既相互独立，又相互关联，同时各工作表与Excel VBA又相互关联，因此只要在工作表上输入路线要素及计算桩号，通过VBA编程，就可通过VBA宏坐标计算将计算结果导入工作表。

曲线道路坐标计算(Excel)

曲线道路坐标计算§1 曲线要素计算缓和曲线是在不改变直线段方向和保持圆曲线半径不变的条件下，插入到直线段和圆曲线之间的。

其曲率半径ρ从直线的曲率半径∞（无穷大）逐渐变化到圆曲线的半径R ，在缓和曲线上任意一点的曲率半径ρ与缓和曲线的长度l 成反比，以公式表示为：l1∝ρ 或 C l =⋅ρ（C 为常数，称曲线半径变更率）。

当o l l =时，R =ρ，应有o l R l C ⋅=⋅=ρ以上几式是缓和曲线必要的前提条件。

在实际应用中，可采取符合这一前提条件的曲线作为缓和曲线。

常用的有辐射螺旋线及三次抛物线，我国采用辐射螺旋线。

为了在圆曲线与直线之间加入一段缓和曲线o l ，原来的圆曲线需要在垂直于其切线的方向移动一段距离p ，因而圆心就由'O 移到O ，而原来的半径R 保持不变，如图。

由图中可看出，缓和曲线约有一半的长度是靠近原来的直线部分，而另一半是靠近原来的圆曲线部分，原来圆曲线的两端其圆心角o β相对应的那部分圆弧，现在由缓和曲线所代替，因而圆曲线只剩下缓圆点(HY )到圆缓点(YH )这段长度即y l 。

o β为缓和曲线的切线角，即缓圆点或圆缓点切线与直缓点或缓直点切线的交角，亦即圆曲线HY→YH 两端各延长2ol 部分所对应的圆心角。

γ为缓和曲线总偏角，即从直缓点(ZH )测设缓圆点(HY )或从缓直点(HZ )测设圆缓点(YH )的偏角。

q 为切线增量(切垂距)，即ZH (或HZ )到从圆心O 向ZH (或HZ )的切线作垂线垂足的距离。

p 为圆曲线内移值，即垂线(从圆心O 向ZH (或HZ )的切线作垂线)长与圆曲线半径R 之差。

§1.1 不等长缓和曲线要素计算：在铁路曲线测设中，线路曲线一般是由相等的两条缓和曲线中间加一个圆曲线构成，有时还会出现由两个不等长的缓和曲线中间加一个圆曲线构成的特殊情况，如图：缓和曲线长分别为1o l 、2o l ，切线长分别为1T 、2T ，曲线偏角(线路转角)为α，圆曲线半径为R ，圆曲线长为y l ，曲线长为L ，外矢距为E ，切曲差为J ，(缓和曲线后)圆曲线内移值分别为1p 、2p ，(缓和曲线)切线增量分别为1q 、2q ，缓和曲线偏角分别为1o β、2o β ，回旋线参数分别为121o Rl A =、222o Rl A =各曲线要素计算公式如下：231112402R ll q o o -=232222402Rll q o o -=341211268824R lR l p o o -=342222268824RlR l p o o -=ααsin )(2)(12111p p tgp R q T -+++=ααsin )(2)(21222p p tgp R q T -+++=Rl R l o o o ππβ111901802=⋅=Rl R l o o o ππβ222901802=⋅=︒--++=180)(2121Rl l L o o o o πββα从以上公式可以看出，当21o o l l =时，就是等长(对称)缓和曲线的情况。

excel曲线方程

Excel可以用来进行曲线拟合，生成曲线方程。

以下是一般步骤：
1. 打开Excel，将实验数据输入到表格中。

2. 选中所有数据，然后选择“插入”选项卡。

3. 在“插入”选项卡中选择“散点图”，然后选择只有数据点的类型。

4. 点击一个数据点，会选中所有数据点，然后右键点击在弹出的菜单中选择“添加趋势线”。

5. 在这里可以选择需要的曲线类型，如线性、指数、幂、对数、多项式等。

选择多项式。

6. 勾选“显示公式”和“显示R平方”的复选框，就能得到需要的曲线、公式和相对误差。

以上步骤仅供参考，具体操作可能会因Excel版本不同而有所差异。

Excel在公路线路坐标计算中的应用

l 9/
(
3
456R
4l
4 0
)
-
l
13/
(
599
040R
6l
6 0
)
( 1)
y1 = l3/ ( 6Rl 0) - l 7/ ( 336R 3l 03)
+ l 11/ ( 42 240R5l 05)
( 2)
m=
l0-
l
3 0
/
(
40R
2)
+
l 05/ ( 3 456R 4) -
l
7 0
/
(
599
040R 6) - R sin( l 0/ 2R )
角
左侧边桩坐标增量
xy
KL
左侧边桩坐标
XY
2 A2
D2 E2 F2
3
4
5
第二行输入 HY 点对应的里程A 2、到 HY 点的线路中线方位角 D2 及 H Y 点坐标( E2, F2) , C 列 C3 = B3/ 2R , 其他计算同前面中桩、边桩计算。
应用 Excel 计算时, 由于 Excel 表格能够满足中桩及左右边桩一次计算需要, 计算时可一次完成。在计算熟练后, 可找出一些技巧, 由于本文篇幅关系, 不在多述。
2. 2 曲线段计算
( 1) 中桩坐标计算根据曲线段坐标计算思路, 应用 Excel 生成表 3。
表 3 曲线段中桩坐标计算
AB CD E F
G
H I JK
单曲线坐
中线坐标
1
里程
里程差
标增量
弦长
反正切值
线路中线方位角
增量
xy

Excel电子表格在高速公路曲线坐标计算中的应用

以上采用左偏曲线进行公式推导，在计算右偏曲线时只需将单ｙ）（Ｊ）。故通过坐标平移与旋转曲线上任一点坐标（元格中的“ ＝ｏ１ｏ一变为“ ＝ｏ１ｏ＋，０／一。），ｏＯ＋８。 ” ｏＯ＋８。 ”其他参数不变。ｙ为：＋）＝０Ｐ木ｃｓ＝ｏｏ０＋２术Ｒ木ｓａ幸ｃｓ，ＹＰ木ｓ０＝ｉｎｏ０Ｙ＝０＋ｉｎ
Ｐ（／８。。Ｉ）１ｏ）
ｌ，，其垂线为轴建立右手坐标系，：轴则曲线上任一点坐标为２３统一计算格式的形成．（），，）任一点到曲头曲线长为己其弦长为ｐ弦切角为ｄ根据平，，，，圆曲线半径，其极坐标为（ｏ。ｐ，）ｔ
《民防火公约》向居民家庭发放消防宣传材料，家挨户对居［］张治节，居，挨３同天成．洛川县金苹果小区消防设计浅议［］山西Ｊ．民电器设备的使用，炉灶的安装使用进行防火检查和安全提示，建筑，０９３（）１７１８２０，５２：９ — ．９
Ｐ（／８。。Ｉ）１０）
为统一的极坐标系。
１２平曲线坐标系的建立．
建立以曲头为原点坐标（，），头到交点连线正方向为０Ｏ点曲
（）＝＋ｓ（Ｐ（／８。：户￥ｉ０／）１０）＝霈Ｄ第２＋ｉｓ（ｎ，｝ｉｎ
ｔｅｆｒ — ｇｔｎｇｓｆｔｆｕｂｎｒｓｄｅｔａｕｉｇｅｔｔｓ，ａａｙｅｈｒｂｅｎｔｅｆｅｆｈｉｇｓｆｔｎｇｍｅｔｎｔｅｅｔｔｓｎｏｎｓｈｅｆｈｉａｅｙｏｒａｅｉｎｉｌｈｏｓｎｓａｅｉｉｎｌｚｓｅｐｏｌｍｓｉｈｒ — ｇｔａｅｙｍａａｅｎｈｓｅ，ａｄｐｉｔｔｉｉｎｉａ

弦线极坐标法圆曲线测设中Excel的应用

时．可直接将弦线上任一点、则圆曲线主点及细部点
、、
、
／Ｒ／
的坐标编辑成文本文件，后上传到仪器中进行测然
设
２实例计算
２１圆曲线主点里程计算．
１弦线极坐标法圆曲线细部点坐标计算函数模型
Ｅ４单元的值为０ＺＹ点为定向的零方向
Ｅ５＝（ＥＲＥ（￥Ｂ￥１）一Ｄ）２以（）ＤＧＥＳ８５ｌ／。为
Ｄ０＝Ｂ９Ｂ８圆曲线长Ｉ的计算公式２１１
ＤＩ＝１（／Ｏ（１／）一１２Ｂ９１ＣＳＢ８２）外矢距Ｅ的
Ｚ－Ａ所在方向线与ＡＰ方向线之间的夹角Ｙ－
８０。＿ａｃｇｒｔ
点的坐标，然后根据已选好的弦线上任一点和细部
、
点的坐标，算出极坐标法的测设数据— —测站至反待测设点的方位角和水平距离。使用全站仪测设
当圆曲线半径较大，ｚ且Ｙ点无法架设仪器时，
可采用文献［］述弦线极坐标法，４所视测设环境情况在ｚ —Ｙ的弦线上任选一点作为设站点．ＺＹｚ以Ｙ
如表１示，所已知Ｊ的桩号为ｌＤ（３＋１２７，８．６测得转角（即图１中的 △ ）【４４０，曲线设计０＝２。８２ ” 圆
分别为：
＝ｉＳｔＣＯＯＣ

道路坐标计算excel

道路坐标计算excel道路坐标计算是一种常见的数据处理方法，用于计算道路上的各个位置的经纬度坐标。

这种计算方法可以帮助我们确定道路上的具体位置，方便导航和定位等应用。

在实际的道路坐标计算中，常用的方法是使用Excel进行处理。

Excel是一款功能强大的电子表格软件，可以方便地进行数据处理和计算。

下面将介绍如何使用Excel进行道路坐标计算。

首先，我们需要准备好待处理的数据。

在Excel中，可以将道路划分为多个路段，并为每个路段标注起点和终点的位置。

这些位置可以用经度和纬度来表示。

接下来，我们可以使用Excel中的函数进行坐标计算。

常用的函数包括经纬度转换函数和距离计算函数。

1. 经纬度转换函数在进行坐标计算时，经纬度间的转换是非常重要的一步。

Excel提供了很多函数来进行经纬度转换，例如DEGREES、RADIANS、SIN、COS、TAN等函数。

通过这些函数的组合，我们可以将经纬度导航到计算坐标。

2. 距离计算函数除了经纬度转换，计算两点之间的距离也是道路坐标计算的重要一环。

Excel提供了很多函数来计算两点之间的距离，例如ACOS、COS、SIN、SQRT等函数。

通过这些函数的组合，我们可以计算出两点之间的距离。

在进行坐标计算之前，我们需要对数据进行预处理。

这包括将经纬度数据转换为数字格式，并确定坐标轴的单位。

在Excel 中，我们可以使用“格式单元格”功能，将经纬度数据转换为数字格式，以便进行后续计算。

接下来，我们可以使用Excel的函数来进行道路坐标计算。

以计算两点之间的距离为例，可以使用类似以下的公式：=ACOS(COS(RADIANS(90-纬度1))*COS(RADIANS(90-纬度2))+SIN(RADIANS(90-纬度1))*SIN(RADIANS(90-纬度2))*COS(RADIANS(经度1-经度2)))*6371在这个公式中，纬度和经度分别用纬度1、经度1、纬度2、经度2来表示。

道路工程测量计算excel(功能齐全)

本程序是本人花了大量的时间编成的，为了表示对劳动成果的尊重，请你付点小费，你不会忠 QQ：337699117 邮箱：337699117@ 开户行：中国工商银行卡号：622202240300户名：徐明忠付费100元整付完费请将你的邮箱地址发到我的邮箱中，我会在一天内将密码发。

谢谢合作！！！！！！欢迎你使用！请加我的QQ：欢迎使用！！W S K E Z2M1102.8469986-1-20666.3715611774.126685.24241819611859.3691-0.967755757 -1-508.767064.407880485.2423248501-1005.7910112.310203864.40798160 #DIV/0!#DIV/0!#DIV/0!187.8999832#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!W S K E Z2M1102.8469986#VALUE!-185.24241819-1-449.394092064.407880485.24232485#VALUE!1-946.4180920112.310203864.4079816#VALUE! #DIV/0!#DIV/0!#DIV/0!187.8999832#DIV/0!0#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!W S K E Z2M 1102.8469986#VALUE!-17.022*******.022********.2424181995.824498140 -1-608.224207064.407880485.242324851-1105.248210112.310203864.4079816#DIV/0!#DIV/0!#DIV/0!187.8999832#DIV/0!#VALUE! #DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#VALUE! #DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!W S K E Z2M 1102.8469986-1 6.854980654 6.85498065485.2424181995.99188198#VALUE!-1-609.684907064.407880485.24232485#VALUE!1-1106.708910112.310203864.4079816#VALUE! #DIV/0!#DIV/0!#DIV/0!187.8999832#DIV/0!#VALUE! #DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#VALUE! #DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0! #DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!W S K E Z2M 1102.8469986#VALUE!-1 6.853322838 6.853********.2424181995.9935398#VALUE!-1-609.699374064.407880485.242324851-1106.723370112.310203864.4079816#VALUE! #DIV/0!#DIV/0!#DIV/0!187.8999832#DIV/0!#VALUE! #DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0! #DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!TFSGC 0.005RAbs(I-J)H+0.01(Z-L)J+(I-336.508454840.034877340.256261995.7338.164336.5084548127.55338.177337.672133100转换前原坐标方位角转换后坐标方位角角度差值85.23921306085.2392130685°14′21.17″0°0′0″X0###########0.000YO500895.0010.000X1###########10.000M 3615414.145方位Y1500899.9840.000N 500895.001方度、点号需转换R 需转换V转换后X 转换后Y 13615406.172500895.665-1.6599E-058.0006015423615363.903500259.347-637.630803-2.687969657EX 施工坐标与大地坐标转换EXCEL表格成果输出33615472.936500379.368-508.974604-101.3835522 43615398.423500706.101-189.553136-0.010154291 53615447.634501297.377403.76720770.022069493 63615645.854501711.242832.6557627-163.1649827 700-799231.1483561368.391 800-799231.1483561368.391 900-799231.1483561368.391 1000-799231.1483561368.391）你不会介意吧！创作人：徐明银行卡号：622202************* 开中，我会在一天内将密码发到你的邮箱中159.42635.1644425P 4.951433D S4.951411755.100556#VALUE!#VALUE!#VALUE! -17.6044410678.96159.37290880.969372 -20.834441.4877592-99.45819-13.75678 47.9022221.1241313-88.06205-48.231280#DIV/0!#DIV/0!#DIV/0!0#DIV/0!#DIV/0!#DIV/0!0#DIV/0!#DIV/0!#DIV/0!0#DIV/0!#DIV/0!#DIV/0!59.37290880.969372P D S55.100556#VALUE!#VALUE!#VALUE! -17.60444#VALUE!#VALUE!#VALUE! -20.834441.4877592-158.8301-13.77461 47.9022221.1241313-143.5455-69.36460#DIV/0!#DIV/0!#DIV/0!0#DIV/0!#DIV/0!#DIV/0!0#DIV/0!#DIV/0!#DIV/0!0#DIV/0!#DIV/0!#DIV/0!-158.8301-13.77461P D S 55.100556#VALUE!#VALUE!#VALUE! -17.60444 1.672453-1.4607-4.953567 -20.834441.4877592-0.526157-5.13757 47.9022221.1241313 1.3355128-4.9887750#DIV/0!#DIV/0!#DIV/0!0#DIV/0!#DIV/0!#DIV/0!0#DIV/0!#DIV/0!#DIV/0!0#DIV/0!#DIV/0!#DIV/0!-1.4607-4.953567P D S 55.100556#VALUE!#VALUE!#VALUE! -17.604441.6753744-0.014467-4.951412 -20.834441.48775920.9093064-4.867222 47.9022221.1241313 2.5809607-4.2255570#DIV/0!#DIV/0!#DIV/0!0#DIV/0!#DIV/0!#DIV/0!0#DIV/0!#DIV/0!#DIV/0!0#DIV/0!#DIV/0!#DIV/0!-0.014467-4.951412P D S 55.100556#VALUE!#VALUE!#VALUE! -17.604441.6754033-0.000143-4.951412 -20.834441.48775920.9235197-4.864523 47.9022221.1241313 2.5932848-4.217980#DIV/0!#DIV/0!#DIV/0!0#DIV/0!#DIV/0!#DIV/0!0#DIV/0!#DIV/0!#DIV/0!0#DIV/0!#DIV/0!#DIV/0!-0.000143-4.951412ZP YP FZP FYP k-0.01068 -44-3.990326 3.9709786#DIV/0!-2-2-2-2#DIV/0!-2-2-2-2#VALUE!#DIV/0!#DIV/0!#DIV/0!#DIV/0!000-44-3.990326 3.9709786EXCEL表格计算方位角距离转换后坐标方位角转换前原坐标方位角0.415104.983012.007228910象限角 1.487704920方位角弧度表示 1.487704920方位角度表示85.239213060度、分、秒表示85°14′21.17″0°0′0″距离 5.00010.000一哟！！10678.960551.487759231D J#VALUE!#VALUE! 10678.96055-10680.47694 1.487759231-3.00414753 1.124131343-2.640519642#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!D#VALUE!#VALUE!#VALUE!#VALUE! 1.487759231-3.055083655 1.124131343-2.691455768#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!D#VALUE!#VALUE! 1.672452997-1.857547771 1.487759231-1.672854005 1.124131343-1.309226118#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!D#VALUE!#VALUE! 1.675374396-1.573718146 1.487759231-1.38610298 1.124131343-1.022475093#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!D#VALUE!#VALUE! 1.67540333-1.570825261 1.487759231-1.383181162 1.124131343-1.019553274#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!#DIV/0!zp2YP2K FXPD Wz4.25337.99373084.25-17.361634.25-20.500364.2547.540844.25#DIV/0!4.25#DIV/0!4.25#DIV/0!4.25#DIV/0!4.25-20.50036HZWy z y TZ TY 338.3337308 5.753134604 5.5831346045.753134604 5.5831346045.7531346040.802#VALUE!。

Excel 公路中线坐标计算

：Excel 公路中线坐标计算现阶段我国公路工程中已普遍使用大地坐标进行线型的控制及测设，在施工中经常要对中线坐标进行复核、加密，才能满足公路工程施工的需要。

本文是结合公路工程的实际需要，利用Exce电子表格制作的用于由直线、圆曲线、缓和曲线组成的一般公路线型中桩、边桩等计算的通用模版，用于减轻计算工作的劳动强度和提高计算结果的准确度。

一、采用公式1 直线段1.1 中桩坐标计算公式1.2 边桩坐标计算公式2 缓和曲线段2.1 中桩坐标计算公式当P点位于顺时针方向时,其方位角为αE→p=αA→B+90°；当P点位于逆时针方向时,其方位角为αE→p=αA→B-90°。

2.2 边桩坐标计算公式3 圆曲线段3.1 中桩坐标计算公式当E点位于顺时针方向时取“+”,当E点位于逆时针方向时取“-”。

3.2 边桩坐标计算公式XP、YP——未知点P的坐标X1、Y1——各线型起点的坐标（第二曲线段为终点）XA、YA、XB、YB——P点边桩A点、B点的坐标（A为左侧、B为右侧）α1→2——直线段起点的方位角αA→B——各线形起点的切线方位角（第二曲线段为终点）L——P点距各线形起点的长度LS——缓和曲线段缓和曲线长R——各曲线段的半径β——P点的切线角（曲线左转时取“-”、曲线右转时取“+”）T1、T2——P点至边桩A、B的距离（A为T1、B为T2）二、计算模板的建立步骤表1－1表1－21．新建一个工作薄，在其中输入如表1所示的内容；2. 选中工作表A列，打开格式菜单，选中“单元格”，在单元格菜单中选中“数字”栏，自定义单元格格式为“K000＋000.000”。

按此方法分别将其他列设置为如表1所示单元格格式；3. 将“4”行做为路线起点数据行，在“5”行中进行公式编辑；4．在“J5”单元格中输入“=IF(C5=4,RADIANS(IF((G5+H5/60+I5/60/60)<180,(G5+H5/60+I5/60/60)+180,(G5+H5/60+I5/60/60)-18 0)),IF(C5=5,RADIANS(IF(B5=0,G5+H5/60+I5/60/60-E5/2/D5*180/PI(),G5+H5/60+I5/60/60+E5/2/D5*180 /PI())),RADIANS(G5+H5/60+I5/60/60)))”；5．在“K5”单元格中输入“＝A5－$A$4”；6．在“L5”单元格中输入“=$L$4+IF(C5=1,K5*COS(J5),IF(C5=2,2*D5*SIN(K5/2/D5)*IF(B5=0,COS(J5-K5/2/D5),COS(J5+K5/2/D5) ),IF(C5=3,(K5-K5^5/40/D5^2/E5^2)*COS(J5)+(K5^3/6/D5/E5-K5^7/336/D5^3/E5^3)*IF(B5=0,COS(J5-90 *PI()/180),COS(J5+90*PI()/180)),IF(C5=4,(K5-K5^5/40/D5^2/E5^2)*COS(J5)+(K5^3/6/D5/E5-K5^7/33 6/D5^3/E5^3)*IF(B5=0,COS(J5-90*PI()/180),COS(J5+90*PI()/180)),2*D5*SIN(K5/2/D5)*IF(B5=0,COS( J5-K5/2/D5),COS(J5+K5/2/D5))))))”；7．在“M5”单元格中输入“=$M$4+IF(C5=1,K5*SIN(J5),IF(C5=2,2*D5*SIN(K5/2/D5)*IF(B5=0,SIN(J5-K5/2/D5),SIN(J5+K5/2/D5) ),IF(C5=3,(K5-K5^5/40/D5^2/E5^2)*SIN(J5)+(K5^3/6/D5/E5-K5^7/336/D5^3/E5^3)*IF(B5=0,SIN(J5-90 *PI()/180),SIN(J5+90*PI()/180)),IF(C5=4,(K5-K5^5/40/D5^2/E5^2)*SIN(J5)+(K5^3/6/D5/E5-K5^7/33 6/D5^3/E5^3)*IF(B5=0,SIN(J5-90*PI()/180),SIN(J5+90*PI()/180)),2*D5*SIN(K5/2/D5)*IF(B5=0,SIN( J5-K5/2/D5),SIN(J5+K5/2/D5))))))”；8．在“N5”单元格中输入“=IF(B5=0,J5-RADIANS(IF(C5=2,K5/D5*180/PI(),IF(C5=3,K5^2/2/D5/E5*180/PI(),IF(C5=4,K5^2/2/D5 /E5*180/PI(),IF(C5=5,K5/D5*180/PI()))))),J5+RADIANS(IF(C5=2,K5/D5*180/PI(),IF(C5=3,K5^2/2/D5 /E5*180/PI(),IF(C5=4,K5^2/2/D5/E5*180/PI(),IF(C5=5,K5/D5*180/PI()))))))”；9．在“P5”单元格中输入“=IF(C5=4,L5+O5*COS(N5+90*PI()/180),L5+O5*COS(N5-90*PI()/180))”；10．在“Q5”单元格中输入“=IF(C5=4,M5+O5*SIN(N5+90*PI()/180),M5+O5*SIN(N5-90*PI()/180))”；11．在“S5”单元格中输入“=IF(C5=4,L5+O5*COS(N5-90*PI()/180),L5+O5*COS(N5+90*PI()/180))”；12．在“T5”单元格中输入“=IF(C5=4,M5+O5*SIN(N5-90*PI()/180),M5+O5*SIN(N5+90*PI()/180))”；13．选定“5行”向下复制到表格最后一行；14．点击“文件”菜单中的“另存为”选项，输入文件名为“坐标计算”在文件类型中选择为“模版”并点击“保存”。

圆曲线超高-道路工程Excel计算系列

桩号高程起点接A 匝道B K0+.7%AK0+741.661121.047 2.251120.8895 1.75%终点接主线B K0+274.082%K8+275.331117.95111.741117.7362鼻端B #########2%K8+208.7811117.86123.621117.4086桩号高程起点接主线C K0+.2%K0+913.1111116.50217.041116.16120.3196%鼻端C K0+34.672%K07+947.621116.63919.351116.272终点接A 匝道C K0+344.257%K0+344.251121.047 2.251121.20451.75%桩号高程起点接N 匝道B K0+.7%K01+030.8361121.545 2.251121.7025 1.8000%鼻端B #########2%K09+186.41118.47719.031118.1164终点接主线B #########2%K09+282.871118.20411.51118.434桩号高程终点点接N 匝道A #########7%K01+030.8361121.545 2.251121.3875 1.8000%鼻端A K0+38.622%K08+940.051118.91319.391118.5452起点接主线A K0+.2%K08+901.591118.94616.981119.28560.070.07桩号高程起点接B匝道D K0+.7%K0+709.261119.224 2.251119.0665 1.27%鼻端D#########2%K017+455.711116.25418.81115.898终点接主线K0+270.222%K017+526.111116.00311.51115.793桩号高程终点接B匝道E K0+363.827%K0+709.261119.224 2.251119.3815 1.27%起点点接主线E K0+.2%K017+140.96111513.441114.7512鼻端EK0+89.8922%K017+230.541115.75219.181115.38840.07桩号高程终点接A 匝道D K0+214.17%K0+585.831116.904 2.251116.7465-2.50%起点接主线D K0+.2%K015+284.091114.0513.7031113.79594鼻端DK0+44.912%K015+328.581114.0518.891113.6922-0.2310%-0.1480%推算控制点高程魏家桥立交匝道编号匝道桩号超高（或横坡）对应主线（或接匝道）坡度至主线（或匝道）距离魏家桥立交匝道编号匝道桩号超高（或横坡）对应主线（或接匝道）坡度备注至主线（或匝道）距离超高（或横坡）对应主线（或接匝道）备注推算控制点高程0.7089%前进方向升坡坡度备注至主线（或匝道）距离推算控制点高程正线炼油厂正线推荐方案植物园匝道编号匝道桩号正线炼油厂比较线立交匝道编号匝道桩号正线炼油厂比较线立交匝道编号匝道桩号平吉堡匝道编号匝道桩号匝道编号超高（或横坡）推算高程至主线（或匝道）距离超高（或横坡）对应主线（或接匝道）-0.4766%坡度匝道桩号备注正线炼油厂推荐方案对应主线（或接匝道）正线炼油厂推荐方案坡度备注至主线（或匝道）距离推算高程推算高程超高（或横坡）对应主线（或接匝道）坡度备注至主线（或匝道）距离推算高程正线炼油厂推荐方案1.9171%正线炼油厂推荐方案0.3269%超高（或横坡）对应主线（或接匝道）坡度备注至主线（或匝道）距离A 匝道与主线相交处主线标高1114.051120.75桩号高程起点接A 匝道C K0+.7%K0+585.831116.904 2.251117.0615-2.50%终点接主线C K0+320.522%###########1114.0511.51113.84鼻端C#########2%K015+506.221114.0518.991113.69020.07桩号高程起点接B匝道终点D K0+.7%K0+702.811116.34 2.251116.1825-2.50%终点接主线D K0+220.432%K021+418.221113.8611.51113.65鼻端DK0+157.532%K021+480.31113.8618.681113.5064桩号高程终点接B 匝道终点E K0+272.947%K0+702.811116.34 2.251116.4975-2.50%起点接主线点E K0+.2%K021+189.321113.8614.981113.5804鼻端EK0+48.992%K021+237.971113.8619.231113.49540.07桩号高程终点接A 匝道终点D K0+350.297%K0+976.941116.735 2.251116.5775 1.71%起点接主线点D K0+.2%K023+600.271114.76611.51114.556鼻端DK0+124.332%K023+476.571113.46919.371113.1016桩号高程起点接A 匝道终点E K0+.7%K0+976.941116.735 2.251116.8925 1.71%终点接主线点E K0+298.882%K023+125.641115.05211.51114.842鼻端EK0+207.412%K023+216.331113.983191113.623-0.07桩号高程起点接E匝道终点D K0+.7%K0+610.711112.514 2.251112.6715 2.00%终点接主线点D K0+273.2%K023+576.251114.43711.51114.227鼻端DK0+205.642%K023+642.971115.39417.451115.065 1.2441%E 匝道下穿主线对应主线（或接匝道）坡度备注至主线（或匝道）距离推算控制点高程望远比较匝道编号匝道桩号超高（或横坡）至主线（或匝道）距离推算控制点高程高桥匝道编号匝道桩号超高（或横坡）-0.1591%植物园匝道编号匝道桩号超高（或横坡）对应主线（或接匝道）坡度备注对应主线（或接匝道）坡度备注至主线（或匝道）距离推算控制点高程-0.2283%高桥匝道编号匝道桩号超高（或横坡）对应主线（或接匝道）坡度备注至主线（或匝道）距离推算控制点高程-0.1735%望远推荐匝道编号匝道桩号超高（或横坡）对应主线（或接匝道）坡度备注至主线（或匝道）距离推算控制点高程对应主线（或接匝道）坡度备注至主线（或匝道）距离推算控制点高程望远推荐匝道编号匝道桩号超高（或横坡）-1.3327%-1.1698%桩号高程终点接E匝道终点C K0+210.987%K0+610.711112.514 2.251112.3565 2.00%起点接主线点C K0+.2%K023+852.751118.05912.841117.8222鼻端CK0+41.6882%K023+811.51117.59217.521117.2616桩号高程终点接M 匝道终点CK0+971.549%K02+271.0111164.51115.5950.00%桩号高程起点接M 匝道终点D K0+.9%K02+271.0111164.51116.4050.00%0.09D 0D1.1751122.1845桩号高程起点接F 匝道终点J K0+.7%FK0+586.851123.517 2.251123.6745 2.35%终点接主线点J K0+257.962%###########1119.01211.51118.802鼻端JK0+191.292%K015+218.521120.07518.871119.717666.67桩号高程终点接F 匝道终点I K0+198.77%FK0+586.851123.517 2.251123.3595 2.35%起点接主线点I K0+.2%K015+430.21123.12316.441122.8142鼻端IK0+35.582%K015+394.741122.61219.21122.248桩号高程终点接A匝道终点D K0+198.77%K0+466.71114.0412.251113.8835 2.64%起点接银灵路D K0+.2%0.02鼻端DK0+35.582%0.02桩号高程起点接A匝道终点E K0+198.77%K0+466.71114.0412.251114.1985 2.64%E K0+.2%0.02鼻端EK0+35.582%0.02E 匝道下穿主线至主线（或匝道）距离推算控制点高程石坝推荐坡度备注至主线（或匝道）距离推算控制点高程1.3733%石坝推荐匝道编号匝道桩号超高（或横坡）备注至主线（或匝道）距离推算控制点高程#DIV/0!对应主线（或接匝道）推算控制点高程#DIV/0!白鸽比较匝道编号匝道桩号超高（或横坡）对应主线（或接匝道）坡度白鸽比较匝道编号匝道桩号超高（或横坡）对应主线（或接匝道）坡度备注至主线（或匝道）距离-1.3447%E 匝道下穿主线坡度备注望远比较匝道编号匝道桩号超高（或横坡）对应主线（或接匝道）至主线（或匝道）距离推算控制点高程石坝推荐匝道编号匝道桩号超高（或横坡）对应主线（或接匝道）坡度备注匝道编号匝道桩号超高（或横坡）对应主线（或接匝道）坡度备注至主线（或匝道）距离推算控制点高程0.0000%-1.5913%坡度至主线（或匝道）距离本段为接银灵路只修改终点标高石坝推荐匝道编号匝道桩号超高（或横坡）对应主线（或接匝道）本段为接银灵路只修改终点标高0.0000%备注推算控制点高程桩号高程终点接F匝道终点I K0+603.345%FK0+214.91124 2.251123.8875 3.18%起点接主线点I K0+.2%K015+903.671129.93112.381129.7034鼻端I K0+75.912%K015+828.131128.8519.121128.4876桩号高程终点接I匝道J K0+265.55%IK0+551.491124.757 3.51124.582 3.18%起点接主线点J K0+.2%K015+404.711122.75614.271122.4906鼻端J K0+56.92%K015+461.341123.57119.11123.2091.26%-1.6016%坡度备注推算控制点高程石坝比较匝道编号匝道桩号超高（或横坡）对应主线（或接匝道）至主线（或匝道）距离推算控制点高程对应主线（或接匝道）坡度备注至主线（或匝道）距离石坝比较匝道编号匝道桩号超高（或横坡）。

应用EXCEL快速计算圆曲线细部点坐标

1计算方法
1.1思路及公式依据
图1-1
以右曲线为例，如图1-1所示，O为圆曲线圆心点，R为圆曲线半径，a为圆曲线转角，ZD为直线上点，ZY为直圆点、JD为圆曲线交点，YZ为圆直点，以上坐标与桩号为已知点，通过已知要素可以计算出未知的曲线元素，这里不再做祥细介绍了。要想计算曲线上细部点坐标，如计算A1坐标，首先要计算出直线OZY的方位角：
Dim du As Double
Dim fen As Double
Dim miao As Double
Dim hu As Double
du = Int(D)
fen = Int((D - Int(D)) * 100)
miao = (D * 100 - Int(D *; fen / 60 + miao / 3600) * 3.14159265358979 / 180
U = U / 180 * 3.14159265358979
'坐标正算待求点的“X”坐标
ZBZS_x = x1+ Cos(U) * s
End Function
'坐标正算待求点的“Y”坐标
Public Function ZBZS_y(y1, U, s) As Double
ZBZS_y = y1 + Sin(U) * s
图2-1
这里应用了调用自定义函数，其主要编写的简易过程和用法。
2.2自定义函数的编写
以2010版Excel为例，打开EXCEL界面中菜单的“工具”—“宏” —“Visual Basic编辑器（V）或用快捷键“ALT+F11”，然后打开Microsoft Visual Basic编辑界面，并插入模块，默认为“模块1”，也可重命名，并在该模块界面中输入和添加以下程序代码。如图2-2所示；

圆曲线中边桩坐标计算公式

圆曲线中边桩坐标计算公式： L=F-H；注：L---所求点曲线长；F---所求点里程；H---圆曲线起点（ZY点桩号里程）X=XZY+2×R×SIN（L÷2R）×COS｛α±(L÷2R)｝+S×COS｛α±(L÷R)+M｝; Y =YZY+2×R×SIN（L÷2R）×SIN｛α±(L÷2R)｝+S×SIN｛α±(L÷R)+M｝. 注：α---线路方位角；M---所求边桩与路线的夹角；S---所求边桩至中桩的距离；"±"---曲线左偏取“-”右偏取“+”；当S=0时为中桩坐标。

经高速公路施工一线使用效果很好。

记住在公式中加入Excel的Radians（）函数将度转为弧度即可轻松方便地使用，从ZY点坐标准确快速推算地计算出整条圆曲线。

注意要分清左偏右偏两种情况。

高速公路线路坐标计算公式:高速公路的一些线路坐标、高程计算公式(缓和曲线、竖曲线、圆曲线、匝道)一、缓和曲线上的点坐标计算已知：①缓和曲线上任一点离ZH点的长度：l②圆曲线的半径：R③缓和曲线的长度：l④转向角系数：K(1或－1)⑤过ZH点的切线方位角：α⑥点ZH的坐标：xZ ，yZ计算过程：说明：当曲线为左转向时，K=1，为右转向时，K=-1，公式中n的取值如下：当计算第二缓和曲线上的点坐标时，则：l为到点HZ的长度α为过点HZ的切线方位角再加上180°K值与计算第一缓和曲线时相反xZ ，yZ为点HZ的坐标切线角计算公式：二、圆曲线上的点坐标计算已知：①圆曲线上任一点离ZH点的长度：l②圆曲线的半径：R③缓和曲线的长度：l④转向角系数：K(1或－1)⑤过ZH点的切线方位角：α⑥点ZH的坐标：xZ ，yZ计算过程：说明：当曲线为左转向时，K=1，为右转向时，K=-1，公式中n的取值如下：当只知道HZ点的坐标时，则：l为到点HZ的长度α为过点HZ的切线方位角再加上180°K值与知道ZH点坐标时相反xZ ，yZ为点HZ的坐标三、曲线要素计算公式公式中各符号说明：l——任意点到起点的曲线长度（或缓曲上任意点到缓曲起点的长度）l1——第一缓和曲线长度l2——第二缓和曲线长度l——对应的缓和曲线长度R——圆曲线半径R1——曲线起点处的半径R2——曲线终点处的半径P1——曲线起点处的曲率P2——曲线终点处的曲率α——曲线转角值四、竖曲线上高程计算已知：①第一坡度：i1(上坡为“＋”，下坡为“－”)②第二坡度：i2(上坡为“＋”，下坡为“－”)③变坡点桩号：SZ④变坡点高程：HZ⑤竖曲线的切线长度：T⑥待求点桩号：S计算过程：五、超高缓和过渡段的横坡计算已知：如图，第一横坡：i1第二横坡：i2过渡段长度：L待求处离第二横坡点（过渡段终点）的距离：x求：待求处的横坡：i解：d=x/Li=(i2-i1)(1-3d2+2d3)+i1六、匝道坐标计算已知：①待求点桩号：K②曲线起点桩号：K③曲线终点桩号：K1④曲线起点坐标：x0，y⑤曲线起点切线方位角：α⑥曲线起点处曲率：P(左转为“－”，右转为“＋”)⑦曲线终点处曲率：P1(左转为“－”，右转为“＋”)求：①线路匝道上点的坐标：x,y②待求点的切线方位角：αT计算过程：注：sgn(x)函数是取符号函数，当x<0时sgn(x)=-1，当x>0时sgn(x)=1，当x=0时sgn(x)=0。

圆曲线在excel中函数

圆曲线在excel中函数符号说明：■x—起点X坐标值所在单元格■y—起点Y坐标值所在单元格—起点方位角所在单元格◆—起点里程所在单元格◇—计算点里程所在单元格注:EXCEL中π=PI() Lo2=Lo^2= POWER(Lo,2) 弧度=RADIANS(度)一．方位角计算公式1.直线段方位=(PI()*(1-SIGN(□x-$■x)/2)-ATAN((A3-$A$1)/(□y-$■y)))*180/PI()2.缓和曲线上方位角(α) =$?±90*POWER(◇-$◆,2)/(P()*R* Ls)3.圆曲线上方位角(α) =$?±180°*(◇-$◆)/(PI()*R）二．坐标值计算公式1．直线段坐标值计算公式：X= $■x+(◇-$◆)*COS(RADIANS($?))Y= $■y+(◇-$◆)*SIN(RADIANS($?))2．缓和曲线及圆曲线上坐标值计算公式：①缓和曲线坐标值计算公式：X=$■x+((◇-$◆)-(◇-$◆)^5/(40*R^2*Ls^2)+(◇-$◆)^9/(3456*R^4*Ls^4)-(◇-$◆)^13/(599040*R^6*Ls^6)+(◇-$◆)^17/(175472640*R^8*Ls^8))*COS(RADIANS($▲))-((◇-$◆)^3/(6*R*Ls)-(◇-$◆)^7/(336*R^3*Ls^3)+(◇-$◆)^11/(42240*R^5*Ls^5)-(◇-$◆)^15/(9676800*R^7*Ls^7)+(◇-$◆)^19/(3530096640*R^9*Ls^9))*SIN(RADIANS($▲))Y=$■y+((◇-$◆)-(◇-$◆)^5/(40*R^2*Ls^2)+(◇-$◆)^9/(3456*R^4*Ls^4)-(◇-$◆)^13/(599040*R^6*Ls^6)+(◇-$◆)^17/(175472640*R^8*Ls^8))*SIN(RADIANS($▲))+((◇-$◆)^3/(6*R*Ls)-(◇-$◆)^7/(336*R^3*Ls^3)+(◇-$◆)^11/(42240*R^5*Ls^5)-(◇-$◆)^15/(9676800*R^7*Ls^7)+(◇-$◆)^19/(3530096640*R^9*Ls^9))*COS(RADIANS($▲))②圆曲线上坐标计算公式：X=$■x+2*R*SIN(RADIANS(90*(◇-$◆)/(PI()*R)))*COS(RADIANS($▲)+RADIANS(90*(◇-$◆)*/(PI()*R))) Y=$■y+2*R*SIN(RADIANS(90*(◇-$◆)/(PI()*R)))*SIN(RADIANS($▲)+RADIANS(90*(◇-$◆)*/(PI()*R)))或者X=$■x+2*R*SIN((◇-$◆)/2*R)*COS(RADIANS($▲)+((◇-$◆)/2*R))Y=$■y+2*R*SIN((◇-$◆)/2*R)*SIN(RADIANS($▲)+((◇-$◆)/2*R))。

EXCEL快速计算任何难度的道路中线、边线坐标

EXCEL快速计算任何难度的道路中线、边线坐标主程序Public i As IntegerPublic pi As DoubleSub TP()Dim ii As IntegerDim k(1000) As DoubleDim xzq, yzq, kq, xzh, yzh, kzh, xjd, yjd, kjd, khy, kyh As Double'直线区域pi = 3.14159265358979xzq = 71862.642yzq = 63474.651kq = 0 '因为直线连接终点为ZH点，与圆曲线起点为同一点，所以在直线区域不定义ZH点参数'直线区域'曲线区域xzh = 71858.3267yzh = 63375.2684kzh = 99.4763xhz = 71909.3687yhz = 63283.8076 '曲线区域定义内容有：ZH（坐标、里程）、HZ（坐标、里程）、JD（坐标、里程）khz = 212.3392 'R（半径）、LS（缓和曲线长度）、HY（里程）、YH（里程）xjd = 71855.658yjd = 63313.806kjd = 160.9966ls = 30r = 75khy = 129.4763kyh = 182.3385'曲线区域i = 2 '从第二格开始读取数据所以定义I=2ii = 1 '桩号从第一个开始启用，所以定义II=2Dok(ii) = Workbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i, 1) '定义桩号等于读取数据If Workbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i, 1) = "" Then Exit Do '当没有数据读取时退出循环If k(ii) < kq Then '若计算点超过计算起点给予提示并退出程序MsgBox ("猪啊！！你的输入的桩号居然超过计算起点桩号")Exit SubElseIf k(ii) <= kzh Then '若计算点在ZH点前，则进入直线程序Call zx(xzq, yzq, kq, xzh, yzh, kzh, k(ii))ElseIf kzh < k(ii) And k(ii) <= khy Then '若计算点在ZH和HY之间则调入前段缓和曲线程序Call qhhqx(xzh, yzh, kzh, xhz, yhz, khz, xjd, yjd, kjd, ls, r, k(ii))ElseIf khy < k(ii) And k(ii) <= kyh Then '若计算点在HY和YH之间则调入圆曲线程序Call yqx(xzh, yzh, kzh, xhz, yhz, khz, xjd, yjd, kjd, ls, r, k(ii))ElseIf kyh < k(ii) And k(ii) <= khz Then '若计算点在YH和HZ之间则调入后段缓和曲线程序Call hhhqx(xzh, yzh, kzh, xhz, yhz, khz, xjd, yjd, kjd, ls, r, k(ii))ElseMsgBox ("笨啊！！数据已超出计算范围了") '若出现超出范围的桩号则给与提示并退出程序Exit SubEnd Ifi = i + 1ii = ii + 1LoopEnd Sub直线模块Sub zx(ByV al xzq As Double, ByV al yzq As Double, ByV al kq As Double, ByV al xzh As Double, ByV al yzh As Double, ByV al kzh As Double, ParamArray k())fw = fwj(xzh, xzq, yzh, yzq) '首先调入方位角程序计算直线方位角x = xzq + (k(ii) - kq) * Cos(fw) '然后根据桩号和长度计算出坐标值y = yzq + (k(ii) - kq) * Sin(fw)zdfm = dfm(fw) '将弧度形式的前进方位角转换度分秒形式'输出坐标值以弧度和度分秒形式的前进方位角Workbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i, 2) = xWorkbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i, 3) = yWorkbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i, 4) = fwWorkbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i, 5) = zdfmEnd Sub圆曲线模块Sub yqx(ByV al xzh As Double, ByV al yzh As Double, ByV al kzh As Double, ByV al xhz As Double, ByV al yhz As Double, ByV al khz As Double, ByV al xjd As Double, ByV al yjd As Double, ByV al kjd As Double, ByV al ls As Double, ByV al r As Double, ParamArray k())l = Abs(k(ii) - kzh) '计算ZH点（因为以直缓点起算）到待求桩号的弧度长度ly = l - ls / 2 '计算圆弧长度p = ls ^ 2 / 24 / r - ls ^ 4 / 2688 / r ^ 3 '曲线内移值m = ls / 2 - ls ^ 3 / 240 / r ^ 2 '曲线切线长增量u = r * Sin(ly / r) + m '偏量坐标计算v = r * (1 - Cos(ly / r)) + p'调入方位角fwq = fwj(xjd, xzh, yjd, yzh) '计算ZH点方位角fwh = fwj(xhz, xjd, yhz, yjd) '计算HZ点方位角（此角作用是用来推算曲线是左偏还是右偏）'调入偏角判定nq = n(fwq, fwh) '计算偏角方向，左偏为-1右偏为1'计算坐标x = u * Cos(fwq) - nq * v * Sin(fwq) + xzhy = u * Sin(fwq) + nq * v * Cos(fwq) + yzhd = (90 * (2 * l - ls) / pi / r) * pi / 180 '计算圆曲线上的偏角（此句要点为角度必须转换为弧度即：pi/180）fw = fwq + d * nq '计算前进方位角zdfm = dfm(fw) '将弧度形式的前进方位角转换度分秒形式'输出坐标值以弧度和度分秒形式的前进方位角Workbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i, 2) = xWorkbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i, 3) = yWorkbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i, 4) = fwWorkbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i, 5) = zdfmEnd Sub前缓和段Sub qhhqx(ByV al xzh As Double, ByV al yzh As Double, ByV al kzh As Double, ByV al xhz As Double, ByV al yhz As Double, ByV al khz As Double, ByV al xjd As Double, ByV al yjd As Double, ByV al kjd As Double, ByV al ls As Double, ByV al r As Double, ParamArray k())l = Abs(k(ii) - kzh) '计算测点到ZH点的距离u = l - l ^ 5 / 40 / r ^ 2 / ls ^ 2 + l ^ 9 / r ^ 4 / ls ^ 4 / 3456 '计算偏量v = l ^ 3 / 6 / r / ls - l ^ 7 / 336 / r ^ 3 / ls ^ 3'用公式二则以下两计算可省略(圆曲线和后缓和曲线也同理)Rem t = Atn(v / u)Rem s = Sqr(u ^ 2 + v ^ 2)'调入方位角计算fwq = fwj(xjd, xzh, yjd, yzh) '计算ZH点方位角fwh = fwj(xhz, xjd, yhz, yjd) '计算HZ点方位角（此角作用是用来推算曲线是左偏还是右偏）'调入偏角判定nq = n(fwq, fwh) '计算偏角方向，左偏为-1右偏为1'结果计算Rem x = xzh + s * Cos(fwq + nq * t)Rem y = yzh + s * Sin(fwq + nq * t)x = u * Cos(fwq) - nq * v * Sin(fwq) + xzh '经过测试，计算结果中的两种公式计算结果是一样的y = u * Sin(fwq) + nq * v * Cos(fwq) + yzhd = (90 * l * l / pi / r / ls) * pi / 180 '计算缓和曲线上的偏角（此句要点为角度必须转换为弧度即：pi/180）fw = fwq + d * nq '计算前进方位角zdfm = dfm(fw) '将弧度形式的前进方位角转换度分秒形式'输出坐标值以弧度和度分秒形式的前进方位角Workbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i, 2) = xWorkbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i, 3) = yWorkbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i, 4) = fwWorkbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i, 5) = zdfmEnd Sub后缓和段模块Sub hhhqx(ByV al xzh As Double, ByV al yzh As Double, ByV al kzh As Double, ByV al xhz As Double, ByV al yhz As Double, ByV al khz As Double, ByV al xjd As Double, ByV al yjd As Double, ByV al kjd As Double, ByV al ls As Double, ByV al r As Double, ParamArray k())l = Abs(k(ii) - khz) '计算测点到HZ点的距离（后缓和曲线是以HZ点为起点）u = l - l ^ 5 / 40 / r ^ 2 / ls ^ 2 + l ^ 9 / r ^ 4 / ls ^ 4 / 3456 '计算偏量v = l ^ 3 / 6 / r / ls - l ^ 7 / 336 / r ^ 3 / ls ^ 3Rem t = Atn(v / u)Rem s = Sqr(u ^ 2 + v ^ 2)'调入方位角计算fwq = fwj(xjd, xzh, yjd, yzh) '计算ZH点方位角fwh = fwj(xhz, xjd, yhz, yjd) '计算HZ点方位角（此角作用是用来推算曲线是左偏还是右偏）'调入偏角判定nh = n(fwh, fwq) '计算偏角方向，左偏为-1右偏为1（注意：因为是从后HZ点起算，所以必须将HZ点方位角放在前ZH放在后）'结果计算Rem x = xzh + s * Cos(fwq + nq * t)Rem y = yzh + s * Sin(fwq + nq * t)x = xhz - (u * Cos(fwh) - nh * v * Sin(fwh)) '经过测试，计算结果中的两种公式计算结果是一样的y = yhz - (u * Sin(fwh) + nh * v * Cos(fwh))d = (90 * l * l / pi / r / ls) * pi / 180 '计算缓和曲线上的偏角（此句要点为角度必须转换为弧度即：pi/180）fw = fwh + d * nh '计算前进方位角zdfm = dfm(fw) '将弧度形式的前进方位角转换度分秒形式'输出坐标值以弧度和度分秒形式的前进方位角Workbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i, 2) = xWorkbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i, 3) = yWorkbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i, 4) = fwWorkbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i, 5) = zdfmEnd Sub偏角模块Function n(ByV al fw1 As Double, ByV al fw2 As Double) As Doublepj = fw1 + pi - fw2 '前进的右角pjIf pj - pi > 0 Then '当右角pj-pi 〉0时为左偏否则为右偏n = -1Else: n = 1End IfEnd Function方位角模块Function fwj(ByV al x1 As Double, ByV al x2 As Double, ByV al y1 As Double, ByV al y2 As Double) As Double'计算增量x0 = x1 - x2y0 = y1 - y2'由增量判断方位角所在象限，不同象限取不同的值If x0 = 0 And y0 > 0 Thenfwj = pi / 2 '当在大地坐标中偏量在X轴上的值时ElseIf x0 = 0 And y0 < 0 Thenfwj = 3 * pi / 2 '当在大地坐标中偏量在负X轴上的值时ElseIf x0 < 0 Thenfwj = Atn(y0 / x0) + pi '当在大地坐标中偏量在第二第三象限上的值时ElseIf x0 > 0 And y0 < 0 Thenfwj = Atn(y0 / x0) + 2 * pi '当在大地坐标中偏量在第四象限上的值时Elsefwj = Atn(y0 / x0) '当在大地坐标中偏量在第一象限上的值时End IfEnd Function度分秒模块Function dfm(ByV al ao As Double) As V ariantao = ao * 180 / pi '将弧度转化为度jd = Int(ao) '计算度jf = Int(ao * 60 - jd * 60) '计算分jmx = (ao - jd - jf / 60) * 3600 '计算秒jm = Left(jmx, 8) '因为拆分出来的秒数经常占到十多位，所以只取秒数的前八位dfm = jd & "°" & jf & "′" & jm & "″" '连接度分秒End Function边桩公式(此公式在电子表格中直接输入)：=B2+J2*COS(D2+RADIANS(L2)+PI()) =C2+J2*SIN(D2+RADIANS(L2)+PI()) =B2+K2*COS(D2+RADIANS(M2)) =C2+K2*SIN(D2+RADIANS(M2))=B3+J3*COS(D3+RADIANS(L3)+PI()) =C3+J3*SIN(D3+RADIANS(L3)+PI()) =B3+K3*COS(D3+RADIANS(M3)) =C3+K3*SIN(D3+RADIANS(M3))=B4+J4*COS(D4+RADIANS(L4)+PI()) =C4+J4*SIN(D4+RADIANS(L4)+PI()) =B4+K4*COS(D4+RADIANS(M4)) =C4+K4*SIN(D4+RADIANS(M4))=B5+J5*COS(D5+RADIANS(L5)+PI()) =C5+J5*SIN(D5+RADIANS(L5)+PI()) =B5+K5*COS(D5+RADIANS(M5)) =C5+K5*SIN(D5+RADIANS(M5))=B6+J6*COS(D6+RADIANS(L6)+PI()) =C6+J6*SIN(D6+RADIANS(L6)+PI()) =B6+K6*COS(D6+RADIANS(M6)) =C6+K6*SIN(D6+RADIANS(M6))=B7+J7*COS(D7+RADIANS(L7)+PI()) =C7+J7*SIN(D7+RADIANS(L7)+PI()) =B7+K7*COS(D7+RADIANS(M7)) =C7+K7*SIN(D7+RADIANS(M7))=B8+J8*COS(D8+RADIANS(L8)+PI()) =C8+J8*SIN(D8+RADIANS(L8)+PI()) =B8+K8*COS(D8+RADIANS(M8)) =C8+K8*SIN(D8+RADIANS(M8))=B9+J9*COS(D9+RADIANS(L9)+PI()) =C9+J9*SIN(D9+RADIANS(L9)+PI()) =B9+K9*COS(D9+RADIANS(M9)) =C9+K9*SIN(D9+RADIANS(M9))=B10+J10*COS(D10+RADIANS(L10)+PI()) =C10+J10*SIN(D10+RADIANS(L10)+PI()) =B10+K10*COS(D10+RADIANS(M10)) =C10+K10*SIN(D10+RADIANS(M10))=B11+J11*COS(D11+RADIANS(L11)+PI()) =C11+J11*SIN(D11+RADIANS(L11)+PI()) =B11+K11*COS(D11+RADIANS(M11)) =C11+K11*SIN(D11+RADIANS(M11))=B12+J12*COS(D12+RADIANS(L12)+PI()) =C12+J12*SIN(D12+RADIANS(L12)+PI()) =B12+K12*COS(D12+RADIANS(M12)) =C12+K12*SIN(D12+RADIANS(M12))=B13+J13*COS(D13+RADIANS(L13)+PI()) =C13+J13*SIN(D13+RADIANS(L13)+PI()) =B13+K13*COS(D13+RADIANS(M13)) =C13+K13*SIN(D13+RADIANS(M13))=B14+J14*COS(D14+RADIANS(L14)+PI()) =C14+J14*SIN(D14+RADIANS(L14)+PI()) =B14+K14*COS(D14+RADIANS(M14)) =C14+K14*SIN(D14+RADIANS(M14))=B15+J15*COS(D15+RADIANS(L15)+PI()) =C15+J15*SIN(D15+RADIANS(L15)+PI()) =B15+K15*COS(D15+RADIANS(M15)) =C15+K15*SIN(D15+RADIANS(M15))=B16+J16*COS(D16+RADIANS(L16)+PI()) =C16+J16*SIN(D16+RADIANS(L16)+PI()) =B16+K16*COS(D16+RADIANS(M16)) =C16+K16*SIN(D16+RADIANS(M16))=B17+J17*COS(D17+RADIANS(L17)+PI()) =C17+J17*SIN(D17+RADIANS(L17)+PI()) =B17+K17*COS(D17+RADIANS(M17)) =C17+K17*SIN(D17+RADIANS(M17))=B18+J18*COS(D18+RADIANS(L18)+PI()) =C18+J18*SIN(D18+RADIANS(L18)+PI()) =B18+K18*COS(D18+RADIANS(M18)) =C18+K18*SIN(D18+RADIANS(M18))=B19+J19*COS(D19+RADIANS(L19)+PI()) =C19+J19*SIN(D19+RADIANS(L19)+PI()) =B19+K19*COS(D19+RADIANS(M19)) =C19+K19*SIN(D19+RADIANS(M19))=B20+J20*COS(D20+RADIANS(L20)+PI()) =C20+J20*SIN(D20+RADIANS(L20)+PI()) =B20+K20*COS(D20+RADIANS(M20)) =C20+K20*SIN(D20+RADIANS(M20))=B21+J21*COS(D21+RADIANS(L21)+PI()) =C21+J21*SIN(D21+RADIANS(L21)+PI()) =B21+K21*COS(D21+RADIANS(M21)) =C21+K21*SIN(D21+RADIANS(M21))=B22+J22*COS(D22+RADIANS(L22)+PI()) =C22+J22*SIN(D22+RADIANS(L22)+PI()) =B22+K22*COS(D22+RADIANS(M22)) =C22+K22*SIN(D22+RADIANS(M22))=B23+J23*COS(D23+RADIANS(L23)+PI()) =C23+J23*SIN(D23+RADIANS(L23)+PI()) =B23+K23*COS(D23+RADIANS(M23)) =C23+K23*SIN(D23+RADIANS(M23))呵呵，这个就是传说已久的EXCEL自动计算曲线坐标．给大家研究研究．欢迎在此基础上开发增加新模块。