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快速计算任何难度的道路中线、边线坐标主程序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自动计算曲线坐标．给大家研究研究．欢迎在此基础上开发增加新模块。
极坐标法圆曲线测设中Excel的应用
行， 提高工作效率。针对 Ｚ Ｙ点设 站极坐标法 圆曲 线的测设中， 用 Ｅ ｃｌ 采 ｘｅ 软件实 现放样数据计算进
行 了探 讨 。
ｌ Ｚ 点 设 站 极 坐 标 法 圆 曲 线 测 设 概 Ｙ 述
应用 此方 法测 设 圆 曲线 时 ， 仪器 可 以安 置 在 任 意控制点上 ， 包括路线上的交点 、 转点等 已知点。其
测设数据主要是计算 圆曲线 主点和细部点的坐标 ， 然后根据控制点和细部点的坐标 ， 反算 出极坐标法 的测设 数据— — 测站 至待 测设 点 的方 位角 和水 平距 离。使用全站仪测设时 ， 则可直接将已知点、 圆曲线 主点及细部点的坐标编辑成文本 文件 ， 然后 上传到 仪器中进行测设。
３４ ． ０ １０ ０ ０
２ ， ９ ７ １８
哇 ． ９ ７ １８
６ ． ９ ７ １８
１５ ８ ０３ ６ ． ５ ３ ４９
２ ７ ４ １９ ７ ． ０ ２ ９８ ３ ０ ３５ ７ ． ５ １ ５７
２． ９ ７ １４
４． ８ ７ １０
６ ．哇 ７ １７
２７ ４ ５９ ６ ７。 ３ ２３
ｌ
ｌ
｛
条件限制， 不能连续测设大型曲线 或测设 时误差积
累较大等不足 ； 第二类则是 随着全站仪 的普及而发 展起 来 的极 坐标 放 样法 ， 此种 方 法设 站灵 活多样 ， 选 择余 地较 大 ， 并且 坐 标 独 立计 算 ， 误 差 积 累 ， 无 测设
精度 较高 ， 曲线 主点 测 设 与 曲线 详 细 测 设 可 同 时进
摘
要： 公路 和铁路圆曲线测设 的计算工 作量大 ， 测设 数据计算 采用 Ｅ ｃｌ ｘｅ 编程处 理 ， 以简 化复杂 的计 算工 作 ， 可 提
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中函数
圆曲线在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)
曲线道路坐标计算§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在公路线路坐标计算中的应用
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中函数
=(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）
符号说明：
■x—起点X坐标值所在单元格
■y—起点Y坐标值所在单元格
?—起点方位角所在单元格
◆中π=PI() Lo2=Lo^2= POWER(Lo,2) 弧度=RADIANS(度)
一．方位角计算公式
1.直线段方位
*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((◇-$◆)/2*R)*SIN(RADIANS($▲)+((◇-$◆)/2*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)
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电子表格在高速公路曲线坐标计算中的应用
Excel电子表格在高速公路曲线坐标计算中的应用
刘康成
【期刊名称】《山西建筑》
【年(卷),期】2011(037)016
【摘要】结合工作实践,论述了Excel电子表格在高速公路曲线坐标计算中的应用,详细介绍了编辑Excel工作表的过程及操作要点,并引申到边桩放样坐标计算,以期简化现场施工放样过程,提高施工技术人员工作效率.
【总页数】2页(P255-256)
【作者】刘康成
【作者单位】中铁十二局第一工程有限公司,山西临汾,041000
【正文语种】中文
【中图分类】TP317.1
【相关文献】
1.EXCEL电子表格在公路测量施工中的应用——海滨大道路基、桥梁中桩坐标计算及放样 [J], 徐刚;王继刚
2.EXCEL结合VBA在道路综合曲线中桩坐标计算中的应用 [J], 教传辉;曾利君
3.EXCEL结合VBA在道路综合曲线中桩坐标计算中的应用 [J], 教传辉;曾利君
4.VSTO_.NET平台下Excel开发技术在道路缓和曲线坐标计算中的应用 [J], 曾凯宁
5.Excel表格在高速公路曲线坐标计算中的应用 [J], 王进秀
因版权原因，仅展示原文概要，查看原文内容请购买。
圆曲线超高-道路工程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结合VBA在道路综合曲线中桩坐标计算中的应用
２ ． Ｉ ｙ
ｚｄＳｂ ｎ ｑ
一
ＶＢ Ａ模 块 还 可 以保 存 函 数 过 程 。 函盘 过 程 能 执 行 计 算 并返 回
一
规挂
｝ Ｉ
个值 。 函数可 以从 另一个Ｖ Ａ过程 中调用 ， Ｂ 甚至可以用于 一个 工 作表 公式。 下面是一 个名 为ｆ ｃ这是 由二个 已知点坐标反算边长 ， ｓ （ ｂ ｄ ｄ 这两个值作 为参数提供 ） ｘ、ｙ 的函数 的例 子。
ｓ 蕈曲蛾 曲 文畔 标如 Ｉ ｚ ｌ， ．ｒ Ｂ， ｚＪ ｉ Ｊ口
－ ＝ ａｉ— Ｌｏ ）， ｒ ＋ Ｂ ０
公酶练台 曲线放样计算表格
＾
鲳算教
变 点
巴帮１ 去史点坐姆 ． ３
ｊ交点蔓 程 交点 坐标 （） 交点坐标（】 叠和曲 ｘ Ｔ 娥长 （ｅＩ曲 １） 鳢半径 （ 圈 Ｒ
一
１ 、ＶＢ 简介 Ａ
“
通过在Ｖ Ａ模块表 中编写（ Ｂ 或宏录制） 用Ｖ Ａ执行操作 ， 代码 Ｂ 然 后以多种方法 中的任 意一 种来执行宏 。 Ａ 块保 存在Ｅ ｃｌ ＶＢ 模 ｘｅ工作 簿中， 一个工作簿可 以存储任意数量 的ＶＢ 模块 。 ＢＡ Ａ Ｖ 模块 由过程 组成 。 一段 过程是执行某些操作的程序代码 。 下面是一个计算“ 圆曲 线坐标 ” 简单子过程 的例子 ： 的
摘要 ： 在公 路 中桩 线路 放 样 工作 中， 没 有 专业 设计 软件 辅 助计 算情 况 下 ， 路 中桩 特别 是 带有缓 和 曲线 的复 合 曲线 上的 中桩 里程 与 坐标 在 道 里 程 与 坐标 的 计 算是 很 繁琐 的事 ， 需要 进 行 大量 的 、 杂 的计 算 ， 复 费神 费 时 间 ， 且极 易 出错 。 如何 快 速 而 又精 确地 计 算 出公 路 复合 曲线 中桩 里 程 与 坐标 ？ 者 利 用寄 生于Ｍｉｒｓｆ Ｅ ｃｌ Ｂ 编制 计 算程 序 ， 笔 ｃ０ｏｔ ｘ ｅ￣Ｖ Ａ， 对解 决 复 杂的 综合 曲线 中桩 里 程与 坐标 的 计算 进行 了有 益 的尝 试 。 关键 词 ：Ｂ 综合 曲线 坐标 计算 Ｖ Ａ
应用EXCEL快速计算圆曲线细部点坐标
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所示；
EXCEL结合VBA在道路综合曲线中桩坐标计算中的应用
EXCEL结合VBA在道路综合曲线中桩坐标计算中的应用作者：教传辉曾利君来源：《数字技术与应用》2012年第01期摘要：在公路中桩线路放样工作中，在没有专业设计软件辅助计算情况下，道路中桩特别是带有缓和曲线的复合曲线上的中桩里程与坐标里程与坐标的计算是很繁琐的事，需要进行大量的、复杂的计算，费神费时间，且极易出错。
如何快速而又精确地计算出公路复合曲线中桩里程与坐标？笔者利用寄生于Microsoft Excel的VBA，编制计算程序，对解决复杂的综合曲线中桩里程与坐标的计算进行了有益的尝试。
关键词：VBA 综合曲线坐标计算中图分类号：TP29 文献标识码：A 文章编号：1007-9416(2012)01-0043-021、VBA简介VBA的全称是Visual Basic for Applications的简称。
其意思是开发环境被整合到了某个应用程序的Visual Basic语言。
作为一种自动化语言工具，提供了计算人员充分的自由，做几乎任何其他编程语言或者环境能做的事情，避免重复的手工劳动。
它可以使常用的程序自动化,可以创建自定义的解决方案。
“一段宏代码”和“一段VBA代码”是等价的。
Office的自动录制功能可以帮你录制一个宏，实际上就是把对EXCEL表格的计算、格式操作等用VBA代码的形式记录下来。
在录制宏的基础上编写VBA代码可以极大地节省编写代码的工作量，特别是在对计算表格的单元格格式操作时。
2、工作机理分析通过在VBA模块表中编写(或宏录制)代码用VBA执行操作，然后以多种方法中的任意一种来执行宏。
VBA模块保存在Excel工作簿中，一个工作簿可以存储任意数量的VBA模块。
VBA模块由过程组成。
一段过程是执行某些操作的程序代码。
下面是一个计算“圆曲线坐标”的简单子过程的例子：VBA模块还可以保存函数过程。
函盘过程能执行计算并返回一个值。
函数可以从另一个VBA过程中调用，甚至可以用于一个工作表公式。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
EXCEL中计算公路圆曲线中、边桩坐标计算公式及计算实例
圆曲线中边桩坐标计算公式：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点坐标准确快速推算地计算出整条圆曲线。
注意要分清左偏右偏两种情况。