拉格朗日插值法MATLAB程序
- 格式:doc
- 大小:11.00 KB
- 文档页数:1
function lagrange
a=-5;b=5;n=10;h=(b-a)/n;
X=a:h:b;
Y=1./(1+X.^2);
X
Y
X0=[-2.3 -1.4 -0.92 0.2 0.6 1.4 1.9 ];
n=length(X);
m=length(X0);
for i=1:m
z=X0(i);
s=0.0;
for k=1:n
p=1.0;
for j=1:n
if j~=k
p=p*(z-X(j))/(X(k)-X(j));
end
end
s=s+p*Y(k);
end
Y0(i)=s;
plot(X0(i),Y0(i),'bo');hold on
end
plot(X,Y,'k-');