|
In den 'Technical Support' Seiten von Wolfram's WWW-Server ist die Lösung für das Problem der Sortierung von Summen nach absteigendem Grad der Monome zu finden, auf <http://www.wolfram.com/support/Math/Algebra/PolynomialSorting.html> Unprotect[Plus] Format[Literal[Plus[p__]]] := Module[{s1, s2}, s1 = Hold[p]; s2 = Reverse[s1]; ReplacePart[HoldForm[Evaluate[s2]], Plus, {1,0}] /; OrderedQ[s1] && s1 =!= s2] Das betrifft nur die Formatierung, greift also nicht in die internen Berechnungen ein. Damit: 2x+x^3+4 3 x + 2 x + 4 Roman Mäder ----------------------------------------------------------------------- MathConsult Dr. R. Mäder Samstagernstrasse 58a Mathematik- und Informatik-Beratung CH-8832 Wollerau T: +41-1-687 4050 mailto:maeder@XXXXXXX.ch F: +41-1-687 4054 http://www.mathconsult.ch/ ----------------------------------------------------------------------- |