Berechung des Betriebsoptimums
==============================
Gegeben ist eine Kostenfunktion. Das Betriebsoptimum
ist jede Produktionsmenge, bei der die Durchschnitts-
kosten am kleinsten werden. Die langfristige Preis-
untergrenze ist das Minimum der Durchschnittskosten.

K:read("Gib eine Kostenfunktion ein");

Man erhält die Durchschnittskosten, in dem man die
Gesamtkosten durch die Produktionsmenge dividiert.

DK(x):=K(x)/x;

DK(x);

Notwendige Bedingung für das Vorliegen eines Extrem-
werts ist, dass die erste Ableitung NULL wird.

Wir bestimmen daher die Ableitung der Durchschnitts-
kosten.

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

Wir bestimmen nur reelle Nullstellen (realroots()
statt solve())

l:realroots(ab=0);

Wie viele reelle Lösungen gibt es?

n:length(l);

Die Lösungen in einzelne Werte auflösen:

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

Wenn ein Minimum vorliegen soll, muss die zweite
Ableitung größer als NULL sein.

ab2:diff(ab,x);

for i:1 thru n do
    if ev(ab2,x=xE[i])>0 then ev(xmin:xE[i]);

xmin:xmin,numer;

xmin:floor(xmin*100+0.5)/100.0;

Ausgabe des Betriebsoptimums

print("Das Betriebsoptimum der Kostenfunktion K(x)=",K(x),"ist",xmin)$

Berechnung und Ausgabe der langristigen Preisuntergrenze

lpu:DK(xmin);

lpu:floor(lpu*100+0.5)/100.0;

print("Die langfristige Preisuntergrenze ist",lpu)$

wxplot2d([K(x)], [x,0,5*xmin]);

wxplot2d([DK(x),ab], [x,1,5*xmin]);

wxplot2d([DK(x),ab], [x,1,10], [y,-5,50])$