# Betriebsoptimum

## Problembeschreibung

******************************************
Dokumentnummer: D1241
Quelle: Johann Weilharter,
              Kosten-und Preistheorie
******************************************
Eine Kostenfunktion ist auf ein etwaiges
Betriebsoptimum zu untersuchen.

## Problemlösung

EINGABE

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

VERARBEITUNG

GK:diff(K(x),x);

print("Grenzkosten K' =",GK);

DK:K(x)/x;

DK:expand(DK);

print("Stückkosten DK =",DK);

g:GK=DK;

l:realroots(g),numer;

n:length(l);

AUSGABE

for i:1 thru n do ev(xE[i]:x,l[i]);

for i:1 thru n do if xE[i]<0 then print("unzulässig",xE[i]);

for i:1 thru n do if xE[i]>=0 then print("zulässig",xE[i]);

print("Das ist vermutlich das Betriebsoptimum")$