function vector = H1(m)
vector(1:m)=0;
for i=1:m
   if(i>=(m/4) & i<=((3*m/4)-1))
      vector(i) = sqrt(2);
   else
      vector(i) = 0;
   end
end
vector=vector';