Homec4science
Diffusion Research Scripts (Thomas Bolton) (master) Browse

Scripts_Sharing/ISFC/Utils_Graphs/gspbox/pointsclouds/to_be_included/clusterincluster.m
8897434f9116master

Last Change
Raw File

clusterincluster.m
View Options

function data = clusterincluster(N, r1, r2, w1, w2, arms)
if nargin < 1
N = 1000;
end
if nargin < 2
r1 = 1;
end
if nargin < 3
r2 = 5*r1;
end
if nargin < 4
w1 = 0.8;
end
if nargin < 5
w2 = 1/3;
end
if nargin < 6
arms = 64;
end
data = [];
N1 = floor(N/2);
N2 = N-N1;
phi1 = rand(N1,1) * 2 * pi;
dist1 = r1 + randint(N1,1,3)/3 * r1 * w1;
d1 = [dist1 .* cos(phi1) dist1 .* sin(phi1) zeros(N1,1)];
perarm = round(N2/arms);
N2 = perarm * arms;
radperarm = (2*pi)/arms;
phi2 = ((1:N2) - mod(1:N2, perarm))/perarm * (radperarm);
phi2 = phi2';
dist2 = r2 * (1 - w2/2) + r2 * w2 * mod(1:N2, perarm)'/perarm;
d2 = [dist2 .* cos(phi2) dist2 .* sin(phi2) ones(N2,1)];
data = [d1;d2];
scatter(data(:,1), data(:,2), 20, data(:,3)); axis square;
end
%
% Url: http://lts2research.epfl.ch/gsp/doc/pointsclouds/to_be_included/clusterincluster.php
% Copyright (C) 2013-2016 Nathanael Perraudin, Johan Paratte, David I Shuman.
% This file is part of GSPbox version 0.5.2
%
% This program is free software: you can redistribute it and/or modify
% it under the terms of the GNU General Public License as published by
% the Free Software Foundation, either version 3 of the License, or
% (at your option) any later version.
%
% This program is distributed in the hope that it will be useful,
% but WITHOUT ANY WARRANTY; without even the implied warranty of
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
% GNU General Public License for more details.
%
% You should have received a copy of the GNU General Public License
% along with this program. If not, see <http://www.gnu.org/licenses/>.
% If you use this toolbox please kindly cite
% N. Perraudin, J. Paratte, D. Shuman, V. Kalofolias, P. Vandergheynst,
% and D. K. Hammond. GSPBOX: A toolbox for signal processing on graphs.
% ArXiv e-prints, Aug. 2014.
% http://arxiv.org/abs/1408.5781
end
c4science · Help