找矩陣中的index
大家好有個找位置的問題要請教大家
我有兩筆數據,一是真實的排序
另一個是數據庫。
範例如下：
(1)真實排序（1到5,由上而下為排名）
1
2
3
4
5
(2)數據庫(有很多組1~5排序,用0分隔)
0
5
1
4
3
2
0
5
4
2
3
1
0
4
3
1
5
2
.
.
.
我想要數據庫中每一組排序與真實的排序做比較,
找真實排序中每個數字在數據庫中每一組所在的位置並存成矩陣。
例如：真實排序中第一名為數字１，而在數據庫中第一組數字１是
第二名,第二組為第五名,第三組為第3名。
以此類推，每個真實抬續中的數字都要找到位置
謝謝各位大大
给你个简单的例子吧。剩下的你自己循环，构建矩阵
Program www_fcode_cn
Implicit none
Integer :: a = 1 , loca(1) = 0
Integer :: b(5) = (/5,3,4,1,2/)
loca = minloc( b , mask=(b==a) )
write(*,*) loca
End Program www_fcode_cn
页:
[1]