% zu Aufgabe 3.1
% anonyme Funktion zeichnen, Minimum, Maximum und Nullstelle bestimmen

f = @(x) x.^3/20 + x.^2/10 - sin(x)
fplot(f, [-4, 4]), hold on

xmin = fminbnd(f, 0, 2)
ymin = f(xmin)
xmax = fminbnd(@(x) -f(x), -2, 0)   % anonyme Funktion -f
ymax = f(xmax)
x0 = fzero(f, [1, 3])

plot([xmin, xmax, x0], [ymin, ymax, 0], 'ro')
title('f(x) = x^3/20 + x^2/10 - sin(x) mit Minimum, Maximum und Nullstelle')