TIMIT语料库音频格式转换

function wavdata=readTIMITwav(filepath)
% author:
%          zr
% date:
%          2013-12-29
% function:
%          实现读取TIMIT语料库中音频文件的功能
% filepath：
%          TIMIT语料库中音频文件的路径
% wavdata：
%          音频文件

clc;
clear all;

fidin=fopen(filepath,'r');         % 打开文件，指定对该文件进行的操作方式为只读
A = fread(fidin,inf,'int16');      % 以二进制形式读取文件的全部数据，精度为16位整型
wavdata=A./(2^15);                 % SPHERE 文件头1024字节，转换成wav格式
fclose(fidin);                     % 关闭文件