Scheitelpunkt einer Parabel

> restart;

Definition des Funktionsterms:   

> f(x):= (4-x/3)*(3*x+2);

Ableiten des Funktionsterms nach x:

> Df(x):= diff(f(x), x);

Lösen der Gleichung f ' (x) = 0:

> xs:= solve(Df(x)=0, x);

Berechnung des Funktionswertes von f an der Stelle xs:

> ys:= eval(f(x), x = xs);

> S:= [xs, ys];

> S:= evalf(S, 4);