samtest289.m

来自「汽轮机组故障诊断中横向裂纹振动的数据」· M 代码 · 共 22 行

%西安交大； 试验台   转速：1800 rpm；采样频率： 2K；
clear
fid=fopen('E:\汽轮机振动论文\date\date\故障数据\289-横向裂纹\crk1-dv.txt','r');
A=fscanf(fid,'%f ');
%for i=1024:8192
 %   A(i)=0;
    
 %end
 fclose(fid);
 fs=2048;
 NN=length(A);
 N=1024;
 AA=A(1:1024);
 nf=0:N/2-1;
xf=nf*fs/N;
subplot(2,1,1) 
plot(AA);
y=fft(AA);
ylyp=abs(y)*2/1024 ;
subplot(2,1,2) 
plot(xf,ylyp(1:512));