In[142]:= y[x_] := 4*x^3 - 5*x^2 + x - 2;FindRoot[(y[1] - y[0])/(1 - 0) == y'[x], {x, 0, 1}]Out[143]= {x -> 0.1162040603778632}
http://wenku.baidu.com/view/82c009333968011ca30091f7.html 请参考
数值分析啊 给你课件 需要不
请参考这里http://tieba.baidu.com/p/2333407152