RE: Solve

["Nowak Robert" <robert.nowak@XXXXXXX.at>]

hi,

keine ahnung ob es das ist was du dir vorstellst aber :


In[1]={a, b, c, Root[3 - #1 + 5*#1^7 &, 2, 0], x, z, Root[12 - #1 + 2*#1^5 &, 1,
       0]} //
  {Select[#, (Head@# === Root) &], Select[#, (Head@# =!= Root) &]} &

Out[1]={{Root[3 - #1 + 5*#1^7 & , 2], Root[12 - #1 + 2*#1^5 & , 1]}, 
  {a, b, c, x, z}}


grüsse robert
-----Original Message-----
From: mai99dnn@XXXXXXX.de [mailto:mai99dnn@XXXXXXX.de] 
Sent: Thursday, November 25, 2004 5:31 PM
To: demug@XXXXXXX.ch
Subject: Solve


Hallo nochmal,

Wenn man Solve benutzt kommen manchmal Root Ausdruecke heraus. Ich moechte gern die Loesungsliste splitten und zwar in 
Elemente, die 
Rootsymbole enthalten und Elemente, die aus einfachen algebraischen Ausdruecken 
bestehen. Die RootOf Sachen wuerde ich dann numerisch loesen und die anderen in 
der bestehenden Form behalten.

Meine Frage ist:
Wie sieht das Pattern aus, mit der man eine Expression, die in irgendeinem 
Funktionskopf ein Root stehen hat filtern kann.

Cheers
Patrick