>
|
module ()
local f,q,p1,p2,p3,p;
f:=x^3-7*x^2+5*x+4;
q:=fsolve(f,x,complex);
p1:=plot(f,x=q[1]..q[3],labels=[x,y],color=black,filled=[color=red,transparency=.7],thickness=2);
p2:=plots:-textplot({[6,.7,typeset(c)],[-.3,.7,typeset(a)],[1.5,.7,typeset(b)]},font=[default,12]);
p3:=plot([[q[1],0],[q[3],0]],style=line,color=black,thickness=2);
p:=plots:-display(p1,p2,p3);
print(p);
end module:
|