VBA记录点号

馨馨

设定距离d ，
记录点号的数组dim dh（100） as double
if d < 20 内存在一些点，想把这些点号记录在dh（）中，该怎么写
求助各位大神，谢谢

zzyong00

你的逻辑呀。。。。。
对于网格每个角点，都相当于直角坐标系原点，直角坐标系有4个象限（4 个网格），每个象限有多少个点，前面已经知道！dh数组的个数就是4个象限中点数的和。如果总点数少于4个，就扩大范围至直角坐标系原点周围的16个网格，以此类推；如果4 个网格中的总点数超过8个，就计算所以点到原点距离，排序，取最近的8个点；如果总点数在4~8个之间，就直接用反距离加权法求原点z坐标！

馨馨

zzyong00 发表于 2016-5-20 22:35
你的逻辑呀。。。。。
对于网格每个角点，都相当于直角坐标系原点，直角坐标系有4个象限（4 个网格），每个 ...

如果距离要是排序，是不是还得设数组记录距离，那样我就更懵了

馨馨

馨馨 发表于 2016-5-22 09:09
如果距离要是排序，是不是还得设数组记录距离，那样我就更懵了

我是真的不会，没玩，不写程序就写论文了，没时间玩了，马上就要交成果了