Amolblatt05

Aufgabe 5.1 d

NSolve[
      5/3 Log[5/3 x] + 1 - 8/3 Log[1 - 8/3 x] - 8/3 + Log[x] + 1 == 0, 
      x]

x = 0.26749497865838645`;

p1 = 5/3 x; p2 = 1 - 8/3 x; p3 = x;

Plot[
      5/3 Log[5/3 x] + 1 - 8/3 Log[1 - 8/3 x] - 8/3 + Log[x] + 1, {x, 
        0.26748, 0.2675}, ImageSize -> 550]

p1

p2

p3

Aufgabe 5.1 e

b1 = 1/(1 + E^-3 + E^-8) // N

b2 = b1 E^-3 // N

b3 = b1 E^-8 // N

Aufgabe 5.3 a

(1/(1/4 - 1/n^2))/(1/(1/4 - 1/n^2) - 
          1/(1/4 - 1/(n + 1)^2))

Plot[-10^6 + 
        (1/(((1/4) - (1/(n^2))) ((1/((1/4) - (1/(n^2)))) - (1/((1/4) - (1/(((1 + n))^2))))))), {n, 199, 200}, ImageSize -> 550]