Re[2]: Rechenzeiten und Pattern

[Rolf@XXXXXXX.com]

Roman Maeder <maeder@XXXXXXX.ch> wrote:
> Alternativ können Sie statt Collect[f g, z] mittels CoefficientList[f g, z]
> eine Liste l der Koeffizienten erhalten, auf die Sie 
> dann gezielt Ihre Vereinfachungsregeln mittels l /. {regeln..}
> anwenden können.
> Dann wandeln Sie die Liste l mittels Plus @@ (l . z^Range[0,Length[l]-1])
> in ein Polynom um, wenn Sie es in dieser Form brauchen.

Eine andere Möglichkeit ist das optionale dritte Argument von Collect zu
gebrauchen.

>Noch eine Frage am Rande: Wie erreicht man dass die Summe in Out[1] 
>nach Potenzen von z geordnet wird anstatt nach den Argumenten von CI[]?
>Also:  z^3*CI[1] + z^4*CI[3] + z^5*CI[2]
>statt: z^3*CI[1] + z^5*CI[2] + z^4*CI[3]

In einem Mathematica notebook bekommen Sie am einfachsten eine Ordnung 
mittels Default Output FormatType zu TraditionalForm zu setzen 
(im Cell Menu, z.B.).

Ansonsten kann man folgedendes benutzen:

In[1]:= ord[z_Plus]:=ReplacePart[HoldForm @@ 
{Reverse[MonomialList[z, MonomialOrder -> DegreeLexicographic]]}, 
Plus, {1, 0}];

In[2]:= ord[
z^3*CI[1] + z^5*CI[2] + z^4*CI[3]]

3          4          5
Out[2]= z  CI[1] + z  CI[3] + z  CI[2]


Rolf

--

Rolf Mertig
http://www.mertig.com