Aufgabe 26

sol = Solve[(z^5) == 1 + I, z]

MapAll[ComplexExpand, sol]

punkte = 
        Graphics[{PointSize[0.02], 
            Map[Point, 
              sol /. {z -> w_} -> {Re[w], Im[w]}]}];

achsenkreuz = Plot[{}, {x, -5, 5}]

Show[achsenkreuz, punkte, AspectRatio -> Automatic]

(2^(1/10)) // N

Aufgabe 27

(∑_(k = 0)^n) Cos[k x]

(∑_(k = 0)^n) Sin[k x]

Aufgabe 29

f = (((x^3) + 2  x - 1)/((x^2) - 4))

Together[f]

PolynomialQuotient[(x^3) + 2  x - 1, (x^2) - 4, x]

PolynomialRemainder[(x^3) + 2  x - 1, (x^2) - 4, x]

Apart[f, x]

Aufgabe 30

(∑_(k = 1)^∞) (1/(k^2))