Funktionen plotten

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]);

http://maxima-online.org/?inc=r114615560