function result=zero(name)
[X,t,f] = wavread(name);
chunks = floor(length(X)/64);
result=zeros(1,chunks);
for i=0:chunks-1
 for j=2:64
  result(i+1) = result(i+1) + abs(sign(X(i*64+j)-sign(X(i*64+j-1))));
 endfor
endfor
return
endfunction
