(* Package schlecht.m *) (* Diese Funktion berechnet die Potenzfunktion x^n *) PowerSum[x_, n_] := Sum[x^i, {i, 1, n}]