function y=myfc(b)
syms r
t(1)=1.1101e+03;
t(2)=1.0035e+03;
t(3)=941.2414;
t(4)=971.2918;
t(5)=1.1419e+03;
s1=0;s2=0;s3=0;s4=0;s5=0;
for i=1:5
s1=s1+log(t(i)-r);
s2=s2+(t(i)-r)^b*log(t(i)-r);
s3=s3+(t(i)-r)^b;
end
y=1/b+1/5*s1-s2/s3;
我用的是二分法~~~
function y=erfen(fun,a,b,esp)
if nargin<4
esp=1e-4;
end
if feval(fun,a)*feval(fun,b)<0
n=1;
c=(a+b)/2;
while c>esp
if feval(fun,a)*feval(fun,c)<0
b=c;
c=(a+b)/2;
elseif feval(fun,c)*feval(fun,b)<0
a=c;
c=(a+b)/2;
else
y=c;
esp=10000;
end
n=n+1;
end
y=c;
elseif feval(fun,a)==0
y=a;
elseif feval(fun,b)==0
y=b;
else disp('these,may not be a root in the intercal');
end
n