/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/

/* [wxMaxima: title   start ]
Gewinn maximieren
   [wxMaxima: title   end   ] */

/* [wxMaxima: section start ]
Problembeschreibung
   [wxMaxima: section end   ] */

/* [wxMaxima: comment start ]
******************************************
Dokumentnummer: D1040
Quelle: Johann Weilharter, Analysis
******************************************

Gegeben ist eine Kostenfunktion und eine Nachfragefunktion.
Der maximale Gewinn ist zu bestimmen.
   [wxMaxima: comment end   ] */

/* [wxMaxima: section start ]
Problemlösung
   [wxMaxima: section end   ] */

/* [wxMaxima: comment start ]
EINGABE
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
K:read("Gib die Kostenfunktion K(x):= ein (linear oder quadratisch)");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
p:read("Gib eine Nachfragefunktion p(x):= ein (konstant oder linear)");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
VERARBEITUNG
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
U(x):=p(x)*x;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
G(x):=U(x)-K(x);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
ab:diff(G(x),x);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
l:realroots(ab);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
xm:ev(x,l[1]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
Gmax:G(xm);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
AUSGABE
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
print("Die gewinnmaximale Menge",xm,"ergibt einen Gewinn von",Gmax)$
/* [wxMaxima: input   end   ] */

/* Maxima can't load/batch files which end with a comment! */
"Created with wxMaxima"$