From badefada4f78fbb052449d265eb0340cfaed9ae1 Mon Sep 17 00:00:00 2001
From: Florian Kaltenberger <florian.kaltenberger@eurecom.fr>
Date: Wed, 17 Dec 2014 13:38:16 +0000
Subject: [PATCH] git-svn-id: http://svn.eurecom.fr/openair4G/trunk@6277
 818b1a75-f10b-46b9-bf7c-635c3b92a50f

---
 targets/PROJECTS/CORRIDOR/dpss_smooth.m  |  4 ++++
 targets/PROJECTS/CORRIDOR/findminimumd.m | 11 +++++++++++
 2 files changed, 15 insertions(+)
 create mode 100644 targets/PROJECTS/CORRIDOR/dpss_smooth.m
 create mode 100644 targets/PROJECTS/CORRIDOR/findminimumd.m

diff --git a/targets/PROJECTS/CORRIDOR/dpss_smooth.m b/targets/PROJECTS/CORRIDOR/dpss_smooth.m
new file mode 100644
index 0000000000..20fc0ee480
--- /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 0000000000..225a3c369a
--- /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
-- 
2.26.2