Альфа-значения, дающие отличные альфа-формы
a = alphaSpectrum(shp)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);
Постройте график альфа-формы, соответствующей наименьшему альфа-значению в спектре.
shp.Alpha = alphaspec(length(alphaspec)); plot(shp)
Сравните эту альфа-форму с той, произведенной следующим наименьшим критическим альфа-значением. Альфа-формы уникальны.
shp.Alpha = alphaspec(length(alphaspec)-1); plot(shp)
