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