Hallo Patrick,
die Root[] stehen als letzter Ausdruck in Rule[] in einer List[], oder
ist Ihr Ausdruck noch allgemeiner?
Wenn etwa l0 mit dieser Struktur
In[24]:=
Clear[l0]
l0 = Flatten[(Solve[#1, {x}] & ) /@ {x^2 + 4*x - 12 == 0, 23 - 7*x + x^5
== 0,
x^7 - 1 == 0}, 1]
geordnet werden soll, dann einfach den Vorschlag von Robert ein bisschen
erweitern:
In[67]:=
Join[Select[l0, (Head[Last[First[#]]] =!= Root) &],
Select[l0, (Head[Last[First[#]]] === Root) &]]
Mit den besten Grüssen
Udo.
mai99dnn@XXXXXXX.de wrote:
Danke an alle..
@Robert
Das haette es nicht ganz, weil bei mir die Rootsymbole nicht zwangslaeufig im
Funktionskopf gestanden haben.
Cheers
Patrick
DMUG-Archiv, http://www.mathematica.ch/archiv.html