作者:
albn (微積=危機)
2013-04-23 18:39:44大家好!
我有個矩陣如下
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
前幾次輸出都沒問題....後面就掛了