diff functions/fe_funcs/vec2featmat.m @ 0:2fadb31a9d55 tip

Import code by Vuegen et al
author Dan Stowell <dan.stowell@elec.qmul.ac.uk>
date Fri, 11 Oct 2013 12:02:43 +0100
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/functions/fe_funcs/vec2featmat.m	Fri Oct 11 12:02:43 2013 +0100
@@ -0,0 +1,9 @@
+function [M,Mdct]=vec2featmat(D,cep_ord)
+  
+b0=[0 0 0 0 1  0  0  0 0];
+b1=[0 0 2 1 0 -1 -2 0 0]/10;
+b2=conv(b1(3:7),[2 1 0 -1 -2]/10);
+
+Mdct=[cos(pi*(1:cep_ord)'*((1:D)-0.5)/D);ones(1,D)];
+
+M=kron([b0;-b1;b2],Mdct);
\ No newline at end of file