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 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87
| clear all
delimiterIn = ' ';
%%Landscape
landscape = importdata('landscape_plaqueL_homogene.txt', delimiterIn);
[r, id] = unique(landscape, 'rows');
z = r(:,3);
x = r(:,1);
y = r(:,2);
n = 100;
[X, Y] = meshgrid(linspace(min(x)+0.005,max(x)-0.005, n), linspace(min(y)+0.005, max(y)-0.005,n));
landscape = griddata(x,y,z,X,Y);
% figure
% imagesc(landscape)
% axis image
% set(gca,'ydir','normal')
water = watershed(-landscape);
valley = water==0;
m=landscape(valley);
[yy,xx]=find(valley);
% figure
% imagesc(m)
%%Valeur Propre
valpropre = importdata('EigenValP.txt', delimiterIn);
%%Eigenmode
%%eigenmode
eigenmode= importdata('test.txt', delimiterIn);
[re, id] = unique(eigenmode, 'rows');
for k=1:3
u=m(:,1)*valpropre(k,1);
if max(u)>1
tab=valley;
for i=1:269
if m(i,1)*valpropre(k,1)>1
tab(yy(i,1),xx(i,1))=0;
end
end
figure
imagesc(tab)
title([num2str(k)])
ze = re(7340*(k-1)+1:7340*k,5);
xe = re(7340*(k-1)+1:7340*k,3);
ye = re(7340*(k-1)+1:7340*k,4);
n = 100;
[Xe, Ye] = meshgrid(linspace(min(xe)+0.005,max(xe)-0.005, n), linspace(min(ye)+0.005, max(ye)-0.005,n));
eigenmode = griddata(xe,ye,ze,Xe,Ye);
figure
c=imfuse(eigenmode,tab);
imagesc(c)
end
end |
Partager