作者raha0811 (我要当坏人)
看板Fortran
标题[问题] 矩阵内的排序
时间Tue Feb 22 15:41:51 2011
IDOU(I,J)
┌ ┐
1 1 0 2 0 0 0
2 3 4 5 0 0 0
3 6 7 8 0 0 0
4 9 10 11 0 0 0
5 12 13 15 14 18 0
6 16 0 17 0 0 0
7 0 0 19 0 0 0
└ ┘
这是我建立的矩阵
想请问要怎样写才能把矩阵的的列排序
例如 第5列 12 13 15 14 18 0
我想要排成 12 13 14 15 18 0
零的位置不动，有数值的位置才排序，且只有每一列个别排序就好
请问这种问题该如何撰写?
感谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.121.146.169
1F：推 mjhsieh:你是说要用什麽 intrinsic 函数吗？ 02/22 16:10
2F：→ raha0811:我是想问说该怎麽写，因为这情况也不是气泡或是震动 02/22 16:16
3F：→ blc:IDOU(3,5) = 14 IDOU(4,5) = 15 ? 02/22 16:44
4F：推 mjhsieh:最笨的方法就是把不是0的值写入另外一个 array, 这样你 02/22 17:27
5F：→ mjhsieh:接下来你想怎麽排就怎麽排... 02/22 17:27
6F：→ MHG:if(A(i,j)==0) cycle 02/23 09:50
7F：→ raha0811:Cycle 感谢，用这指令成功了 02/23 15:43