function coef=getsteps(c)
  lc=min(size(c));
  i=1;
  for x=1/2^(lc+1):1/2^lc:1
    coef(i)=haarval(c,x);
    i=i+1;
  endfor;
    
endfunction