fantastic8 发表于 2008-12-5 12:35

书中自带程序中的'bearingout.dat文件不存在,程序运行不了,此问题该如何解决?

《MATLAB时频分析技术及其应用》自带光盘有中如下一段程序,可是其中'bearingout.dat文件不存在啊,程序运行不了,我急需此程序实验图形,那位高手有此程序的运行结果啊,或是此问题该如何解决?谢谢各位达人了。
fid=fopen('bearingout.dat','r');
N=1024;
xdata=fread(fid,N,'int16');
fclose(fid);
xdata=(xdata-mean(xdata))/std(xdata,1);
figure(1);
plot(1:N,xdata);
xlabel('时间 t/n');
ylabel('电压 V/v');
=wavedec(xdata,4,'db10');
d4=wrcoef('d',c,1,'db10',4);
d3=wrcoef('d',c,1,'db10',3);
d2=wrcoef('d',c,1,'db10',2);
d1=wrcoef('d',c,1,'db10',1);
figure(2)
subplot(4,1,1);
plot(d4,'LineWidth',2);
ylabel('d4');
subpot(4,1,2);
plot(d3,'LineWidth',2);
ylabel('d3');
subpot(4,1,3);
plot(d2,'LineWidth',2);
ylabel('d2');
subpot(4,1,4);
plot(d1,'LineWidth',2);
ylabel('d1');
xlabel('时间 t/s');
y=hilbert(d1);
ydata=abs(y);
y=y-mean(y);
nfft=1024;
p=abs(fft(ydata,nfft));
figure(3);
plot((0:nfft/2-1)/nfft*fs,p(1:nfft/2));
xlabel('频率 f/Hz');
ylabel('功率谱 P/W');

78424171 发表于 2011-10-2 19:04

《MATLAB时频分析技术及其应用》自带光盘有中如下一段程序,可是其中'bearingout.dat文件不存在啊,程序运行不了,我急需此程序实验图形,那位高手有此程序的运行结果啊,或是此问题该如何解决?谢谢各位达人了。
fid=fopen('bearingout.dat','r');
N=1024;
xdata=fread(fid,N,'int16');
fclose(fid);
xdata=(xdata-mean(xdata))/std(xdata,1);
figure(1);
plot(1:N,xdata);
xlabel('时间 t/n');
ylabel('电压 V/v');
=wavedec(xdata,4,'db10');
d4=wrcoef('d',c,1,'db10',4);
d3=wrcoef('d',c,1,'db10',3);
d2=wrcoef('d',c,1,'db10',2);
d1=wrcoef('d',c,1,'db10',1);
figure(2)
subplot(4,1,1);
plot(d4,'LineWidth',2);
ylabel('d4');
subpot(4,1,2);
plot(d3,'LineWidth',2);
ylabel('d3');
subpot(4,1,3);
plot(d2,'LineWidth',2);
ylabel('d2');
subpot(4,1,4);
plot(d1,'LineWidth',2);
ylabel('d1');
xlabel('时间 t/s');
y=hilbert(d1);
ydata=abs(y);
y=y-mean(y);
nfft=1024;
p=abs(fft(ydata,nfft));
figure(3);
plot((0:nfft/2-1)/nfft*fs,p(1:nfft/2));
xlabel('频率 f/Hz');
ylabel('功率谱 P/W');

liu397574933 发表于 2012-1-5 09:36

你有光盘?

桃之夭夭 发表于 2012-3-19 19:30

你好,你找到实验用的数据了吗?可以给我发一份吗?
页: [1]
查看完整版本: 书中自带程序中的'bearingout.dat文件不存在,程序运行不了,此问题该如何解决?