Lösungen/Solutions/
B1S1Ue/Ex3

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

Ueb/Ex 1      L

a

A = {a, b, c, d, e}; B = {b, c, d, e, f, g}; 
    CC = {d, e, f, g, h, i, k};

Intersection[A, B]

Intersection[B, A]

b

Union[A, Intersection[B, CC]]

Intersection[Union[A, B], Union[A, CC]]

c

Intersection[A, Union[B, CC]]

Union[Intersection[A, B], Intersection[A, CC]]

Ueb/Ex 2      L

Ueb/Ex 3      L

M = {x, y, z, w}

f[M_, k_] := 
      Union[Table[
          Union[Drop[RotateLeft[M, n], k]], {n, 0, 
            Length[M] - 1}]]

f[M, 0]

f[M, 1]

f[M, 2]

f[M, 3]

f[M, 4]

Flatten[Table[f[M, u], {u, 0, 4}], 1]

Ueb/Ex 4      L

a

Plot[Sin[x], {x, -2 Pi, 6  Pi}];

b

Plot[x^2, {x, -2, 2}];

c

Plot[x^3, {x, -2, 2}];