source: ETALON/reconstruction/clab/chiN6/plotsA.m @ 289

% % % figure(1)
% % % plot(SP,SS,'or')
% % % hold on
% % % plot(aFT)
% % % xlim([0 5000])
clear all
close all
Ndet=[1 2 3 4 7 11 14 20 30 40 50 70];
s=7
load(['result/PrN' num2str(1)],'ChiVk','Corrk','ChiVh','Corrh','RPK','RPH','RSP','Profile');
aFT=abs(fft(Profile(s,:)));
DetAngl=35+110/(Ndet(s)+1)*(1:Ndet(s));

samp1=0.3./(0.05.*(1-cosd(DetAngl)));
samp2=0.3./(0.25.*(1-cosd(DetAngl)));
samp3=0.3./(1.5.*(1-cosd(DetAngl)));
samp=[samp1 samp2 samp3];
SFr=sort(samp);
SP=unique(round(2100.*SFr./max(25.6459)));%ACHTUNG!!! remove same points
SP1=unique(round(2100.*sort(samp1)./max(25.6459)));
SP2=unique(round(2100.*sort(samp2)./max(25.6459)));
SP3=unique(round(2100.*sort(samp3)./max(25.6459)));
SS=aFT(SP);
figure(2)
hold on
plot(SP1,aFT(SP1),'og')
plot(SP2,aFT(SP2),'om')
plot(SP3,aFT(SP3),'oc')
grid on
hold on
plot(aFT)
plot(RSP(s,:),'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(5,:),'r','linew',2)
% plot(RPH(6,:),'g','linew',2)
% plot(RPH(10,:),'b','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])