function f=fun(x) f=1000*exp(x)+(435/x)*(exp(x)-1)-1564; end

function y=df(x) y=1000*exp(x)+435*(exp(x)/x)-435*exp(x)/(x*x)+435/(x*x); end

clear all; clc; x0=1; r=1.0e-6; tic; i=1; x1=x0-fun(x0)/df(x0); while (abs(x1-x0)>r)&&(i<=60)     x0=x1;    x1=x0-fun(x0)/df(x0);   i=i+1; end   toc;  i  x1=vpa(x0-fun(x0)/df(x0),10) e=vpa(abs(x1-x0),10)  fm=vpa(fun(x1),10)

3Â¥: Originally posted by langka1573 at 2015-12-11 08:10:46
Ô­À´Ñ§¹ý¼ÆËã·½·¨ÕâÃſγ̣¬ÀïÃæÓÐÏêϸÄÚÈÝ£¬°üÀ¨Ô­ÀíºÍ´úÂëÀý³Ì¡£¿ÉÒÔÕÒÊé¿´¿´¡£