85889_fr-FR

liliconcom

Cravate de classement avec plusieurs doublons

Tout,
Ceci est une question de suivi à 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} );
         )
        );
       );

 Ainsi, la mise en œuvre actuelle de cette fonction résout de manière arbitraire les liens. Ce que je voudrais faire, c'est gérer les liens en préservant l'ordre des éléments. Par exemple 

 

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

    0     1     1


i=

    2     1     3

J'espérais que l'utilisation de la cravate de classement () à la place de l'index de classement ci-dessus, puis la réaffectation des postes contribueraient à résoudre le problème pour moi. Toutefois, dans le cas de plus de 2 liens, le classement () crée un autre problème, à savoir qu'il fournit un résultat différent selon que l'entrée contient un nombre pair de doublons ou un nombre impair de doublons. Des pensées ? 

 

 

Re: cravate de classement avec plusieurs doublons

@adammorris ,
Merci d'avoir offert la solution. Adam m'a aidé via la plate-forme de support technique JMP et voici la réponse pour tous ceux qui sont curieux. 

 

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 } );
          );  
         );
        
      );