Интерполяция

Можно создать кубический сплайн interpolant, который совпадает с косинусной функцией при следующих сайтах x, использование csapi команда.

x = 2*pi*[0 1 .1:.2:.9];
y = cos(x);
cs = csapi(x,y);

Можно затем просмотреть сплайн интерполяции при помощи fnplt.

fnplt(cs,2);
axis([-1 7 -1.2 1.2])
hold on
plot(x,y,'o')
hold off

Проверка Interpolant

Косинусная функция 2*pi-periodic. Как хорошо делает наш кубический сплайн interpolant, делают в том отношении? Один способ проверять состоит в том, чтобы вычислить различие в первой производной в этих двух конечных точках.

diff( fnval( fnder(cs), [0 2*pi] ) )

ans = -0.1375

Чтобы осуществить периодичность, используйте csape вместо csapi.

csp = csape( x, y, 'periodic' );
hold on
fnplt(csp,'g')
hold off

Теперь проверка дает

diff( fnval( fnder(csp), [0 2*pi] ) )

ans = -2.2806e-17

Даже вторая производная теперь соответствует в конечных точках.

diff( fnval( fnder(csp, 2), [0 2*pi] ) )

ans = -2.2204e-16

Кусочный линейный interpolant к тем же данным доступен через spapi. Здесь мы добавляем его в предыдущий график в красном.

pl = spapi(2, x, y);
hold on
fnplt(pl, 'r', 2)
hold off

Сглаживание

Если данные являются шумными, вы обычно хотите аппроксимировать, а не интерполировать. Например, с этими данными

x = linspace(0,2*pi,51);
noisy_y = cos(x) + .2*(rand(size(x))-.5);
plot(x,noisy_y,'x')
axis([-1 7 -1.2 1.2])

интерполяция дала бы волнистый interpolant, отображенный ниже синим.

hold on
fnplt( csapi(x, noisy_y) )
hold off

В отличие от этого сглаживая с соответствующим допуском

tol = (.05)^2*(2*pi)

tol = 0.0157

дает сглаживавшее приближение, отображенное ниже красным.

hold on
fnplt( spaps(x, noisy_y,  tol), 'r', 2 )
hold off

Приближение является намного хуже около концов интервала и является совсем не периодическим. Чтобы осуществить периодичность, аппроксимированную к периодически расширенным данным, затем ограничивают приближение исходным интервалом.

noisy_y([1 end]) = mean( noisy_y([1 end]) );
lx = length(x);
lx2 = round(lx/2);
range = [lx2:lx 2:lx 2:lx2];
sps = spaps([x(lx2:lx)-2*pi x(2:lx) x(2:lx2)+2*pi],noisy_y(range),2*tol);

Это дает более близко периодическое приближение, отображенное черным цветом.

hold on
fnplt(sps, [0 2*pi], 'k', 2)
hold off

Приближение наименьших квадратов

В качестве альтернативы вы могли использовать приближение наименьших квадратов для зашумленных данных сплайном с немногими степенями свободы.

Например, вы можете попробовать кубический сплайн всего четырьмя частями.

spl2 = spap2(4, 4, x, noisy_y);
fnplt(spl2,'b',2);
axis([-1 7 -1.2 1.2])
hold on
plot(x,noisy_y,'x')
hold off

Свяжите выбор узлом

При использовании spapi или spap2, обычно необходимо задавать конкретный пробел сплайна. Это сделано путем определения последовательности узла и порядка, и это может быть определенной проблемой. Однако при выполнении интерполяции сплайна к x,y данные с помощью сплайна порядка k, можно использовать функциональный optknt предоставлять хорошую последовательность узла, как в следующем примере.

k = 5;   % order 5, i.e., we are working with quartic splines
x = 2*pi*sort([0 1 rand(1,10)]);
y = cos(x);
sp = spapi( optknt(x,k), x, y );
fnplt(sp,2,'g');
hold on
plot(x,y,'o')
hold off
axis([-1 7 -1.1 1.1])

При выполнении приближения наименьших квадратов можно использовать текущее приближение, чтобы определить возможно лучший выбор узла при помощи newknt. Например, следующее приближение к показательной функции не весь настолько хорошо, как видно из ее ошибки, построенной в красном.

x = linspace(0,10,101);
y = exp(x);
sp0 = spap2( augknt(0:2:10,4), 4, x, y );
plot(x,y-fnval(sp0,x),'r','LineWidth',2)

Однако можно использовать то начальное приближение, чтобы создать другой с тем же количеством узлов, но которые лучше распределяются. Его ошибка построена в черном цвете.

sp1 = spap2( newknt(sp0), 4, x, y );
hold on
plot(x,y-fnval(sp1,x),'k','LineWidth',2)
hold off

Данные с координатной сеткой

