objective history is:

  nit    = min(length(info_e),length(info_t));
  info_e = info_e(:);
  info_t = info_t(:);
  xi     = [1:nit];
  xi     = xi(:);
  figure;loglog(xi, [info_t(1:nit) info_e(1:nit)],'linewidth',2);
  xlabel('Iteration');ylabel('Objective function');
  legend('True source','Estimated source')
  x0=10;
  y0=10;
  width=900;
  height=400;
  set(gcf,'units','points','position',[x0,y0,width,height])

%The compaison of the source wavelet is shown as follows.

%The true source function is

  lo