Kubische Funktion

Aufgabe:

Bestimmung des Funktionsterms:

x1:-3;y1:3;
x2:-1.44;y2:-1.88;
x3:0;y3:0;
x4:3;y4:-3;
g(x,y):=y=a*x^3+b*x^2+c*x+d;
g1:g(x1,y1);
g2:g(x2,y2);
g3:g(x3,y3);
g4:g(x4,y4);
ratprint:off;
l:solve([g1,g2,g3,g4],[a,b,c,d]);
l:ev(map(rhs,l[1]));
r(x):=floor(x*100+0.5)/100.0;
l:map(r,l);
f:[x^3,x^2,x^1,x^0].l;