%x - массив абсцисс точек
function y=sfunc(x)
for i = 1:length(x)
if (x(i) < 0) y(i)=0;
else y(i) = x(i);
end
end
function z=lagranzh(t,x)
for j = 1:length(t)
z(j)=0;
for i = 1:length(x)
z(j)=z(j)+sfunc(x(i))*w(t(j),x,i)/w(x(i),x,i);
end
end
function z=w(t,x,j)
for k = 1:length(t)
z(k)=1;
for i = 1:length(x)
if (i ~= j) z(k)=z(k)*(t(k)-x(i));
end
end
end
end
function z=ravnomer(c,d,n)
if (c<=d) & (n>=2)
for i= 0:n
z(i+1)=c+(d-c)*i/n;
end
else z=0;
end
function z=tcebishev(c,d,n)
if (c<d) & (n>=2)
for i = 0:n
z(i+1) = 0.5*((d-c)*cos((2*i+1)/(2*n+2)*pi)+c+d);
end
else
z=0;
end
1. Интерполяционные полиномы 2 порядка и погрешности вычислений.
2. Интерполяционные полиномы 6 порядка и погрешности вычислений.
3. Интерполяционные полиномы 14 порядка и погрешности вычислений.
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.