p[x_]:=x^3-2x q[x_]:=3x^2-2 a=2.5 b=a-p[a]/q[a] c=b-p[b]/q[b] vert[x_]:=Graphics[Line[{{x,0},{x,p[x]}}]] va=vert[a] vb=vert[b] vc=vert[c] cp=Plot[p[x], {x,0,3}, DisplayFunction->Identity] eps=0.25 t[z_]:=Graphics[Line[{{z-p[z]/q[z],0}, {z,p[z]}, {z+eps,q[z]*eps+p[z]}}]] ta=t[a] tb=t[b] tc=t[c] ytext=-1.25 at=Graphics[Text["a", {a,ytext}]]; bt=Graphics[Text["a'", {b,ytext}]]; ct=Graphics[Text["a''", {c,ytext}]]; Show[cp,ta,tb,tc,va,vb,vc,at,bt,ct, PlotLabel->FontForm["Newton-Raphson", {"Helvetica-Bold",12}], DisplayFunction->$DisplayFunction]