exercise9.m

% Loesung von Aufgabe 9 mit schoenem Plot
set(0,'defaultfigurecolor','white');   % weißer Hintergrund

% Definition der Funktion 
func = @(x) tan(x) - x .* log(0.1*x);

% plotten, um Anfangswerte zu finden
x = [0:0.01:10];
y = func(x);

% riesige Werte durch NaNs ersetzen -> keine Sprunglinie im Plot
max = 40;
indizes = find(abs(y) > max);
y(indizes) = NaN;

plot(x, y, [0 10], [0 0]);

% Bild abspeichern
F = getframe(gcf);
imwrite(F.cdata, 'bild42.png');

% Nullstellen ablesen liefert
x0 = [1.9 5.0 8.5];

% Genaue Werte mit fzero
x1 = fzero(func, x0(1))
x2 = fzero(func, x0(2))
x3 = fzero(func, x0(3))