timit数据库里sphere文件怎么用convert转换

代码如下：

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); % 关闭文件

---