initial commit
[valse.git] / 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