ceo 0.1.0

%% 
% gpuDevice([])
addpath('~/CEO/mfiles/')

nLenslet_ = [20 40 64 84 150];
D_        = [3.6 8 5 42 30];
ceodir = '~/CEO';

for kRun = 2:length(D_)
    
D = D_(kRun);

%  atm = atmosphere(photometry.V,r0,L0,...
%      'altitude',[0, 500, 1000, 2000, 5000, 8000. 13000],...
%      'fractionnalR0',[0.2, 0.1, 0.1, 0.3, 0.2, 0.05, 0.05],...
%      'windSpeed',[10, 5, 7.5, 5, 10, 12, 15],...
%      'windDirection',[0, 0.25, 0.5, 1, 1.5, 1.75, 2]);
%  atm = gmtAtmosphere(1);
% r0 = atm.r0;
% L0 = atm.L0;

 nLenslet = nLenslet_(kRun);
d = D/nLenslet;
nPxLenslet = 16;
cxy0 = 0.5*(nPxLenslet-1);
nxy = nLenslet*nPxLenslet;

r0 = d;
L0 = 30;
% atm = atmosphere(photometry.V,r0,L0,'windSpeed',10,'windDirection',0);
atm = gmtAtmosphere(1,'L0',L0);
atm.r0 = d;
lambda = atm.wavelength;
phase2nm = 1e9;

nIt = 200;
ne = nLenslet+1;

compile = true;

if compile
%%
cd([ceodir,'/include'])
unix(['sed -i ',...
    '-e ''s/#define N_SIDE_LENSLET [0-9]*/#define N_SIDE_LENSLET ',num2str(nLenslet),'/g'' ',...
    '-e ''s/#define _N_PX_PUPIL_ [0-9]*/#define _N_PX_PUPIL_ ',num2str(nPxLenslet),'/g'' ',...
    '-e ''s/#define _N_LAYER_ [0-9]*/#define _N_LAYER_ ',num2str(atm.nLayer),'/g'' ',...
    '-e ''s/#define _N_PIXEL_ [0-9]*/#define _N_PIXEL_ ',...
    num2str((nLenslet*nPxLenslet)^2),'/g'' definitions.h']);
unix('cat definitions.h');
cd(ceodir)
unix('make clean all')
%%
% fprintf(' ==>>> CG (N=%d)\n',nLenslet)
% tic
%unix(sprintf('./a.out %3.1f CG > CVGCE_CG_%03d_%03d.log',D,nIt,nLenslet));
%toc
cd([ceodir,'/iterativeSolvers'])
unix('make iterativeSolvers.bin')
fprintf(' ==>>> MINRES (N=%d)\n',nLenslet)
tic
unix(sprintf('./a.out %3.1f MINRES > CVGCE_MINRES_%03d_%03d.log',D,nIt,nLenslet));
toc
end

%%
kk = min(834,nIt);
% pup = tools.piston(ne,'type','logical','shape','square');
pup = logical( loadBin(sprintf('A_mask_%03d',nLenslet),'map','type','char') );
pup = pup(:);
% ps = loadBin('phaseScreen',[nxy,nxy]);
ps = phase2nm*loadBin(sprintf('CVGCE_phaseScreenLowRes_%03d',nLenslet),[ne*ne,nIt]);
ps = bsxfun( @minus, ps, mean(ps(pup,:),1) );
ps = bsxfun( @times, pup, ps);
ps_k = reshape(ps(:,kk),[ne,ne]);
figure(102)
% subplot(2,3,[1,2])
% imagesc(ps)
% axis square
% xlabel(colorbar('location','northOutside'),'[nm]')
gs_ps = phase2nm*loadBin(sprintf('CVGCE_GS_phaseScreenLowRes_%03d',nLenslet),[ne*ne,nIt]);
gs_ps = bsxfun( @minus, gs_ps, mean(gs_ps(pup,:),1) );
gs_ps = bsxfun( @times, pup, gs_ps);
gs_ps_k = reshape(gs_ps(:,kk),[ne,ne]);

%c = loadBin('centroids',[nLenslet,nLenslet*2]);
%subplot(3,4,[9,12])
%imagesc(c)
%axis equal tight
%colorbar('location','north')

%ps_e = phase2nm*loadBin('phaseScreenEst',[ne,ne]);
%ps_e = phase2nm*loadBin(sprintf('CG_phaseEst_%3d_%2d',nIt,nLenslet),[ne*ne,nIt]);
ps_e = phase2nm*loadBin(sprintf('CVGCE_MINRES_phaseEst_%03d_%03d',nIt,nLenslet),[ne*ne,nIt]);
ps_e = bsxfun( @minus, ps_e, mean(ps_e(pup,:),1) );
ps_e = bsxfun( @times, pup, ps_e);
ps_e_k = reshape(ps_e(:,kk),[ne,ne]);
subplot(2,1,1)
imagesc([ps_k,ps_e_k])
axis equal tight
xlabel(colorbar('location','northOutside'),'[nm]')

ps_err = bsxfun( @minus, ps, ps_e);
rms_ps_err = std(ps_err);
ps_err_k = reshape(ps_err(:,nIt),[ne,ne]);
subplot(2,1,2)
imagesc(ps_err_k)
axis equal tight
title(sprintf('wfe=%6.2fnm',rms_ps_err(nIt)))
xlabel(colorbar('location','southOutside'),'[nm]')

%%
rms_ps = std(ps);
rms_ps_err = std(ps-gs_ps);
rms_ps_err_minres = std(ps_err);

logdata    = fileread(sprintf('CVGCE_MINRES_%03d_%03d.log',nIt,nLenslet));
logexcerpt = regexp(logdata,'[^\n]*WAVEFRONT ESTIMATION: Elapsed time[^\n]*','match');
est_ET = cellfun( @(x) str2double(x(42:49)) , logexcerpt);
logexcerpt = regexp(logdata,'[^\n]*MINRES converged at iteration[^\n]*','match');
est_nIt = cellfun( @(x) str2double(x(30:32)) , logexcerpt);

u = 1:nIt;
figure(3141)   
subplot(2,3,kRun)
plot(u,rms_ps,'k',u,rms_ps_err,'r',u,rms_ps_err_minres,'.-')
title({sprintf('N=%d - rec.: %4.2fms+/-%2.0f\\mus, (%d)%d It',nLenslet,...
    mean(est_ET),std(est_ET)*1e3,...
    est_nIt(1),round(median(est_nIt(2:end)))),...
    sprintf('LGS wfe: %3.0f+/-%2.0fnm - MMSE wfe: %3.0f+/-%2.0fnm',...
    mean(rms_ps_err),std(rms_ps_err),...
    mean(rms_ps_err_minres),std(rms_ps_err_minres))})
xlabel('Iteration #')
ylabel('WFE [nm]')
grid
%legend('MINRES','CG',0)

drawnow

end

%%
%{
logdata    = fileread(sprintf('CVGCE_MINRES_%03d_%03d.log',nIt,nLenslet));
logexcerpt = regexp(logdata,'[^\n]*Solver residue norm[^\n]*','match');
res_minres = cellfun( @(x) str2double(x(33:end)) , logexcerpt);
logexcerpt = regexp(logdata,'[^\n]*r norm=[^\n]*','match');
res_it_minres = cellfun( @(x) str2double(x(8:end)) , logexcerpt);
w = 1:length(res_it_minres);
nStep = length(res_it_minres)/nIt;
figure(1)
hold all
plot(w(nStep:nStep:end),res_minres,'--.',w,res_it_minres,':.')
%}