Lösungen/Solutions/
B1S1Ue/Ex5

L = Lektion/ Leçon   -- Sprechstunde / heures de consultation
W = Work / Arbeit / Travail
A  =Anhang/  Annexe / Appendice

Ueb/Ex 1      W

f[x_] := x^4 - x^3 + x^2 - x + 1

g[y_] := 2  y^3 - y^2 + 3  y + 4

h[z_] := (z - 1) (z + 3)

g[f[x]] // Expand // Simplify

h[g[y]] // Expand // Simplify

h[z] /. {z -> g[f[x]]} // Expand // Simplify

h[g[y]] /. {y -> f[x]} // Expand // Simplify

h[g[f[x]]] // Expand // Simplify

Ueb/Ex 2      W

Sum[2^(k - 1), {k, 1, n}]

Ueb/Ex 3      W

Sum[1/(k (k + 1)), {k, 1, n}]

Ueb/Ex 4      L

Ueb/Ex 5      W

Plot3D[Sin[Cos[x - y]], {x, -8, 8}, {y, -8, 8}, 
        PlotPoints -> 50];

Plot3D[Cos[x + y], {x, -8, 8}, {y, -8, 8}, 
        PlotPoints -> 50];

Plot3D[Cos[x y], {x, -6, 6}, {y, -6, 6}, 
        PlotPoints -> 50];

Plot3D[Cos[x y], {x, -Pi, Pi}, {y, -Pi, Pi}, 
        PlotPoints -> 50];