Lösungen/Solutions/B2S2Ue/Ex4

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

Ueb/Ex 1      W

Remove[a, b, c, d, x]

f1[x_] := a x^3  +  b x^2  +  c x  +  d

g1 =  (f1[-2] == 0)

g2 =  (D[f1[x], x] == 0.5 /.  x -> -1)

g3 =  (D[f1[x], {x, 2}] == 0 /.  
          x -> -1)

g4 =  (f1[-1] == 1)

solv = Solve[{g1, g2, g3, g4}, {a, b, c, d}] // Flatten

f1[x] /. solv

Plot[{f1[x] /. solv, 1.5 + 0.5 x, 1},  {x, -3, 
          2}];

Ueb/Ex 2      W

f2[x_] := a E^(-x^2);  f2[0] == 2

a = 2

D[f2[x], x]

Solve[D[f2[x], x] == 0, {x}]

D[f2[x], {x, 2}]

Solve[D[f2[x], {x, 2}] == 0, {x}]

Plot[f2[x], {x, -3, 3}];