使用VBA重复多次直线拟合在深度测量数据分析中的应用（原始文件可在我的资源中下载）

目的：

1、解决直线段深度测量数据的偏差不准确的问题；

2、也可以将面测量数据转换成线，处理后再转换成面数据。

思路：

1、利用基本成线性的原始数据拟合出一条直线，并利用公式计算出函数y=Ax+B中的斜率A和截距B；

2、用原始数据减去直线上对应的点，得到相对差值；

3、将差值与坐标值生成散点图，若散点图倾斜，则考虑剔除过大和过小的值，重新拟合直线；

4、通过设定阈值，剔除过大和过小的值，重新计算出函数y=Ax+B中的斜率A和截距B；

5、用原始数据减去新直线上对应的点，得到相对差值；

6、重复此操作，直到差值与坐标值生成的散点图水平。

优势：

1、直线拟合比平均值比较的方式更能得到真实的偏差数据；

2、重复多次拟合后直线斜率更加准确；

3、通过设定数据剔除的阈值和剔除次数可以得到较好的数据处理效果

 以下是对倾斜面深度测量数据的处理效果，可以明显看到剔除数据后的偏差被拉平。

剔除数据前：

剔除数据后：

 关于VBA程序介绍：

1、VBA程序第一部分为斜率和截距计算，构造数据拟合直线的公式，并计算原始测量数据与拟合直线的相同坐标位置的偏差；

 2、VBA程序第二部分为剔除数据，并重复多次拟合直线，计算原始测量数据与拟合直线的相同坐标位置的偏差；可以设置剔除数据的阈值和剔除次数。