|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
clear
clc
j=1;
c=0.1;
Fs =100;N =1024; % 采样频率和总的采样点数
n=0:N-1;w=n/Fs; % 时间序列
x0=[0.01;0.01;0.01;0.01];
for w=0:n/Fs:(N-1)/Fs
options=odeset;options.RelTol=1e-4;
[t,x]=ode45(@crackandliner,[0,500],x0,options,c,w);
p= sqrt((x(end-400:end,1).^2)+(x(end-400:end,3).^2));
Pmax(j,1)=max(p);
j=j+1;
end
y=fft(Pmax,N); %进行fft变换
mag=abs(y); %求得Fourier变换后的振幅
F=n*Fs/N; %频率序列
plot(F(1:N/2),mag(1:N/2));%绘出Nyquist频率之前随频率变化的振幅
title('FFT振幅-角速度关系')
xlabel('频率/H')
ylabel('振幅')
绘制出来的图形不对,请老师帮忙指点一下哪里不对,我对快速傅立叶变换不熟,书上给的例题还能看懂,但是我这个和例题不一样,书上一般都是x关于t的函数,我这个是每一个振幅pmax关于转速w的函数。
|
|