[valse.git] / OLD_MATLAB / SelectModel / selectiondindice.m

%utile dans selectiontotale.m, remarque quels coefficients sont nuls et lesquels ne le sont pas
function[A,B]=selectiondindice(phi,seuil)

	[pp,m,~]=size(phi);
	A=zeros(pp,m);
	B=zeros(pp,m);
	for j=1:pp
		cpt=0;cpt2=0;
		for mm=1:m
			if (max(phi(j,mm,:)) > seuil)
				cpt=cpt+1;
				A(j,cpt)=mm;
			else cpt2=cpt2+1;
				 B(j,cpt2)=mm;
			end
		end
	end

end
Commit	Line	Data
1d3c1faa BA	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