
hiper=1;
Nt=3;
L=7;
M=10;
flag=0;
recep=0;
w=[0 2 4 6 8 10 12 14 16 18];
Channel=1;
FrameLength=1;
%datos=8;
%v=0;
%[variances,Lc]=CIRpowers(Channel);
%hfr=[];
%for ih=1:Lc+1
  %hfr=[hfr;genh(FrameLength,v)];
  %end
  %  hfr=diag(variances.^0.5)*hfr;     
    h=[1 2 3];
  