% play matlab file .mat
% r(i,j,k) format:
% i = number
% j = jth realization
% k = time
r=[];
d=[];
m=[];
s = input('Matlab file name (.mat)?','s');
load(s)
disp(s)
who;
if isempty(r)
   if isempty(d)
      r=m;
   else
      r=d;
   end
end
for i=1:5
   for j=1:10
      figure(1)
      plot(r(i,j,:))
      vector=reshape(r(i,j,:),1,4800);
      sound(vector,8192)
      disp(strcat(num2str(i),'`s wave (',...
         num2str(j),')'))
      figure(2)
      vector=abs(fft(vector));
      plot(abs(vector(1:1500)))
      pause(1)
   end
   disp(' ')
end

      