查看单个帖子
旧 2007-12-25, 13:40   #14
yangmp
初级会员
 
注册日期: 2007-08-20
帖子: 2
声望力: 0
yangmp 正向着好的方向发展
默认 language插值法和newton插值法的matlab程序

function f=language(x,y,x0)
syms t;
if length(x)==length(y)
n=length(x);
else
disp('x和y的维数不相等');
return;
end

f=0.0;
for i=1:n
l=y(i);
for j=1:i-1
l=l*(t-x(j))/(x(i)-x(j));
end
for j=i+1:n
l=l*(t-x(j))/(x(i)-x(j));
end

f=f+l;
simplify(f);

if i==n
if nargin==3
f=subs(f,'t',x0);
else
f=collect(f);
f=vpa(f,6);
end
end
end


function f=newton(x,y,x0)
syms t;
if length(x)==length(y)
n=length(x);
c(1:n)=0.0;
else
disp('x和y的维数不相等!');
return;
end

f=y(1);
y1=0;
l=1;

for i=1:n-1
for j=i+1:n
y1(j)=(y(j)-y(i))/(x(j)-x(i));
end
c(i)=y1(i+1);
l=l*(t-x(i));
f=f+c(i)*l;
simplify(f);
y=y1;

if i==n-1
if nargin==3
f=subs(f,'t',x0);
else
f=collect(f);
f=vpa(f,6);
end
end
end
yangmp 当前离线   回复时引用此帖