|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
我想画一个方程的分插图,但运行起来特困难,不知道是不是程序有问题,我对编程不是很懂,麻烦朋友指点一下,非常感谢!
主程序是
%clear;
for gamma=20:0.1:40
options=odeset('RelTol',1e-7);
tt=2*pi/1.2;
%[t,x]=ode45(@dafen,[0:tt/100:80*tt],[0,0],options,[],ff);
[t,x]=ode45(@c3eqdae6,[0:tt/100:500*tt],[1;1;1],options,[],gamma);
%pojialai
i=40000:100:50000;
plot(gamma,log(x(i,1)),'k.');
hold on;
end
% axis([0 3.2 -8 0]);
调用程序是
function dx=c3eqdae6(t,x,flag,gamma)
dx=[gamma*x(1)-0.5*x(1)^2-x(1)*x(2)+1e-4*x(2)^2-x(1)*x(3)-1e-3;
x(1)*x(2)-1e-4*x(2)^2-10*x(2)+1e-3;
-x(1)*x(3)+1e-3+16.5*x(3)-0.5*x(3)^2];
[ 本帖最后由 咕噜噜 于 2009-10-16 09:22 编辑 ] |
|