Matrix 通过从矩阵中选取第一位具有最大值的行来形成矩阵,该矩阵的每个元素都有不同的行,每个行有3列

Matrix 通过从矩阵中选取第一位具有最大值的行来形成矩阵,该矩阵的每个元素都有不同的行,每个行有3列,matrix,wolfram-mathematica,Matrix,Wolfram Mathematica,我有一个矩阵Inter[I,j],它的每个元素都有一组行,每个行有3列 例如,Inter[15,40]={{0,0,0},{1,1,3},Inter[32,64]={0,0,0},{1,1,3},{2,2,3}等等 现在我想要一个矩阵MaxGG[i,j],从Inter[i,j]中选择一行,该行在第一位具有最大值 对于egMaxGG[15,40]应该给我{1,1,3}。类似地MaxGG[32,64]={2,2,3}。 当我给出这个代码时,它并没有给我正确的答案: MaxGG[i_, j_] :=

我有一个矩阵
Inter[I,j]
,它的每个元素都有一组行,每个行有3列

例如,
Inter[15,40]={{0,0,0},{1,1,3}
Inter[32,64]={0,0,0},{1,1,3},{2,2,3}
等等

现在我想要一个矩阵
MaxGG[i,j]
,从
Inter[i,j]
中选择一行,该行在第一位具有最大值

对于eg
MaxGG[15,40]
应该给我
{1,1,3}
。类似地
MaxGG[32,64]={2,2,3}
。 当我给出这个代码时,它并没有给我正确的答案:

MaxGG[i_, j_] := Cases[Inter[i, j], {Max@Inter[i, j][[All, 1]], _, _}];
请告诉我这个代码有什么问题,并请为我提供正确的代码


提前感谢:)

主要问题是
案例
将返回所有匹配案例的列表:-

Inter[15, 40] = {{0, 0, 0}, {1, 1, 3}};
Inter[32, 64] = {{0, 0, 0}, {1, 1, 3}, {2, 2, 3}};

MaxGG[i_, j_] := Cases[Inter[i, j], {Max@Inter[i, j][[All, 1]], _, _}]

MaxGG[32, 64]
{{2,2,3}

选择第一个匹配项可能会丢失外括号:-

MaxGG[i_, j_] := First@Cases[Inter[i, j], {Max@Inter[i, j][[All, 1]], _, _}]

MaxGG[32, 64]
{2,2,3}

该功能也可以简化:-

MaxGG[i_, j_] := First@Reverse@Sort@Inter[i, j]

MaxGG[32, 64]
{2,2,3}