【VBA高级复杂需求！】使用VBA根据经纬度计算多个点之间距离并按照指定距离筛选....

w_cun

使用VBA实现根据经纬度计算距离并筛选配对点；

需要输出：找到每个点唯一配对的点，及距离；所有表中的点两两配对；
算法：
1、两个点距离为0的点不进行配对；
2、两个点的距离小于xxx米内的点进行配对，距离可以进行设置，如左上角所示；
3、如果表中有奇数个点，按距离配对符合要求的偶数个点即可，剩下一个不配对；
4、两个点的配对是唯一的；


sample.zip (22.79 KB, 下载次数: 62)

2015-9-2 18:48 上传

点击文件名下载附件

原始数据及处理输出

在mapinfo里面显示的相对距离图

w_cun

今天放假啊，希望假期后有高手帮忙解决，谢谢了。{:soso_e183:}

coby001

自己写个SQL 来查询就可以了~

18796014744

难度过高，我也想看看怎么解？

w_cun

coby001 发表于 2015-9-2 20:28
自己写个SQL 来查询就可以了~

不会写SQL哦，难点可能是如何计算起点。从哪个点开始组合配对；从中心开始配对还是从边缘开始配对。

w_cun

18796014744 发表于 2015-9-4 00:54
难度过高，我也想看看怎么解？

是啊，坐等高手帮忙解决，希望有更多人能看到这个需求。

coby001

点之间距离 怎么算？

w_cun

coby001 发表于 2015-9-4 15:09
点之间距离 怎么算？

设地球半径为R，地心为0，球面上两点A、B的球面坐标为A（α1，β1），B（α2，β2），α1、α2∈[-π，π]，β1、β2∈[-π/2，π/2 ]，

AB =R•arccos[cosβ1cosβ2cos（α1-α2）+sinβ1sinβ2]
利用勾股定理与正弦定理则可求出AB两点间的直线距离，在利用正弦定理可求出AB两点与地球0点夹角的度数，再利用如下公式：角EOD的度数/360度=E与D之间的球面距离/大圆周长，则可求出AB的球面距离。

假设：A点坐标（long1，lat1），B点坐标（long2，lat2）


    long1d = long1 * 3.14159265 / 180
    long2d = long2 * 3.14159265 / 180
    lat1d = lat1 * 3.14159265 / 180
    lat2d = lat2 * 3.14159265 / 180
   
    temp1 = Sin(lat1d) * Sin(lat2d) + Cos(lat1d) * Cos(lat2d) * Cos(long2d - long1d)
    Distance1 = 6371004 * Acos(temp1)

地球半径为6371004米。

coby001

w_cun 发表于 2015-9-4 15:59
设地球半径为R，地心为0，球面上两点A、B的球面坐标为A（α1，β1），B（α2，β2），α1、α2∈[-π，π ...

你用1楼的数据来算一个
看看怎么算距离~

w_cun

我自己顶一下。