Lösungen/Solutions/B2S2Ue/Ex3

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

Ueb/Ex 1      W

f1[x_] := E^x;  D[f1[x], x]

Ueb/Ex 2      W

f2[x_] := E^(2  x);   D[f2[x], x]

Ueb/Ex 3      W

f3[x_] := E^(x^2); D[f3[x], 
      x]

Ueb/Ex 4      W

f4[x_] := E^Sin[x]; D[f4[x], x]

Ueb/Ex 5      W

f5[x_] := E^(a x  +  b); D[f5[x], x]

Ueb/Ex 6      W

f6[x_] := Log[x^7]; D[f6[x], x]

Ueb/Ex 7      W

f7[x_] := x E^x  +  Log[Cos[x]]; D[f7[x], x]

Ueb/Ex 8      W

f8[x_] := x^x; D[f8[x], x]

Ueb/Ex 9      W

f9[x_] := Sin[x] Cos[2  X + 3]; D[f9[x], x]

Ueb/Ex 10      W

f10[x_] := Sin[x] Cos[2  x + 3]; D[f10[x], x]

Ueb/Ex 11      W

f11[x_] := Sin[x]^3 - 2 Sin[x]^2 + 4 Sin[x] - 5; 
    D[f11[x], x]

Ueb/Ex 12      W

f12[x_] := 2 (x - 4) (x - 2) (x + 1); 
    D[f12[x], x] // Expand

Solve[Evaluate[D[f12[x1], x1]] == 0, {x1}] //  
      Flatten

N[%]

Plot[f12[x], {x, -2, 5}];