function y=wiggle(file,nt,nr,off)
% WIGGLE matlab equivalent of wiggle for binary input
% wiggle(file,nt,nr,off)


fid=fopen(file);
s=fread(fid,[nt nr],'real*4');

s=s/max(max(s));

for i=1:nr,
   so(:,i)=s(:,i)+(i-1)*off;
end

plot(so),
xlabel(' Time steps ')
ylabel(' Receiver '),
title(sprintf('%s', file))
   

