function speakerSetWrite(speaker, outputDir)

if nargin<2, outputDir='.'; end

file=[outputDir, '/', speaker.name, '.mfcc'];
fid=fopen(file, 'w');

fprintf(fid, '<comment>\nMFCC data for speaker id.\n');
fprintf(fid, '<version>\n1.0\n');
feaDim=size(speaker.sentence(1).fea, 1);
fprintf(fid, '<feaDim>\n%d\n', feaDim);
fprintf(fid, '<personName>\n%s\n', speaker.name);

sentenceNum=length(speaker.sentence);
fprintf(fid, '<sentenceNum>\n%d\n', sentenceNum);

for i=1:sentenceNum
	frameNum=size(speaker.sentence(i).fea, 2);
	fprintf(fid, '<sentence>\n%d\n', i);
	fprintf(fid, '<frameNum>\n%d\n', frameNum);
	fprintf(fid, '<mfcc>\n');
	for j=1:frameNum
		for k=1:feaDim
			fprintf(fid, '%d ', speaker.sentence(i).fea(k,j));
		end
		fprintf(fid, '\n');
	end
end

fclose(fid);