声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 1268|回复: 0

[非线性振动] 请看一下方程的问题

[复制链接]
发表于 2011-2-19 22:05 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?我要加入

x
function dx=newvdp(t,x)
T1=20;            
I1=1.3696e-2;            
I2=2.92645e-4;
I3=6.7308e-3;
I4=3.5117e-3;
I5=3.0142e-1;
I6=1.0272;
c1=0.6233;            
c2=18.412;
c3=21.65;
c4=22.55;
c5=15.394;
k1=1.356e4;            
k2=9.975e8;
k3=1.017e6;
k4=1.469e6;
k5=1.4875e9;
R1=40;            
R2=160;
R3=35;
R4=180;
em1=1;         
em2=1;
e1=em1+3.45*cos(20*t);   
e2=em2+0.26*cos(30*t);
w1=c2*(R1*x(4)-R2*x(6)-diff('e1','t',1))+k2*(R1*x(3)-R2*x(5)-e1);   
w2=c4*(R3*x(8)-R4*x(7)-diff('e2','t',1))+k4*(R3*x(7)-R4*x(9)-e2);
dx=zeros(12,1);   
dx(1)=x(2);         
dx(2)=(T1-c1*(x(2)-x(4))-k1*(x(1)-x(2)))/I1;
dx(3)=x(4);
dx(4)=(-c1*(x(4)-x(2))-k1*(x(2)-x(1))-R1*w1)/I2;
dx(5)=x(6);
dx(6)=(R2*w1-c3*(x(6)-x(8))-k3*(x(5)-x(7)))/I3;
dx(7)=x(8);
dx(8)=(-c3*(x(8)-x(6))-k3*(x(7)-x(5))-R3*w2)/I4;
dx(9)=x(10);
dx(10)=(R4*w2-c5*(x(10)-x(12))-k5*(x(9)-x(11)))/I5;
dx(11)=x(12);
dx(12)=(-c5*(x(12)-x(10))-k5*(x(11)-x(9)))/I6;


[T,x]=ode45('newvdp',[0,0.5],[0,0,0,0,0,0,0,0,0,0,0,0]);
plot(T,x(:,1),'r',T,x(:,2),'b*',T,x(:,3),'k-.')

大家看一下这个方法有什么问题,我算了十多个小时也没结束运算,目前还在算?
回复
分享到:

使用道具 举报

您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

QQ|小黑屋|Archiver|手机版|联系我们|声振论坛

GMT+8, 2024-11-11 10:00 , Processed in 0.055066 second(s), 18 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表