VBA自定义函数-Minkowski距离
接触VBA第一天,写了个闵可夫斯基距离
当r=1时,距离为曼哈顿距离
当r=2时,距离为欧几里得距离距离(直线距离)
当r→∞时,距离为切比雪夫距离
根据闵可夫斯基距离距离公式,在VBA写出以下代码
Public Function distance(a As Range, b As Range, Optional r As Integer = 2)
Dim i As Integer
...
原创
2019-11-17 14:05:30 ·
592 阅读 ·
0 评论