Scilab Function
eng

return_cos_file

File content

//return_cos_file
//fonction cherche les fichier d'extension .cos
//dans une liste principale (voir return_master_list)
//Entrée : tt_ml liste principale
//Sortie : tt vecteurs de chaîne de carctère de taille nx2
//         tt(,1) : chemin du fichier
//         tt(,2) : nom du ficher
function tt=return_cos_file(tt_ml)
tt=[]
//tt_ml=return_master_list();
p=size(tt_ml);
l=0
for i=1:p
   for j=1:size(tt_ml(i))
       for k=1:size(tt_ml(i)(j)(2),1)
        if strindex(tt_ml(i)(j)(2)(k),'.cos')<>[] then
          if strindex(tt_ml(i)(j)(2)(k),'.cosf')==[] then
              tt_tmp=[tt_ml(i)(j)(1),tt_ml(i)(j)(2)(k)];
              tt=[tt;tt_tmp];
          end
        end
       end
   end
end
endfunction