|
Freunde, dass ist genau was die Function 'Ordering' aus DiscreteMath`Combinatorica` macht : Transpose[Sort[ Transpose[{liste,Range[Length[liste]]}] ] ] [[2]] Gruesse, wouter. At 11:50 2-08-98 +0200, Arnd Roth wrote: >Lieber Wolfgang, > ** clip ** >man kann ausnutzen, dass Sort bei Wertepaaren nach dem ersten Element >des Wertepaars sortiert: > >sunny% math >Mathematica 3.0 for Solaris >Copyright 1988-97 Wolfram Research, Inc. > -- Motif graphics initialized -- > ** clip ** >In[4]:= Timing[indexVector2 = Reverse[Map[#[[2]] &, Sort[Transpose[{b, Range[n]}]]]];] > >Out[4]= {4.7 Second, Null} > >In[5]:= indexVector1 == indexVector2 > > >Arnd > >-- >Arnd Roth >Abteilung Zellphysiologie >Max-Planck-Institut fuer Medizinische Forschung >Postfach 10 38 20, D-69028 Heidelberg > > > Dr. Wouter L. J. MEEUSSEN w.meeussen.vdmcc@XXXXXXX.be eu000949@XXXXXXX.be |