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
| for n=1:length(FileName)
fullfile(PathName, FileName{n});
h.fid{n} = fopen(fullfile(PathName,FileName{n}),'rt');
for k=1:46
fgetl(h.fid{n});
end
h.X{n}= fscanf(h.fid{n},'%f',[7,inf]).';
fclose(h.fid{n});
h.Y{n}=abs(h.X{n}(:,4));
h.idx{n} = h.X{n}(:,4)>0;
h.Xpos{n} = h.X{n}(h.idx{n},:);
h.Xneg{n} = h.X{n}(~h.idx{n},:);
h.mean{n}=mean(h.Y{n});
h.meanneg{n}=mean(-h.Xneg{n}(:,4));
h.meanpos{n}=mean(h.Xpos{n}(:,4));
h.mu{n}=smooth(h.Y{n},2000,'moving');
h.mupos{n}=smooth(h.Xpos{n}(:,4),2000,'moving');
h.muneg{n}=smooth(-h.Xneg{n}(:,4),2000,'moving');
s{n}=FileName{n};
[espace{n},chaine{n}]=fileparts(s{n});%enleve l'extension
res{n}=strread(chaine{n}','%s');
end
%lecture fichier excel contenant les coefficients de frottement moyen
[h.coef, h.texte]=xlsread('D:\PFE\essai_usure\courbes\coefficient_de_frottement.xls','feuil1');
%fabrication de la matrice contenant toutes les données enregistrées
h.b=[h.texte,num2cell(h.coef)];
%recherche de la taille de la matrice b
[h.l, h.c]=size(h.b);
%définition de la position de la cellule de la prochaine écriture dans le fichier excel
h.d=sprintf('A%d',h.l+1);
% mise en matrice de 'res' mais ça marche pas
res1=cell2mat(res{1});
%récupération des données à enregistrer mise dans une matrice
h.g=[res; h.mean; h.meanpos ;h.meanneg];
%Enregistrement des données à la suite du fichier excel
xlswrite('D:\PFE\essai_usure\courbes\coefficient_de_frottement',h.g','Feuil1',h.d); |
Partager