OLD_MATLAB_CODE not required anymore
[valse.git] / OLD_MATLAB / SelectModel / suppressionmodelesegaux2.m
diff --git a/OLD_MATLAB/SelectModel/suppressionmodelesegaux2.m b/OLD_MATLAB/SelectModel/suppressionmodelesegaux2.m
deleted file mode 100644 (file)
index 3158d36..0000000
+++ /dev/null
@@ -1,17 +0,0 @@
-function[B1,ind,rho,pi]=suppressionmodelesegaux2(B1,rho,pi)
-
-       ind=[];
-       nombreLambda=size(B1,2);
-       for l=1:nombreLambda
-               for ll=1:l-1
-                       if B1(:,l)==B1(:,ll)
-                               ind=[ind l];
-                       end
-               end
-       end
-       ind=unique(ind);
-       B1(:,ind)=[];
-       rho(:,:,:,ind)=[];
-       pi(:,ind)=[];
-
-end