|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
function ddemyfun
lags=[6.4,6.4]; history=[0,0]; tspan=[0,60];
sol=dde23(@myddefun1,lags,history,tspan);
plot(sol.x,sol.y); xlabel('time t'); ylabel('solution y');
%%%%%%
% function
% dx(1)/dt=-k1*c*x(1)+2*k4*x(3)*(t-6.4)
% dx(4)/dt= k3*x(3)-k4*x(3)*(t-6.4)
% dx(2)/dt= k1*c*x(1)+2*k33*x(3)-k2*x(2)*x(2)
% dx(3)/dt= -(k3+k33)*x(3)+0.5*k2*x(2)*x(2)
function dxdt=myddefun1(t,x,Z)
k1=0.021; k2=2.46; k3=0.1066; k4=0.10658; k33=0.001;
c=10; xlag1=Z(:,1); xlag2=Z(:,2);
dxdt=[-k1*c*x(1)+2*k4*xlag1(1)
k3*x(3)-k4*xlag2(2)
k1*c*x(1)+2*k33*x(3)-k2*x(2)*x(2)
-(k3+k33)*x(3)+0.5*k2*x(2)*x(2) ];
[ 本帖最后由 ChaChing 于 2010-3-2 09:38 编辑 ] |
|