馨馨 发表于 2016-5-9 09:11:06

VBA方格网计算

VBA中找出以格网点P(M,N)为中心的四个象限中,距离该点距离最短的样点,该怎么写dim M, N as integer
dim d as double
for M = 1 to (NY+ 1)
for N = 1 to (NX +1)
d = sqr((X(L) - (Xmin + M*20.18)) ^ 2 + (Y(L) - (Ymin + N*20.18) ^ 2)
以P(M,N)格网点为中心,找出四个象限的到这个点距离最小的样点


http://bbs.mjtd.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 馨馨的微博

馨馨 发表于 2016-5-9 19:09:44

各位大神有没有会的啊,求指点

672277923 发表于 2016-5-27 13:41:35

样点是什么?在写之前列个框架,这是个好习惯。

馨馨 发表于 2016-5-28 16:30:55

672277923 发表于 2016-5-27 13:41 static/image/common/back.gif
样点是什么?在写之前列个框架,这是个好习惯。

样点是文本文件,下面是部分数据
110107.5 10340.2 331.46
210110.4 10360.1 331.45
310114.4 10377.5 332.67
410119.4 10392.4 332.76
510122.8 10409.6 333.87
610150.4 10309.9 329.23
页: [1]
查看完整版本: VBA方格网计算