Question: Graph the real roots

Graph the real roots of the equation x3 + (a − 3)3x2 − a2x + a3=0 for a ∈ [0, 1].

 

Sol:=[solve(x^3+(a-3)^3*x^2-a^2*x+a^3=0,x)];

for i from 1 to 3 do

R||i:=unapply(Sol[i],a):

print(plot(R||i(a),a=0..1,numpoints=500)); end od:

 

Is there a simplier way to solve this. If not why did they choose this path?

Please Wait...