在满足一定条件的矩阵中，每行n个最大元素的位置

解答动态

• 

  更新：短v变量：
  ClearAll[taken，takem，takek]taken[condition?，n?]：=Apply[Join]@*MapIndexed[Thread[{2[[1]]，Select[Function[x，condition@[x]]]]@TakeLargest[?-quot；Indexamp；]takem[condition?，m?]：=Apply[Join]@*MapIndexed[Thread[{2[[1]]，Select[Function[x，条件@#[[x]]]@排序[#，-m]}]}]gt；b]@最近的[{a-quot；，quot；}，最大值@#，k]amp；]@*Map[Map[?Indexamp；]@TakeLargest[?-amp；]第1页示例：
  take1/2、2]@m {{{1，3}，{1，3}，{1，2}，{2，1}} 1采取[1/2，1}} 1采取[1/2，2，2]@m {1，3}，2，2}，{2，2，3}}m {1，3}，{1，2}，{1，2}1、2}，{1、2、3、3、3}3} 1采取[2、3、3、3} 1采取[2、2、2、3} 1、3} 1采取[2、2、2、2、3、3、3}}1、3、3、3}3}5、3、5、3、5、5、3、5、3、3、3，3}}
• 

  是您要查找的函数。然后选择以获得1/2以上的数字：
  m={1，2，3}，{3，-2，1/3}；t=TakeLargest[#，2]gt；1/2amp；/@y]，{m，sel}]MapIndexed[Function[{x，y}，{Sequence@@y，?}&；/@x]，pos]（*{{1，3}，{1，2}，{2，1}}}*）
• End