Lösungen/Solutions/I1S2AnUe/Ex1

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

Ueb/Ex 1

a Beispiel /Exemple

f[x_] := Sin[x]^(E^Cos[1/(x^1 + 1)])

Plot[f[x], {x, 0, Pi}];

D[f[x], {x, 1}]

a = D[f[x], {x, 1}] /. x -> 0.5

dq[x_, h_] := (f[x + h] - f[x])/h

a - dq[0.5, 0.1]

a - dq[0.5, 0.01]

a - dq[0.5, 0.001]

a - dq[0.5, 0.0001]

a - dq[0.5, 0.00001]

a - dq[0.5, 0.000001]

b Mathematica:

g[x_] := f[x] - 0.5

?FindRoot

FindRoot[g[x] == 0, {x, 0.5}]

FindRoot[g[x] == 0,{x, 0.5},WorkingPrecision->50]

NSolve[g[x] == 0]

FindRoot[
      Cos[x] == 1 + 10^(-1000000), {x, 0.5}]

{x->0.0009493343172656842}  ????

NSolve[Cos[x] == 1 + 10^(-1000000)]

{{Cos[x]->1.}}  ????

Solve[Cos[x] == 1 + 10^(-1000000)]

????