flag_plot_sampling

0001 function flag_plot_sampling(L, P, R)
0002 
0003 [rs, thetas, phis] = flag_sampling(L, P, R);
0004 
0005 x = [];
0006 y = [];
0007 z = [];
0008 s = [];
0009 for i = 1:P
0010     for j = 1:L
0011         for k = 1:2*L-1
0012             x = [x rs(i)*cos(phis(k))*sin(thetas(j))];
0013             y = [y rs(i)*sin(phis(k))*sin(thetas(j))];
0014             z = [z rs(i)*cos(thetas(j))];
0015             s = [s i];
0016         end
0017     end   
0018 end
0019 c = numel(x):-1:1;
0020 
0021 figure('Position',[1 1 600 600])
0022 title('Fourier-Laguerre transform: 3D sampling theorem', 'FontSize', 20);
0023 h = scatter3(x,y,z,0.5*s,c,'filled');
0024 set(gca, 'visible', 'off'); 
0025 view(60,30);
0026 zoom(1.5);
0027 
0028 end