Punkte:read("Gib zwei Punkte (p,x)einer Nachfragefunktion ein");

g(p,x):=p=a*x+b;

g1:g(Punkte[1][1],Punkte[1][2]);

g2:g(Punkte[2][1],Punkte[2][2]);

l:solve([g1,g2],[a,b]);

k:a,l[1][1];

d:b,l[1][2];

p(x):=k*x+d;

p(x);

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

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

l:solve(ab=0,x);

Menge:x,l[1];

Preis:p(Menge),numer;

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

print("Der optimale Preis ist",Preis);

print("Dabei werden",Menge,"ME abgesetzt");

Umsatz:U(Menge),numer;

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

print("Der maximale Umsatz ist",Umsatz);