ideb=1309;
iFin=1313;
setstring[@chemin,"C:\programmation\TraitementSpectres_DEV\dataTEST\"];
La:setstring[@fichier,chemin$,"tol",ideb,".2Du"];
openspectre[2,fichier$,"tamp2D"];
NormMoniSpectre2D[1000,"tamp2D","tamp2DNorm"];
sommeDNPA["tamp2DNorm","tamp1D","masque1",64,64,100,8,0.005,2.5];
setstring[@fichier,chemin$,"tol",ideb,".1Du"];
savespectre[1,fichier$,"tamp1D"];
ideb=ideb+1;
if ideb<(ifin+1) then La;