85889_zh-TW

liliconcom

排名多重複制

所有，
這是一個後續問題 https://community.jmp.com/t5/Discussions/Sort-a-matrix/mp/85678#M38246 。 

 

sort_matrix = Function( {m, order = "ascending"}, {t, b = [], i = [], default local},
       If( order == "ascending" | order == "Ascending",
       For( r = 1, r <= N Cols( m ), r++,
        t = m[0, r];
        b ||= Sort Ascending( t );
        i ||= Matrix( As List( Rank Index( t ) ) );
          );
       Eval List( {b, i} );
       , 
       // else
        If( order == "descending" | order == "Descending",
        For( r = 1, r <= N Cols( m ), r++,
          t = m[0, r];
          b ||= Sort Descending( t );
          i ||= Matrix( Reverse( As List( Rank Index( t ) ) ) );
           );
        Eval List( {b, i} );
         )
        );
       );

 因此，該函數的當前實現任意解決了關係。我想做的是通過保持元素的順序來處理關係。例如 

 

A = [1 0 1]; 
{b,i} = sort_matrix(A); 
b=

    0     1     1


i=

    2     1     3

我希望使用Ranking Tie（）代替上面的Rank Index然後重新分配位置將有助於我解決它。但是，在超過2個關係的情況下，Ranking Tie（）會打開另一個問題，即根據輸入是否具有偶數個重複項或奇數個重複項而提供不同的結果。有什麼想法嗎 ？ 

 

 

回复：排名多重複制

@adammorris ，
感謝您提供解決方案。Adam通過JMP技術支持平台幫助了我，這是任何好奇的人的答案。 

 

Clear Log(); Clear Globals(); 

/*A = [10 -12 4 8; 6 -9 8 0; 2 3 11 -2; 1 1 9 3];*/
sort matrix = Function( { m,order }, { t, b=[], i=[] },
       If(order == "ascending",
        For( r = 1, r <= N Cols( m ), r++,
          t = A[0,r];
          b ||= Sort Ascending( t );
          i ||= Matrix( As List( Rank Index( t ) ) );
           );
        Eval List( { b, i } );
        , 
        // else
        If(order == "descending",
         For( r = 1, r <= N Cols( m ), r++,
           t = A[0,r];
           b ||= Sort Descending( t );
           i ||= Matrix(As List( Rank Index( -t ) )) ;
            );
         Eval List( { b, i } );
          );  
         );
        
      );