新手问个问题求坐标最近的距离 [复制链接]

我能想到的就是把坐标串赋值二维数组，（例如0=95，1=66，2=(x-95)+(y-66）,想办法根据二维数组的2大小排序，最小就是，然后得到x=0，y=1

对比坐标 正赋值 都接近余0的就是最近的

学习了 不错

根据勾股定理, a²+b²=c² a就是x1-x的绝对值,b就是y1-y的绝对值,c就是距离,要想c最小,c²就得最小,a²+b²就得最小

Call LibE.GJ.授权_GJ初始化()
// 定义一个更复杂的坐标数组示例，模拟多个不同区域的坐标
coord=Array("100,100","150,120","200,180","300,300","350,320","400,380","500,500","550,520","600,580","700,700")
// 调用遍历最近坐标的函数
Dim result
result = LibE.GJ.游戏_遍历最近坐标(coord, 280, 290)
TracePrint "最近的坐标是: (" & result& ")"

http://bbs.anjian.com/showtopic-714572-1.aspx 命令库链接

x = 304
y = 122
坐标集 = Split("95,66|110,96|133,116|159,129|198,132|243,132|279,130|304,122|321,95|346,79|367,59|379,47|367,59|346,79|321,95|304,122", "|")
aaa = 100000
临时 = ""
For Each bbb In 坐标集
XY = Split(bbb, ",")
If UBound(XY) >= 1 Then
'转化成数值
ax = CInt(XY(0))
ay = CInt(XY(1))
'计算平方
计算 = (ax - x) ^ 2 + (ay - y) ^ 2
'交换数据
If 计算 < aaa Then
aaa = 计算
临时 = bbb
End If
End If
Next

msgbox "最近坐标点：" & 临时 & "，距离平方：" & aaa