38 lines
736 B
Mathematica
38 lines
736 B
Mathematica
|
clear;
|
||
|
|
close all;
|
||
|
|
taille_ecran = get(0,'ScreenSize');
|
||
|
|
L = taille_ecran(3);
|
||
|
|
H = taille_ecran(4);
|
||
|
|
|
||
|
|
load donnees;
|
||
|
|
|
||
|
|
figure('Name','Tomographie : resolution par retroprojection','Position',[0.2*L,0,0.8*L,0.5*H]);
|
||
|
|
|
||
|
|
% Affichage de l'image originale :
|
||
|
|
subplot(1,3,1);
|
||
|
|
imagesc(I);
|
||
|
|
colormap gray;
|
||
|
|
axis off;
|
||
|
|
axis equal;
|
||
|
|
title('Image d''origine','FontSize',20);
|
||
|
|
|
||
|
|
% Affichage du sinogramme :
|
||
|
|
subplot(1,3,2);
|
||
|
|
imagesc(sinogramme);
|
||
|
|
colormap gray;
|
||
|
|
axis off;
|
||
|
|
axis equal;
|
||
|
|
title('Sinogramme','FontSize',20);
|
||
|
|
drawnow;
|
||
|
|
|
||
|
|
% Rétroprojection :
|
||
|
|
f = retroprojection(sinogramme,theta,nb_rayons,nb_lignes,nb_colonnes);
|
||
|
|
|
||
|
|
% Affichage de la solution :
|
||
|
|
subplot(1,3,3);
|
||
|
|
imagesc(f);
|
||
|
|
colormap gray;
|
||
|
|
axis off;
|
||
|
|
axis equal;
|
||
|
|
title('Resultat de la tomographie','FontSize',20);
|