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