大家好!
我有个矩阵如下
0 1 1 1
0 1 1 2
0 1 1 3
0 1 1 1
0 1 1 2
0 1 1 3
0 2 1 1
0 2 1 2
0 2 1 3
0 2 1 1
0 2 1 2
0 2 1 3
......
....
..
由上述矩阵 会有重复输入的问题 所以我想另一个新矩阵存成
0 1 1 1
0 1 1 2
0 1 1 3
0 2 1 1
0 2 1 2
.......
的方式，由于他的重复是会乱跳 所以我目前想法是用
设原本DATA为A矩阵 B为空矩阵
利用A的每一列与B的每一列作比较 如果不一样就输入
一样就跳过 但目前一直处于无限循环的情况
附上code
ck=0d0
do i=1,24
write(*,*)'i=',i
do k=1,ck+1
write(*,*)'k=',k
if ((b(1,i) .EQ. c(1,k)) . AND . (b(2,i) .EQ. c(2,k)) . AND . (
!b(3,i) .EQ. c(3,k))) then
else
ck=ck+1
c(1,ck)=b(1,i)
c(2,ck)=b(2,i)
c(3,ck)=b(3,i)
c(4,ck)=b(4,i)
write(*,*)c(1,ck)
write(*,*)c(2,ck)
write(*,*)c(3,ck)
write(*,*)'end'
end if
enddo
enddo
前几次输出都没问题....后面就挂了