Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: question about sorting lists

  • To: mathgroup at smc.vnet.net
  • Subject: [mg91027] Re: question about sorting lists
  • From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
  • Date: Mon, 4 Aug 2008 03:22:11 -0400 (EDT)
  • References: <g6emrs$cmj$1@smc.vnet.net>

Hi,

lst = {{4, -3,
    8}, {{x11, x12, x13}, {x21, x22, x23}, {x31, x32, x33}}};

Transpose[Sort[Transpose[lst], Abs[#1[[1]]] < Abs[#2[[1]]] &]]

Regards
   Jens

Tatyana Polenova wrote:
> Hello,
> 
> I have the following numerical list:
> 
> {{{x1, x2, x3}, {{x11, x12, x13}, {x21, x22, x23}, {x31, x32, x33}}}
> 
> where x1, x2, and x3 are some eigenvalues, and {x11, x12, x13}, {x21,  
> x22, x23}, and {x31, x32, x33} are their corresponding eigenvectors.
> 
> I need to sort the list so that the eigenvalues are arranged in the  
> order of decreasing the absolute value of the difference between any  
> of the two eigenvalues. (and that the eigenvectors still correspond to  
> the original eigenvalues).
> 
> What would be the correct syntax for this operation in Mathematica 5.2?
> 
> Thank you very much for your help
> Tatyana
> 


  • Prev by Date: Re: Constructing vector using table
  • Next by Date: Re: Cube root of -1 and 1
  • Previous by thread: Re: How can I make the colored lines inside a Mathematica
  • Next by thread: Re: question about sorting lists