Все команды интерполяции и приближения сплайна в Curve Fitting Toolbox могут также обработать данные с координатной сеткой в любом количестве переменных.

Например, вот сплайн bicubic interpolant к мексиканской функции Шляпы.

x =.0001+(-4:.2:4);
y = -3:.2:3;
[yy,xx] = meshgrid(y,x);
r = pi*sqrt(xx.^2+yy.^2);
z = sin(r)./r;
bcs = csapi({x,y}, z);
fnplt(bcs)
axis([-5 5 -5 5 -.5 1])

Вот приближение наименьших квадратов к шумным значениям той же самой функции на той же сетке.

knotsx = augknt(linspace(x(1), x(end), 21), 4);
knotsy = augknt(linspace(y(1), y(end), 15), 4);
bsp2 =  spap2({knotsx,knotsy},[4 4], {x,y},z+.02*(rand(size(z))-.5));
fnplt(bsp2)
axis([-5 5 -5 5 -.5 1])

Кривые

Данные с координатной сеткой могут быть обработаны легко, потому что Curve Fitting Toolbox может иметь дело со сплайнами с векторным знаком. Это также дает возможность работать с параметрическими кривыми.

Здесь, например, приближение к бесконечности, полученной путем проведения кубической сплайновой кривой через точки, отмеченные в следующем рисунке.

t = 0:8;
xy = [0 0;1 1; 1.7 0;1 -1;0 0; -1 1; -1.7 0; -1 -1; 0 0].';
infty = csape(t, xy, 'periodic');
fnplt(infty, 2)
axis([-2 2 -1.1 1.1])
hold on
plot(xy(1,:),xy(2,:),'o')
hold off

Вот та же кривая, но с движением в третьей размерности.

roller = csape( t , [ xy ;0 1/2 1 1/2 0 1/2 1 1/2 0], 'periodic');
fnplt( roller , 2, [0 4],'b' )
hold on
fnplt( roller, 2, [4 8], 'r')
plot3(0,0,0,'o')
hold off

Две половины кривой построены в различных цветах, и источник отмечен как помощь визуализации этой двукрылой пространственной кривой.

Поверхности

Двумерные сплайны продукта тензора со значениями в R^3 дают поверхности. Например, вот хорошее приближение к торусу.

x = 0:4;
y = -2:2;
R = 4;
r = 2;
v = zeros(3,5,5);
v(3,:,:) = [0 (R-r)/2 0 (r-R)/2 0].'*[1 1 1 1 1];
v(2,:,:) = [R (r+R)/2 r (r+R)/2 R].'*[0 1 0 -1 0];
v(1,:,:) = [R (r+R)/2 r (r+R)/2 R].'*[1 0 -1 0 1];
dough0 = csape({x,y},v,'periodic');
fnplt(dough0)
axis equal, axis off

Вот корона нормалей на ту поверхность.

nx = 43;
xy = [ones(1,nx); linspace(2,-2,nx)];
points = fnval(dough0,xy)';
ders = fnval(fndir(dough0,eye(2)),xy);
normals = cross(ders(4:6,:),ders(1:3,:));
normals = (normals./repmat(sqrt(sum(normals.*normals)),3,1))';
pn = [points;points+normals];
hold on
for j=1:nx
   plot3(pn([j,j+nx],1),pn([j,j+nx],2),pn([j,j+nx],3))
end
hold off

Наконец, вот его проекция на (x, y) - плоскость.

fnplt(fncmb(dough0, [1 0 0; 0 1 0]))
axis([-5.25 5.25 -4.14 4.14]), axis off

Данные, имеющий разброс

Также возможно интерполировать к значениям, данным на сайтах данных нес координатной сеткой в плоскости. Рассмотрите, например, задачу отображения модульного квадрата гладко к единичному диску. Мы создаем значения данных, отмеченные как круги и соответствующие сайты данных, отмеченные как x's. Каждый сайт данных соединяется со своим присваиваемым значением стрелой.

n = 64;
t = linspace(0,2*pi,n+1); t(end) = [];
values = [cos(t); sin(t)];
plot(values(1,:),values(2,:),'or')
axis equal, axis off

sites = values./repmat(max(abs(values)),2,1);
hold on
plot(sites(1,:),sites(2,:),'xk')
quiver(sites(1,:),sites(2,:), ...
       values(1,:)-sites(1,:), values(2,:)-sites(2,:))
hold off

Затем используйте tpaps создать двумерный интерполирующий сплайн тонкой пластины с векторным знаком.

st = tpaps(sites, values, 1);

Сплайн действительно сопоставляет модульный квадрат гладко (приблизительно) к единичному диску как его график через fnplt указывает. График показывает изображение однородно распределенной квадратной сетки в соответствии с картой сплайна в st.

hold on
fnplt(st)
hold off