Lösungen / Solutions/I1S2Ue/Ex11

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

Ueb/Ex 1      W

Sum[k^4, {k, 1, n}]

Sum[k^4, {k, 1, n}] // Expand

Ueb/Ex 2      W

a

Remove["Global`*"]

?Series

Series[Log[x], {x, 1, 10}]

pNormal[Series[Log[x], {x, 1, 10}]]

Series[Log[x], {x, 1, 10}] - 
      Normal[Series[Log[x], {x, 1, 10}]]

p[x_, n_] := Normal[Series[Log[x], {x, 1, n}]]; p[x, 5]

b

f[x_] := Log[x]

Plot[Evaluate[{f[x], p[x, 5]}], {x, 0.1, 2}];

Plot[Evaluate[{f[x], p[x, 10]}], {x, 0.1, 2}];