Aufgabe:
Man zeichne die Funktionen, die in der folgenden Aufgabe stecken, mit Maxima.
Programmcode:
p(x):=200-4*x; plot2d([p(x)],[x,0,50]);
http://maxima-online.org/?inc=r702039463
K(x):=0.1*x^3-2*x^2+25*x+1450; plot2d([K(x)],[x,0,50];
http://maxima-online.org/?inc=r1446970990
p(x):=200-4*x; E(x):=p(x)*x; plot2d([E(x)],[x,0,50]);
http://maxima-online.org/?inc=r1345745471
p(x):=200-4*x; E(x):=p(x)*x; K(x):=0.1*x^3-2*x^2+25*x+1450; G(x):=E(x)-K(x); plot2d([G(x)],[x,0,50]);