git-svn-id: http://svn.eurecom.fr/openair4G/trunk@6277 818b1a75-f10b-46b9-bf7c-635c3b92a50f

targets/PROJECTS/CORRIDOR/dpss_smooth.m

+function H_dpss = dpss_smooth(H,V,Dopt,f_start)
+
+alpha = V(f_start:4:end,1:Dopt)'*H.';
+H_dpss = V(:,1:Dopt)*alpha;
\ No newline at end of file

targets/PROJECTS/CORRIDOR/findminimumd.m

+function [MSEsubsp,minind]=findminimumd(sigma2, nM, nD, Sb)
+
+% Changes:
+% Author: Thomas Zemen
+% Copyright (c) by Forschungszentrum Telekommunikation Wien (ftw.)
+
+for i=1:nD
+  MSEsubsp(i)=i/nM*sigma2+1/nM*sum(Sb(i+1:nD));
+end
+
+[MSEmin,minind]=min(MSEsubsp);
\ No newline at end of file