% % % figure(1)
% % % plot(SP,SS,'or')
% % % hold on
% % % plot(aFT)
% % % xlim([0 5000])
% figure(2)
% plot(SP,SS,'or')
% grid on
% hold on
% plot(aFT)
% plot(RSP,'k')
% xlim([0 5010])
% % 
s=1
load(['result/PrN' num2str(1)],'ChiVk','Corrk','ChiVh','Corrh','RPK','RPH','RSP','Profile');
close all
figure(3)
plot(Profile(s,:),'k','linew',2)
hold on
plot(RPK(s,:),'r','linew',2)
plot(RPH(s,:),'g','linew',2)
grid on
xlim([32600 32950])
% ch=mean(Chi,1);
% 
% bar(ch(1:9))
% set(gca,'YGrid','on')  % horizontal grid
% set(gca,'XTickLabel',{'Lw1', 'Lw5', 'Lw10', 'Lw1X','Lw5X', 'Lw10X', 'Tw10', 'Tw1X', 'Tw5X'},'fontsize',10)
% colormap([1,0,0]);
% 
% ylabel('\chi^2')
% 
% title('Comparison of different sample methods, Hilbert')
% load SData.mat
% [Profile,~]=PR_func(4, 2^(-16));
% aFT=abs(fft(Profile));
% SFr=sort(Lw1);
% SP=unique(round(2100.*SFr./max(Tw10)));%ACHTUNG!!! remove same points
% SS=aFT(SP);
% figure(1)
% plot(SP,SS,'or')
% hold on
% plot(aFT)
% xlim([0 5000])