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
| function essai
choice=menu('Choix du dossier des images suivant le fetch',...
{'fetch 1m'...
'fetch 2m'...
'fetch 3m'...
'fetch 4m'...
'fetch 5m'...
'fetch 6m'...
'fetch 7m'...
'fetch 8m'...
'Quitter l exécution du programme'}) ; % entrer le choix
switch choice
case choice
fichier = num2str('Fetch');
numfetch = num2str(choice,'_%01dm-1');
filename = [fichier numfetch]
return;
chem='G:\essai\';
chemi=[strrep(chem,'\','/') filename ];
cd(chemi);
if( filename==0)
return;
end
if isempty(findstr('.tiff',filename))
h=msgbox('ce fichier n''est pas un fichier tiff');
waitfor(h);
essai;
end
for i=1:1;
for j=2:3;
for k=0:10;
numfile1 = num2str(choice,'f%02d');%fetch
numfilei = num2str(i,'v%01d');%vent
numfilej = num2str(j,'%01d');%numero de serie
numfilek = num2str(k,'_%04d.tiff');%numero d'image
filename = [numfile1 numfilei numfilej numfilek]
figure;
I= imread(filename);
imshow(I)
subplot(1,2,1);
imhist(I);
titre=[filename];
cd('figureshist');
hgsave(filename);
cd '..';
disp(['lecture des images ' filename]);
end
end
end |
Partager