Labfans是一个针对大学生、工程师和科研工作者的技术社区。 论坛首页 | 联系我们(Contact Us)
MATLAB爱好者论坛-LabFans.com
返回   MATLAB爱好者论坛-LabFans.com > 学术科研 > 学术科研
学术科研 有关学术现象,论文发表,这里是硕士和博士研究生交流的地方。
回复
 
主题工具 显示模式
旧 2007-12-25, 13:40   #1
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 当前离线   回复时引用此帖
回复


发帖规则
不可以发表新主题
不可以发表回复
不可以上传附件
不可以编辑自己的帖子

启用 BB 代码
论坛启用 表情符号
论坛启用 [IMG] 代码
论坛禁用 HTML 代码



所有时间均为北京时间。现在的时间是 07:01


Powered by vBulletin
版权所有 ©2000 - 2025,Jelsoft Enterprises Ltd.