SelectModel/selectiondindice.m

   1 %utile dans selectiontotale.m, remarque quels coefficients sont nuls et lesquels ne le sont pas
   2 function[A,B]=selectiondindice(phi,seuil)
   3
   4     [pp,m,~]=size(phi);
   5     A=zeros(pp,m);
   6     B=zeros(pp,m);
   7     for j=1:pp
   8         cpt=0;cpt2=0;
   9         for mm=1:m
  10             if (max(phi(j,mm,:)) > seuil)
  11                 cpt=cpt+1;
  12                 A(j,cpt)=mm;
  13             else cpt2=cpt2+1;
  14                  B(j,cpt2)=mm;
  15             end
  16         end
  17     end
  18
  19 end