【matlab】 拉格朗日插值

function y = lagrange1(X,Y,x0)
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 = p * Y(k) + s;
    end
    y(i) = s;
end

function L = lagrange2(x,y)
m = length(x);
for k = 1:m;
    V = 1;
    for i = 1:m;
        if k~=i
            V = conv(V,poly(x(i)))/(x(k)-x(i));
        end
    end
    l(k,:) = poly2sym(V);
end
L = y * l;

x = [1,1.2,1.8,2.5,4];
y =[0.8415,0.9320,0.9738,0.5985,-0.7568];
x0 = [1.6,3];
y0 = lagrange1(x,y,x0)

xx = 0:0.1:5;
yy1 = sin(xx);
yy2 = lagrange1(x,y,xx);
plot(xx,yy1,‘-r‘,xx,yy2,‘-b‘);
grid
L = lagrange2(x,y);
vpa(L,5)

xx0 = 1:5;
yy0 = lagrange1(x,y,xx0);
yy1 = sin(xx0);
ep = yy1 - yy0