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
|