% Pasha SHADKAMI  PIMA  12/03/2008
% Affichage des images 3D - .IMA 
%************************************************************
    
function []=Affichage(Image)
counter = ceil(size(Image,3)/20);
    k=1;
    i=1;
    chk = size(Image,3);
    while(counter~=0)             
             for j=1:20
                 if(chk>0)
                    figure(k);subplot(4,5,j);imagesc(Image(:,:,i));colormap(gray);
                    chk=chk-1;
                    i=i+1;
                 end
             end          
    k=k+1;
    counter=counter-1;
    end
   
end
    