diff --git a/targets/PROJECTS/CORRIDOR/dpss_smooth.m b/targets/PROJECTS/CORRIDOR/dpss_smooth.m new file mode 100644 index 0000000000000000000000000000000000000000..20fc0ee4803b5f03c2437da1530475a90ddbc3f2 --- /dev/null +++ b/targets/PROJECTS/CORRIDOR/dpss_smooth.m @@ -0,0 +1,4 @@ +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 diff --git a/targets/PROJECTS/CORRIDOR/findminimumd.m b/targets/PROJECTS/CORRIDOR/findminimumd.m new file mode 100644 index 0000000000000000000000000000000000000000..225a3c369a885bcda299fda161126b45d103f33a --- /dev/null +++ b/targets/PROJECTS/CORRIDOR/findminimumd.m @@ -0,0 +1,11 @@ +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