function plotsmp(Smp,fg)
nc = size(Smp,2);

figure(fg);
for i=1:nc
    for j=1:nc
        subplot(nc,nc,(i-1)*nc+j);
        plot(Smp(:,i),Smp(:,j),'.');
    end
end