1、计算表格如下，已将观测的原始数据输入计算表格，并对角度进行平差，可查看我的其他几篇经验。
2、编写求方位角及坐标增量的程序，具体如下：Sub jisuan7f()Dim j坡纠课柩iajiao As StringDim cstart As StringDim cend As StringDim fangwei As DoubleDim side As StringDim zeliangX, zeliangY As DoubleDim nRow As Integer nRow = 6Dim i, n As Integern = ThisWorkbook.Worksheets("sheet1").Range("v8").Value '测站数 cend = ThisWorkbook.Worksheets("sheet1").Cells(5 + n * 2, 8).Value cend = Angle(cend)For i = 1 To n - 1 cstart = ThisWorkbook.Worksheets("sheet1").Cells(nRow - 1, 8).Value cstart = Angle(cstart) jiajiao = ThisWorkbook.Worksheets("sheet1").Cells(nRow, 5).Value jiajiao = Angle(jiajiao) fangwei = Val(cstart) + Val(jiajiao) If fangwei > 180 Then fangwei = fangwei - 180 Else fangwei = fangwei + 180 End If If fangwei > 360 Then fangwei = fangwei - 360 End If ThisWorkbook.Worksheets("sheet1").Cells(nRow + 1, 8).Value = dfm2(fangwei) side = ThisWorkbook.Worksheets("sheet1").Cells(nRow + 1, 11).ValuezeliangX = Cos(fangwei * 3.1415926 / 180) * sideThisWorkbook.Worksheets("sheet1").Cells(nRow + 2, 12).Value = Round(zeliangX, 3)zeliangY = Sin(fangwei * 3.1415926 / 180) * sideThisWorkbook.Worksheets("sheet1").Cells(nRow + 2, 13).Value = Round(zeliangY, 3) nRow = nRow + 2NextEnd Sub
3、方位角和坐标增量的计算主要应用坐标反算公式。
4、推算方位角的公式如下，这里按左角公式计算。
5、方位叫推算程序如下：
6、运行程序
7、程序执行结果如下：
