询问正确的 do loop fortran

Question

我写了一段代码，用于测量距离k的意思。

所以，r 是我的数据点的数组。我想用每个质心减少数据点的每个坐标。因此，流程就像，J 只有在 y=k 时才会改变。同时我应该继续前进（我的号码应该保持更新+1）。距离是二维数组，Z 是列索引。距离是空的二维数组，该值将由减少的结果填充，这就是为什么每次计算都应该更新 i 的值。 N 是数据点的数量，k 是集群的数量。 z、k 和 n 是不同的值。

我当前代码的问题，

do i=1,z
   do j=1,n
      y=1
     do while 
        y<=k 
        distance(1,i)=abs( r(1,j) - centroid (1,y) )
        distance(2,i)=abs( r(2,j) - centroid (2,y) )
        y=y+1
     end do
   end do
end do

问题在于，i 值没有保持更新。我需要我的价值不断增加，+1

Answer 1

这是一个猜测，因为我仍然对你的问题感到困惑，但这就是你想要的吗？

i = 0
do j=1,n
  do y=1,k
    i = i+1
    distance(:,i) = abs(r(:,j)-centroid(:,y))
  enddo
enddo

所以在r 数组上循环j，在centroid 数组上循环y（但最多只能到k），并为两者的每个组合递增i？

这假设distance 数组足够大，i 不会超出它。