现有一个二维数组a(n,n),里面的数据为：主对角线上的都是1，其余部分为随机的0和1两个数!
现在要实现的是，判断数组a(n,n)里的数据是否为1，如果为1，则反回数组编号(假设a(4.3)=1,刚反回4和3)
此时的4和3代表着两个不同的系统(比如说是“井的编号吧”)，即表示为“4”=“3”(4号井和3号井有相同的属性)，
最后列出具有想同的属性井的编号!
比如数组a(3,3), a(1,1)=1 a(1,2)=1, a(1,3)=0
a(2,1)=1 a(2,2)=1, a(2,3)=0
a(3,1)=0 a(3,2)=0, a(3,3)=1
则反回： “1”=“1” “1”=“2” “2”=“1” “2”=“2” “3”=“3”
最后的结论是1号与2号具有相同的属性为一类，3号为一类!
说的有点罗嗦，还请大家见谅!希望大家多多的帮忙!

小妹新手，所掌握的方法不多，请大家指点。这是实现模糊聚类方法里的一步，我就编到这走不动了!
在线苦等了!

忘 了说了，这个数组是具有转置性，即A=A^T

设a(n,n)为楼主所说的数组,S(N)用于存放聚类.
i=1
do while i<=n
j=i+1
s(i)="["+allt(str(i))+"]=["+allt(str(i))+"]"
k=i-1
do while k>=1
if "["+allt(str(i))+"]"$s(k)
s(i)=s(k)
i=i+1
exit
endif
k=k-1
enddo
if k<>0
loop
endif
do while j<=n
if a(i,j)=1
s(i)=s(i)+"=["+allt(str(j))+"]"
endif
j=j+1
enddo
i=i+1
enddo
i=1
for i=1 to 3
?s(i)
endfor

FOR I=2 TO N
FOR J=1 TO I-1
IF A(I,J)=1
?["]+ALLTRIM(STR(I))+["="]+ALLTRIM(STR(J))+["]
ENDIF
ENDFOR
ENDFOR

先谢谢三楼和四楼的GG
我先试试去
再理解一下!

四楼的可能没有理解我的意思，如果只是判断两个是不是一类的很好说，这个我会。关键是有很多，比如说是“2”和“3”一类，“3”和“4”一类，最后的结论是“2”“3”“4”一类!只是还没有 想出来怎么把“2”=“3”和“3”=“4”合到一起去!

[1]=[1]=[2]
[3]=[3]
这样的结果不可以吗？

可以，已经非常的感谢你了!
麻烦你了!

哎，只是感觉接触VFP的时间还是太短，没有太多的时间看书，导师又要结果要的急，我。。。。。。。
咳，现在去图书管再借书，好好的看看!有问题还是要多多的麻烦你和各位大虾了! ：)