凸曲线任意点标高计算道路工程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快速计算任何难度的道路中线、边线坐标主程序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自动计算曲线坐标．给大家研究研究．欢迎在此基础上开发增加新模块。

凸形、凹形竖曲线高程计算表

i1-i2
-0.050
凹曲线
点号计算桩号
1 4956.469 2 4958.469 3 4960.469 4 4962.469 5 4964.469 6 4966.469 7 4967.000 8 4968.469 9 4970.469 10 4972.469
K4+956.469～K4+977.531m竖曲线范围内各点高程凸形竖曲线
曲线中点桩号
桩号差L
变坡点高程Hz
半径R
i1
1
10150.000 10200.000
-50
7.200
4000.000
0.01
2
10175.000 10200.000
-25
7.200
4000.000
0.01
3
10200.000 10200.000
0
7.200
4000.000
0.01
4
10225.000 10200.000
第一坡度i1 -0.032
第一坡度i2 切线长T 外矢距E 外矢距E 0.017967 12.49175 0.15604 0.156044
x
y=x2/2R
10.000
0.1
验算的过程
切线高程
待计算点高程验算
1610.740744 1610.840744
备注
12.492 0.1560501 1610.661
4967.000 3.469 1611.200 600.000 0.017967 -0.017137 1611.099
4967.000 5.469 1611.200 600.000 0.017967 -0.017137 1611.085

