Re: Sovle

["Jens-Peer Kuska" <kuska@XXXXXXX.de>]

Hallo,

also ich hatte das schon direkt geschickt (falscher Button in meinem
mailer) aber
sol = Solve[ (x - 1)*(x + 1)*(23 - 7*x + x^5) == 0, {x}];

rootfree = Select[sol, FreeQ[#, Root] &]

Complement[sol, rootfree]

scheint wohl kein anderer benutzen zu wollen ??
Schade ...

Gruß
 Jens

----- Original Message ----- 
From: "Udo und Susanne Krause" <su.krause@XXXXXXX.ch>
To: <mai99dnn@XXXXXXX.de>
Cc: "Mathematica User Group Group" <demug@XXXXXXX.ch>
Sent: Tuesday, November 30, 2004 12:12 PM
Subject: Re: Sovle


> Hallo Patrick,
>
> die Root[] stehen als letzter Ausdruck in Rule[] in einer List[], oder ist 
> Ihr Ausdruck 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 etwas 
> erweitern:
>
> In[67]:=
> Join[Select[l0, (Head[Last[First[#]]] =!= Root) &],
> Select[l0, (Head[Last[First[#]]] === Root) &]]
>
> Mit den besten Grüssen
> Udo.
>
> > @Robert
> > Das haette es nicht ganz, weil bei mir die Rootsymbole nicht 
> > zwangslaeufig im Funktionskopf gestanden haben.