openkuikka.m

来自「Matsig is an object-oriented signal clas」· M 代码 · 共 60 行

function [Y]=openkuikka(varargin)
% function [s]=openkuikka(varargin)
% Read files from the QuickSig package by Laboratory of Acoustics and Audio
% Signal Processing at Helsinki University of Technology.

% get the file name and path using the file dialog


persistent lastpath;

if ~nargin

  prevpath = pwd;

  if lastpath
    cd(lastpath);
  end

  [FileName,PathName]=uigetfile('*.wav','Open audio file');

  if PathName
    lastpath = PathName;
  end
  cd(prevpath);

  if FileName==0
    Y=0;
    return
  end
  fname=[PathName FileName];
else
  fname=varargin{1};
end

[y,fs] = kuikkaread(fname);

if size(y,2)==1
  Y = signal(y,fs);
else
  for i=1:size(y,2)
    Y{i} = signal(y(:,i),fs);
  end
end


function [y,fs] = kuikkaread(fname)
fid = fopen(fname,'r');
tline = fgetl(fid); start = sscanf(tline,'%d');
tline = fgetl(fid); len = sscanf(tline,'%d');
tline = fgetl(fid);
tline = fgetl(fid); fs = round(1./sscanf(tline,'%f'));
for k=start:len
    tline = fgetl(fid);
    if tline ~= -1
        y(1+k,1) = sscanf(tline,'%f');
    end
end
fclose(fid);