曲线道路坐标计算(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

小白自学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”表示。

公路竖曲线高程计算程序

fx-4800P计算器公路竖曲线高程计算程序（程序名：GAO CHENG-HP）Lb1 0︰｛CDAB｝︰C“K1=”︰D“H1=”︰A“PV-K0=”︰B “PV-H0=”↙Lb1 1 ︰｛REF ｝︰R“R=”︰E“K2=”︰F“H2=”↙Lb1 2︰U =（B－D）÷（A－C）︰V =（F－B）÷（E－A）︰U ＞V =＞N = 0︰T = R ( U－V ) ÷2︰≠＞N = 1︰T = R ( V－U ) ÷2 ︰⊿G = A －T ︰Q = A ＋T ︰W = T 2÷（2 R）↙Lb1 3︰｛K｝︰K “I.T.E.ZY-K.YZ-K=0,1”︰K =0 =＞Goto 4 ︰⊿U “I 1”= U ▲V “I 2”= V ▲T = T ▲W “E”= W ▲G “ZY-K”= G ▲Q “YZ-K”= Q▲↙Lb1 4︰｛M｝︰M“PK=”︰M ≤A =＞Goto 5︰⊿Goto 6 ↙Lb1 5︰M ≤G =＞H = B－U ( A－M ) ︰Goto 7 ︰≠＞Prog “H1 ”︰N = 1 =＞H = B＋X－Y ︰Goto 7︰≠＞N = 0 =＞H = B－X －Y ︰Goto 7↙Lb1 6︰M ≥Q =＞H = B＋V ( M－A ) ︰Goto 7 ︰≠＞Prog “H2 ”︰N = 1 =＞H = B＋X＋Y ︰Goto 7︰≠＞N = 0 =＞H = B－X ＋Y ↙Lb1 7︰H “HP”= H ▲｛L｝︰L“BZ-T=0,L”︰L = 0 =＞Goto 8 ︰⊿｛S｝︰S “IL=”︰H “HL”= H ＋S L ▲↙Lb1 8︰｛Z ｝︰Z “NEXT-PV=0,1”︰Z = 0 =＞Goto 4 ︰⊿C= A ︰D= B ︰A =E ︰B= F ︰Goto 1↙子程序:H1:X = ( M－G ) 2÷( 2 R ) ︰Y = U ( A－M ) ↙H2:X = ( Q－M ) 2÷( 2 R ) ︰Y = V ( M－A ) ↙二00二年元月二十三日公路竖曲线高程计算程序（程序名：GAO CHENG-HP）使用说明1、按“ON”-“FILE”-“GAO CHEHG-HP”-“EXE”2、输入竖曲线后方直线段任一点桩号、高程（K1=？，H1=？），变坡点桩号、高程（PV-K0=？，PV-H0=？）-“EXE”3、输入竖曲线半径（R=？）, 竖曲线前方直线段任一点桩号、高程（K2=？，H2=？） -“EXE”4、是否显示重要参数（后坡度%I1、前坡度%I2、以及竖曲线切线长T、外距E、曲线起点桩号ZY-K、曲线终点桩号YZ-K？，显示：输入1；不显示：输入0。

使用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进行中桩坐标、高程计算

用EXCEL进行中桩坐标、高程计算（铜汤高速第一合同段）测量计算、平差软件种类繁多，但无论什么软件都不能包罗万象，无法满足众多数据处理的需要，即使某种计算软件的功能非常齐全，但此类软件一般都是针对性开发的，而像小件坐标计算，例如承台坐标，则显得非常烦琐。

本文结合本项目介绍了应用EXCEL进行测量计算的方法和思路，并提供了一些常用的计算公式。

1、 EXCEL基本计算方法打开EXCEL后显示的表格，将相关数据依次输入到相应的表格上中。

当原始数据输入完毕后，再在需要显示结果的相应单元格内输入计算公式，EXCEL则会按照公式自动计算出结果，下面以两点坐标计算距离为例，简单说明下：第一步：在相应位置输入表头、序号、坐标后，图示1所示。

第二步在显示距离格内输入计算公式=SQRT((B4-D4)^2+(C4-E4)^2)并按回车，距离的结算结果就显示出来。

2、在测量计算中，最常见的是三角函数的处理。

EXCEL中备用的三角函数很齐全，但计算中是以弧度为单位来处理的，在计算中角度（度、分、秒）需要转换成弧度后，即可进行三角函数的计算了。

3、结合本项目分别介绍了直线、圆曲线、竖曲线的计算事例铜汤高速公路第一合同段，起点里程K78+060.618,终点里程K82+825,全长4764.4米，其中包括朱家畈大桥，水桥湖一桥、二桥三座桥梁。

全线平面首尾为直线段，中间由三段圆曲线连接，（后附全线平面图），计算原始数据取自设计文件第一册《直线、曲线及转角表》(图号为S3-4);全线包括6段竖曲线，其中凹、凸曲线各3段，计算原始数据采用设计文件第一册《路线纵断面图》（图号为S3-3）。

在表格中，桩号栏中的ZJF8、SQA7、SQB6分别代表朱家畈大桥8号墩中心，水桥湖一桥7号墩中心和水桥湖二桥6号墩中心。

坐标和高程的单位均为m，角度单位为弧度。

一、坐标计算方法：a、直线段：坐标增量法例如：第一段直线范围K78+060.618~K78+773.787坐标计算已知：BP点里程为K78+060.618，坐标（3412768.816，484851.623）起始方位角a＝140°45′46.1″＝2.456774421（弧度）计算直线范围内的K78+200坐标如下：在EXCEL表格中输入相应的表头和需要计算的里程后在C36格内输入公式=3412768.816+（B21-78060.618）* COS（2.456774421）在D36格内输入公式=484851.623+（B21-78060.618）* SIN（2.456774421）X=3412768.816+(78200-78060.618)×COS2.456774421＝3412660.860Y=484851.623+(78200-78060.618)×SIN2.456774421＝484939.787 图示：b、曲线段：偏角法第一段圆曲线K78+773.787～K79+524.582上坐标计算：起点（即ZY点）里程为K78+773.787，同时位于第一段直线上，可通过坐标增量法算出ZY点坐标为（3412216.442，485302.725）；始方位角a＝140°45′46.1″＝2.456774421（弧度）；曲线圆心在线路右侧，曲线半径R＝4500m。

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自动计算曲线坐标．给大家研究研究．欢迎在此基础上开发增加新模块。

EXCEL2010工程应用实例之标高计算系统

标高计算系统刘炳仓标高计算是在公路工程中属于测量方面的工作，这个工作并不难，但是比较麻烦，计算某一个里程的标高，只要查出相关参数，计算标高就不会出现什么问题，但是每次要去查出相关参数在工作程序上是比较烦人的，时间久了出现问题是不可避免的。

在公路施工过程中，测量工作在标高方面出现的问题并不少见，这对工程进度和成本都造成损失，为了减少这一错误，本人编写了《标高计算》表进行处理工作上的问题。

使用标高计算之前，首先把图纸中的相关竖曲线参数输入到《竖曲线参数》表中，检查无误后保存，在以后的工作中，要计算某一个里程的标高，只在《标高计算》表中输入计算里程，中桩的设计标高自动计算出来，当然这个标高是设计的路面高程。

知道了这个高程，同一点的其它高程那就是简单的加减工作了。

要说明的是本计算表不能对设计中出现的长短链进行自动处理，这需要在计算的时候手工处理。

设计这个表格之前，让我们先看看竖曲线的两个计算公式：直线段计算公式：H=i∗l1−lq+ℎ1；抛物线的计算公式：H=−l1−lq22R+l1−lq∗i+ℎ1；注：H为需要计算点的高程；i为坡度；l1为计算点里程；lq为竖曲线（直线）起点里程；h1为起点高程；R为竖线参数。

2.1、竖曲线参数（标签名：竖曲线参数）本表为竖曲线参数输入表，计算一个线段的标高之前，首先要输入这一段的参数，参数输入好之后，在《标高计算》表中就可以进行标高计算。

这个表中从A列到G列的参数是用户输入的，输入时要注意参数的输入格式：1、【曲线起点坡度】栏：上坡为正，下坡为负。

2、【切线长或直线长度】栏：起始点必需为直线，起始单元格数据是从起点到抛物线起点的直线长度。

3、【切线长或直线长度】栏：起始点以后的单元格填写的内容为抛物线的切线长度，直线对应的单元格不填数据。

4、在曲线类型栏内输入参数时，必需是“直线→抛物线→直线→抛物线→……”这种循环方式填写，即使是两条抛物线相接，它们中间也要插入直线段，插入的这条直线的长度为“0”，如果是两条不同坡度的直线相接，中间也要插入一条抛物线，抛物线的长度也为“0”；5、线型结束点的曲线半径填写值为“1”，切线长或直线长度栏填写值为“0”。

道路超高计算表格

道路勘察设计（第三版）人民交通出版社p103
《标准》规定的圆曲线半径、一般最小半径、不设超高最小半径所采用的U值
公路工程技术标准 P66 R=V2/（127*(u+i)）
超高设计需要考虑实测路面与轮胎之间的摩擦系数范围，还要考虑司乘人员在行驶中所能忍受的横向力系数的大小和舒适程度
经过对43个观测点的测试，极限横向摩阻系数均在
0.3以上
计算圆曲线最小半径极限值采用的横向力系数在0.1-0.17之间，占极限横向摩阻系数比例较小，安全度较高，基本上可以避免横向滑移的危险。

计算圆曲线最小半径一般值采用的横向力系数在0.05-0.06之间，
计算不设超高圆曲线最小半径一般值采用的横向力系数在0.035（横坡1.5%）-0.04（横坡2.0%），
市政规范设超高推荐半径u =0.067
速度v采用运行速度，取设计车速的70%-90%，高速路取低值，低速路取高值超高取值可以考虑，完全由超高值抵消离心力（个人理解条文说明）。

凸曲线任意点标高计算道路工程Excel计算系列

道路坐标计算excel公式

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

凸形、凹形竖曲线高程计算表

曲线道路坐标计算(Excel)

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

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

公路竖曲线高程计算程序

使用EXCEL计算公路工程施工逐点高程

道路坐标计算excel

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

Excel 公路中线 坐标计算

EXCEL进行中桩坐标、高程计算

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

EXCEL2010工程应用实例之标高计算系统

道路超高计算表格

Excel 公路中线坐标计算