Hey Christopher!
Post by Christopher CreutzigWarum eigentlich überhaupt die Exponenten?
War des Erstbeste, was mir einfiel. - Ich wusste nur,
dass mir wichtig war, das Summenzeichen zwischen
den einzelnen Summanden der Partition zu erzeugen;
und da ist mir einfach entfallen, dass man es auch einfach(er)
so machen kann, wie Du vorschlaegst (schon, weil bei Deinem
Verfahren urspruenglich Mal- statt Pluszeichen herauskommen...).
Post by Christopher CreutzigSo etwas wie das Folgende
sollte doch auch direkt in Maple funktionieren?
map(select([op(pol)], t -> degree(t)=6), indets)
Na klar!
Nur mit umgekehrten Argumenten - vielleicht,
weil Ihr(?) bei der Entwicklung von MuPad entschieden hattet,
dass die Befehle, die mit Maple uebereinstimmen,
sich doch von Maple unterscheiden sollen. :-)
pol := expand(mul(1+x||i^i,i=1..9)):
map(indets, select(degree=6,[op](pol)));
Post by Christopher Creutzig[{x1, x5}, {x6}, {x2, x4}, {x1, x2, x3}]
Bei meinem Glueck haette ich statt der zweiten Zeile
map(indets,[op](select(degree=n,pol)))
geschrieben und damit wieder ungewollt ein Problem erzeugt -
fuer n=2:
[{x2}, {}]
:-(
Post by Christopher CreutzigOder, wenn Du unbedingt die `1` haben willst,
map(select([op(pol)], t -> degree(t)=6), indets)
[{`2`, `4`}, {`6`}, {`1`, `5`}, {`1`, `2`, `3`}]
Schoen! Also in Maple:
pol := expand(mul(1+``||i^i,i=1..9)):
map(indets, select(degree=6,{op}(pol))):
map(convert,%,`+`);
Ergebnis: {`1`+`2`+`3`, `2`+`4`, `1`+`5`, `6`}
Post by Christopher CreutzigPost by Thomas MautschPost by Christopher CreutzigHach ja, zur Vollständigkeit noch der passende MuPAD-Code,
combinat::partitions(6, MaxSlope=-1)
[[6], [5, 1], [4, 2], [3, 2, 1]]
Das scheint Maple so nicht zu koennen. (Wozu auch!? ;-) )
Die Frage musst Du den algebraischen Kombinatorikern stellen, die das
in MuPAD eingebaut haben. Die können das (bzw. eine allgemeinere Form)
anscheinend für ihre Forschung gut gebrauchen.
Ueberrascht mich immer noch.
Wenn ich's recht ueberlege, benutze ich das analoge Erzeugen
von Listen aller Kombinationen/Permutationen in Maple
nur, wenn ich eine variable Zahl geschachtelter Schleifen
(von der ich nicht weiss, wie man sie in Maple programmiert)
durch eine einfache Schleife ersetze.
Wozu sonst wuerde man (riesige) *Listen* kombinatorischer
Objekte erzeugen wollen. - Die Anzahl solcher Objekte - ja;
ein solches Objekt nach dem anderen - ja; aber eine Liste all
dieser Objekte - wozu?
Post by Christopher CreutzigAus der reinen Freude am
Programmieren macht so etwas ja keiner. :-)
Programmierern trau ich alles zu! ;-)
(Wenn ich dran denke, dass jedes Mal, wenn man ein
neues System/Programm vorgesetzt bekommt, grundsaetzlich erst einmal
GAR NICHTS mehr so funktioniert, wie man es sich wuenscht....
Wir wollen jetzt gar nicht erst ueber die neuen Google-Groups reden,
o.K.?)
Was ist zum Beispiel mit dem Programmierer, der genug Enthusiasmus
hatte, Excel 97 einen Flugsimulator anzufuegen?