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
| % Programme interpolation des épaisseurs de retombées de cendres du volcan
% Chargement du set de données
load Ech_sirs.txt
% Données sous forme de matrice
x=Ech_sirs(:,1); % Coordonnée X
y=Ech_sirs(:,2); % Coordonnée Y
z=Ech_sirs(:,3); % Epaisseur
d=Ech_sirs(:,4); % Distance au cratère
X=x;X2=(70000:20:x);
Y=y;Y2=(983000:20:y);
D=d;D2=(0:.25:d);
xi=0:50:72000;
yi=interp1(d,z,xi,'linear');
figure
plot(d,z,'*',xi,yi)
Xlabel('Distance (m)')
Ylabel('Epaisseur (cm)')
Title('Epaisseur des retombées en fonction de la distance et sa courbe d interpolation')
Hold on
P=polyfit(d,z,6);
plot([0:50:74000],polyval(P,[0:50:74000]))
[XI,YI]=meshgrid(x,y);
ZI=griddata(x,y,z,XI,YI);
figure
contour3(X,Y,ZI,100)
[C,h] = contour(X,Y,ZI);
set(h,'ShowText','on','TextStep',get(h,'LevelStep')*50)
colormap cool
%surface(X,Y,ZI,'EdgeColor',[.8 .8 .8],'FaceColor','none')
%grid off
%view(-15,25)
%colormap cool
figure
surfc(XI,YI,ZI)
Xlabel('Longitude (m)')
Ylabel('Lattitude (cm)')
Zlabel('Epaisseur (cm)')
Title('Interpolation 3D des retombées de cendres') |
Partager