|
楼主 |
发表于 2010-3-17 16:20
|
显示全部楼层
回复 板凳 无水1324 的帖子
请问无水,这样做吗?
T=10;
x0=[0;0];
tspan=[0:0.01*T:400*T];
options=odeset('RelTol',1e-6,'AbsTol',1e-6);
[t,y]=ode45('shuanpin',tspan,x0,options,eta1,eta2,eta3,eta4,w1,w2);
Y=fft(y(20000:end,1));
Y(1)=[];
step=0.01*T;
N=length(Y);
power=abs(Y);
freq=(1:N-1)*1/step/N;
figure(2);
plot(freq(1:N/2),power(1:N/2),'k');
period=1./freq;
[mp index]=max(power);
max_power_freq=freq(index);
max_power_period=period(index);
T2=max_power_period
x1=y(20000:T2:end,1);y1=y(20000:T2:end,2);
figure(3);
plot(x1,y1,'k.');
请给予帮助 |
|