|
楼主 |
发表于 2007-5-10 09:54
|
显示全部楼层
请求帮忙看一下非线性频响的程序对不?
主程序:
global f E d33 u33 w w0
f=10;
E=40*10^9;
d33=2.97*10^-8;
u33=5*4*pi*10^-7;
figure
for w=5000:20.0:20000
t0=0:0.001:0.02
y0=[0,0.01,0.0000001];
[t,y]=ode45('zhihuifun',t0,y0,[])
aa=max((y(:,1)));
plot(w/w0,aa,'r.')
hold on
end
调用程序:
function dy=zhihuifun(t,y,flag)
global f E d33 u33 w w0
m=1.38;k=2*10^7;l=0.4;A=1.21*pi*10^-4;kesai=0.1;
w0=sqrt(k/m-(E*A/(l*m))*(1-E*d33^2/u33));
dy=[y(2);
-w0^2*y(3)-2*kesai^2*w0*y(2)+f*sin(w*t);
y(2)-0.15*sqrt(y(2)^2)*y(3)-0.85*y(2)*sqrt(y(3)^2)];
为什么画出来的没有非线性阿? |
|