Lösungen/Solutions/E1S1AlUe/Ex4

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

Ueb/Ex 1      W

a

Sum[2  k, {k, 1, n}]

b

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

c

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

Ueb/Ex 2      W

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

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

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