# Betriebsoptimum

## Problembeschreibung

Das Betriebsoptimum einer Kostenfunktion ist zu bestimmen.

## Problemlösung

EINGABE

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

Grenzkosten bestimmen

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

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

Durchschnittskosten bestimmen

DK:K(x)/x;

DK:expand(DK);

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

Bestimmungsgleichung für das Betriebsoptimum

g:GK=DK;

l:realroots(g),numer;

n:length(l);

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

AUSGABE

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")$