clear all;
cd G:\资料\数据;
filename=dir('*.txt ');
k=length(filename);
fs=2000;
for ii=1:k
data(:,ii)=textread(filename(ii).name);
wpt=wpdec(data(:,ii),5, 'db8');%用db8小波进行五层小波包分解
for m=0:31
 N=length(data(:,1));
n=0:N-1;
c= wprcoef(wpt,[5 m]);
pd(m+1)=sqrt(sum(c.^2)/N);
end;
p=sum(pd); %对均方根值作归一化处理
for m=1:32
pd(m)=pd(m)/p*100;
end;
pd=[pd(1) pd(2) pd(3) pd(4) pd(5) pd(6) pd(7) pd(8) pd(9) pd(10) pd(11) pd(12) pd(13) pd(14) pd(15) pd(16) pd(17) pd(18) pd(19) pd(20) pd(21) pd(22) pd(23) pd(24) pd(25) pd(26) pd(27) pd(28) pd(29) pd(30) pd(31) pd(32)];
end;
file_n=fopen('kkk.xls','wt');
fprintf(file_n,'%6.4f\n',pd);
fclose(file_n);[/color]
最后在excel中得出的是循环最后一次的结果，这样把整个循环的结果输出到同一个excel中。跪求，谢谢！！！