# Bestimmung des maximalen Gewinns

EINGABE

K:read("Gib die Kostenfunktion K(x):= ein");

p:read("Gib die Nachfragefunktion p(x):= ein");

VERARBEITUNG

U(x):=p(x)*x;

G(x):=U(x)-K(x);

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

l:realroots(ab),numer;