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
| clear all
close all
% appel de fichier
[FileName,PathName] = uigetfile('*.txt','sélectionnez les 8 fichiers texte', 'MultiSelect', 'on');
cd(PathName);
for n=1:8
fullfile(PathName, FileName{n});
h.fid{n} = fopen(fullfile(PathName,FileName{n}),'rt');
for k=1:46
fgetl(h.fid{n});
end
X{n}= fscanf(h.fid{n},'%f',[7,inf]).';
fclose(h.fid{n});
idx{n} = X{n}(:,4)>0;
Xpos{n} = X{n}(idx{n},:);
Xneg{n} = X{n}(~idx{n},:);
h.meanneg{n}=mean(-Xneg{n}(:,4));
h.meanpos{n}=mean(Xpos{n}(:,4));
mupos{n}=smooth(Xpos{n}(:,4),1000,'moving');
muneg{n}=smooth(-Xneg{n}(:,4),1000,'moving');
end
% Définition du nombre de couleurs
nb_couleurs = 8;
% Définition d'une colormap
couleurs = hsv(nb_couleurs);
% Création de la fenêtre
h.fi=figure('color',[1 1 1], 'Units','pixels','position',[1 1 1680 929]);
% Création de l'axe
h.ax=subplot(2,1,1);
% Définition des propriétés de l'axe
set(h.ax, 'NextPlot', 'add'); % Permet de tracer toutes les courbes sur le même axe (sans effacer les précédentes).
set(h.ax,'fontname','arial','fontsize',14);
% Tracé des courbes
for i_plot = 1:nb_couleurs
plot(Xpos{i_plot}(:,3),mupos{i_plot},'color',couleurs(i_plot,:));
xlabel('nombre de cycle', 'fontname','arial','fontsize',12,'fontweight','bold')
ylabel('µ_a_p_p', 'fontname','arial','fontsize',12,'fontweight','bold')
h.dx=legend('Ag 2.4mm (4-1)','Au 2.4mm (4-1)','Ag 2.4mm (5-1)','Au 2.4mm (5-1)','Ag 2.4mm (6-1)','Au 2.4mm (6-1)','Ag 2.4mm (7-1)','Au 2.4mm (7-1)','Location','Best');
set(h.dx,'fontname','arial','fontsize',10);
title({'Essais sur les échantillons Au 0.5µm et 1µm, 0.5N, 2000c, bille or et argent diamètre 2.4mm','Evolution du coefficient de frottement ','en fonction du nombre de cycles (partie positive)'});
end
% Création de l'axe
h.bx=subplot(2,1,2);
% Définition des propriétés de l'axe
set(h.bx, 'NextPlot', 'add'); % Permet de tracer toutes les courbes sur le même axe (sans effacer les précédentes).
set(h.bx,'fontname','arial','fontsize',14);
for j_plot = 1:nb_couleurs
plot(Xneg{j_plot}(:,3),muneg{j_plot},'color',couleurs(j_plot,:));
xlabel('nombre de cycle', 'fontname','arial','fontsize',12,'fontweight','bold')
ylabel('µ_a_p_p', 'fontname','arial','fontsize',12,'fontweight','bold')
h.cx=legend('Ag 2.4mm (4-1)','Au 2.4mm (4-1)','Ag 2.4mm (5-1)','Au 2.4mm (5-1)','Ag 2.4mm (6-1)','Au 2.4mm (6-1)','Ag 2.4mm (7-1)','Au 2.4mm (7-1)','Location','Best');
set(h.cx,'fontname','arial','fontsize',10);
title({'Essais sur les échantillons Au 0.5µm et 1µm, 0.5N, 2000c, bille or et argent diamètre 2.4mm','Evolution du coefficient de frottement ','en fonction du nombre de cycles (partie négative)'});
end |
Partager