function X=EXOTP3Q3(IMAGE)

% function X=EXOTP3Q3(IMAGE)
% 
% La matrice d'entrée IMAGE est une matrice carrée de taille [N,N]. La
% matrice de sortie X est la matrice de taille [180,N] dont la ligne
% d'indice k figure le vecteur ligne dont les coordonnées sont celles de la
% somme des N vecteurs colonne de la matrice IMAGE tournée de k degrés. 
% L'image obtenue en affichant la matrice X comme une image s'appelle le
% sinogramme de l'image I. Reconstituer I à partir de X soutend le principe du
% CAT scanner en imagerie médicale.  

[M,N] = size(IMAGE);
X=zeros(180,N); 
for k=1:180    
IMAGErot=imrotate(IMAGE,k,'crop');
% cette commande fait pivoter la matrice IMAGE de k degrés 
% en préservant sa taille carrrée (grâce à l'option 'crop'). 
C=sum(IMAGErot,2); 
% calcule le vecteur colonne correspondant à la somme des 
% vecteurs colonne de la matrice IMAGErot. 
L=conj(C');
% transpose le vecteur C en un vecteur ligne L. 
X(k,:) = L; 
end


