function graficosO(Lab)
try
    tit={'L*' 'a*' 'b*'};
    figure('position',[50 50 1100 500])
    for i=1:3
      subplot(1,3,i)
      imagesc(Lab(:,:,i))
      title(tit{i})
      axis image
      colorbar('EastOutside')
    end
    colormap jet
catch
    errordlg(lasterr,'Error')
end
