Альфа-значения, дающие отличные альфа-формы
a = alphaSpectrum(shp)a находится в убывающем отсортированном порядке. Каждый элемент в a представляет значение альфа-радиуса, который приводит к отличной форме. Длина a равно количеству уникальных форм. Значения альфы, которые находятся между значениями в a не производите уникальные альфа-формы.
Создайте и постройте набор 2D точек.
th = (pi/12:pi/12:2*pi)'; x1 = [reshape(cos(th)*(1:5), numel(cos(th)*(1:5)),1); 0]; y1 = [reshape(sin(th)*(1:5), numel(sin(th)*(1:5)),1); 0]; x = [x1; x1+15;]; y = [y1; y1]; plot(x,y,'.') axis equal
Создайте альфа-форму для облака точек с помощью альфа-радиуса по умолчанию.
shp = alphaShape(x,y);
Найдите спектр критических альфа-значений, которые производят уникальные альфа-формы для облака точек.
alphaspec = alphaSpectrum(shp);
Постройте четыре из уникальных альфа-форм, сгенерированных альфа-значениями в спектре.
for k = 1:4 alpha = alphaspec(8*k-7); shp.Alpha = alpha; subplot(2,2,k) plot(shp) title("Alpha = "+alpha) end
