# Extremwerte bestimmen

*************************************************
Dokumentnummer: D1267
*************************************************

f:read("Gib eine Funktion f(x):= ein");

NS:solve(f(x)=0,x);

NS:realroots(f(x));

n1:length(NS);

print("Anzahl der Nullstellen:",n1);

ab:diff(f(x),x);

EX:solve(ab=0,x);

EX:realroots(ab),numer;

n2:length(EX);

print("Anzahl der möglichen Extremwerte:",n2);

for i:1 thru n2 do ev(xE[i]:x,EX[i]);

for i:1 thru n2 do yE[i]:f(xE[i]);

ab2:diff(f(x),x,2);

for i:1 thru n2 do if ev(ab2,x=xE[i])>0 then print("Minimum(",xE[i],",",yE[i],")");

for i:1 thru n2 do if ev(ab2,x=xE[i])<0 then print("Maximum(",xE[i],",",yE[i],")");