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
| clc, clear all, close all
[listOfFiles, folder] = uigetfile ({'t*F1.spc','Tubes fenêtre 1 (*.spc)';'t*F2.spc','Tubes fenêtre 2 (*.spc)';
't*_anormalF1.spc','Tubes anormaux fenêtre 1 (*.spc)';'t*_anormalF2.spc','Tubes anormaux fenêtre 2 (*.spc)';
'cu*F1.spc','Chambres urinaires fenêtre 1 (*.spc)';'cu*F2.spc','Chambres urinaires fenêtre 2 (*.spc)';
'cb*F1.spc','Capsules de Bowman fenêtre 1 (*.spc)';'cb*F2.spc','Capsules de Bowman fenêtre 2 (*.spc)';
'mesang*F1.spc','Mésangiums fenêtre 1 (*.spc)';'mesang*F2.spc','Mésangiums fenêtre 2 (*.spc)';
'i*F1.spc','Intersitiums fenêtre 1 (*.spc)';'i*F2.spc','Intersitiums fenêtre 2 (*.spc)';
'vx*F1.spc','Vaisseaux fenêtre 1 (*.spc)';'vx*F2.spc','Vaisseaux fenêtre 2 (*.spc)';
'cg*F1.spc','Parois capillaires glomérulaires fenêtre 1 (*.spc)';'cg*F2.spc','Parois capillaires glomérulaires fenêtre 2 (*.spc)'
'*.*','All Files (*.*)'
}, 'Selection du spectre', 'MultiSelect', 'on');
listOfFiles = cellstr(listOfFiles)
for j=1:length(listOfFiles)
fullFileName = fullfile(folder, listOfFiles{j}); %[folder listOfFiles{1,j}];
spectrum = tgspcread(fullFileName);
fid = fopen('test.txt','wt');
fwrite(fid,fullFileName);
fclose(fid)
figure(1);
plot(spectrum.X,spectrum.Y(:,1));
hold all
end
legend(listOfFiles,-1), title(folder) , ylabel('Intensity(a.u)'),
xlabel('wavenumber (1/cm)'); |
Partager