samtest284.m

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

%烟机  转速：924 rpm；采样频率：1K
clear
fid=fopen('E:\汽轮机振动论文\date\date\故障数据\284-不对中故障\aln1-v.txt','r');
A=fscanf(fid,'%f ');
%for i=1024:8192
 %   A(i)=0;
    
 %end
 fclose(fid);
 fs=1024;
 N=length(A);
 nf=0:N/2-1;
xf=nf*fs/N;
subplot(2,1,1) 
plot(A);
y=fft(A);
ylyp=abs(y)*2/1024 ;
subplot(2,1,2) 
plot(xf,ylyp(1:512));