**********************************************************
Dokumentnummer: D1569
**********************************************************

K:read("quadratische Kostenfunktion eingeben als K(x):= ");

DK:K(x)/x;

ab:diff(DK,x);

l:realroots(ab);

xo:x,l[2];

lpu:DK,x=xo;

p:3*lpu;

U(x):=p*x;

g:U(x)=K(x);

l:realroots(g),numer;

NS:x,l[1];

NS:?truncate(NS)+1;

NG:x,l[2];

NG:?truncate(NG);

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

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

l:realroots(ab);

xc:x,l[1];

Gm:G(xc);

print("Betriebsoptimum",xo)$

print("langfristige Preisuntergrenze",lpu)$

print("Preis",p)$

print("Nutzenschwelle",NS)$

print("Nutzengrenze",NG)$

print("gewinnmaximale Menge",xc)$

print("Gewinnmaximum",Gm)$