function wrr=winrr(T,W,p,rr,pm)
  wrr=[];
  for i=1:length(pm),
    wrr(i,:)=rr(pm(i):(pm(i)+T*W*p*4*8-1));
  end