1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
|
%rééchantillonage de l'image aux dimensions du couple précédent
im=imread('572854_3915509_1.TIF');
figure
image(im)
m1=load('572854_3915509.out');
x1=m1(:,1);%adresse de mon champ de déplacement en x
y1=m1(:,2);%adresse de mon champ de déplacement en y
intens=m1(:,3);%intensité du champ
for i=1:length(x1)
if intens(i)>=20
intens(i)=0.001;
elseif intens(i)==0,
intens(i)=0.001;
end
intens(i)=intens(i)*15;
end
hold on
c=scatter(x1,y1,60,intens,'filled')%tracé du champ de déplacement sur %l'image
im2=imread('592730_39030387778_1.TIF');%image de moins bonne qualité
figure
im2 = ind2rgb(im2,gray(256));
image(im2)
m2=load('592730_39030387778.out');%fichier contenant l'info sur le champ %de déplacement de moins bonne qualité
x2=m2(:,1);%adresse du champ de déplacement de moins bonne qualité en x
y2=m2(:,2);%adresse du champ de déplacement en y
intens2=m2(:,3);%intensité du champ de déplacement de la 2e image, ne sert à rien ici
for i=1:length(x2)
if intens2(i)>=20
intens2(i)=0.001;
elseif intens2(i)==0,
intens2(i)=0.001;
end
intens2(i)=intens2(i)*15;
end
hold on
c=scatter(x2,y2,60,intens2,'filled')%c'est juste à titre indicatif
m=interp2(x2,y2,intens,x1,y1)%interpolation de mon champ de bonne qualité aux coordonnées de l'image de moins bonne qualité |
Partager